วิธีสร้างและตั้งชื่อแผ่นงานโดยยึดตามรายการผ่านแมโครของ Excel

Excel ช่วยให้คุณมีอิสระมากมายในการปรับแต่งประสบการณ์การใช้งานของคุณผ่านการใช้งาน แมโคร

บทช่วยสอนนี้จะแสดงวิธี สร้างและตั้งชื่อแผ่นงานโดยใช้รายการที่มีอยู่ผ่านทางแมโคร

สร้างแผ่นงานโดยใช้รายการผ่านแมโคร Excel

รหัสนี้อาจช่วยให้คุณสร้างและเปลี่ยนชื่อเวิร์กชีทโดยอัตโนมัติตามรายการที่มีอยู่ในชีตอื่น:

 Sub CreateSheetsFromAList ()
Dim MyCell As Range, MyRange As Range
ตั้ง MyRange = แผ่นงาน ("สรุป") ช่วง ("A10")
ตั้งค่า MyRange = Range (MyRange, MyRange.End (xlDown))
สำหรับ MyCell แต่ละรายการใน MyRange
Sheets.Add After: = Sheets (Sheets.Count) 'สร้างแผ่นงานใหม่
ชีต (Sheets.Count) .Name = MyCell.Value 'เปลี่ยนชื่อเวิร์กชีทใหม่
ถัดไป MyCell
ส่วนท้าย