แมโครเพื่อวนผ่านแผ่นงานทั้งหมดในสมุดงาน

สรุป

บทความนี้มีข้อมูล Microsoft Visual Basic สำหรับแมโครแอพลิเคชัน (Sub procedure) ที่ลูปผ่านแผ่นงานทั้งหมดในสมุดงานที่ใช้งานอยู่ แมโครนี้จะแสดงชื่อของแต่ละแผ่นงาน

ข้อมูลเพิ่มเติม

Microsoft แสดงตัวอย่างการเขียนโปรแกรมเพื่อประกอบการเท่านั้น โดยไม่มีการรับประกันทั้งโดยชัดแจ้ง หรือโดยนัย กรณีนี้รวมถึงแต่มิได้จำกัดเพียงแค่การการรับประกันโดยนัยเกี่ยวกับการจำหน่ายเป็นสินค้าหรือความเหมาะสำหรับวัตถุประสงค์เฉพาะ บทความนี้ตั้งสมมติฐานว่าคุณมีความคุ้นเคยกับภาษาการเขียนโปรแกรมที่กำลังแสดงและคุ้นเคยกับเครื่องมือที่ใช้ใน การสร้างและแก้จุดบกพร่องของขั้นตอนการดำเนินการ วิศวกรฝ่ายสนับสนุนของ Microsoft สามารถช่วยอธิบายฟังก์ชันการทำงานของกระบวนการเฉพาะได้ แต่จะไม่ปรับเปลี่ยนตัวอย่างเหล่านี้เพื่อให้ฟังก์ชันการทำงานเพิ่มเติมหรือสร้างกระบวนงานเพื่อตอบสนองความต้องการเฉพาะของคุณ จะลองตัวอย่างแมโคร ให้ทำตามขั้นตอนเหล่านี้:

1. พิมพ์รหัสแมโครดังต่อไปนี้ลงในแผ่นงานโมดูลใหม่

         Sub WorksheetLoop()         Dim WS_Count As Integer         Dim I As Integer         ' Set WS_Count equal to the number of worksheets in the active         ' workbook.         WS_Count = ActiveWorkbook.Worksheets.Count         ' Begin the loop.         For I = 1 To WS_Count            ' Insert your code here.            ' The following line shows how to reference a sheet within            ' the loop by displaying the worksheet name in a dialog box.            MsgBox ActiveWorkbook.Worksheets(I).Name         Next I      End Sub

2. เมื่อต้องการเรียกใช้แมโคร วางตำแหน่งจุดแทรกในบรรทัดที่อ่าน "ย่อย WorksheetLoop()" และกด F5

แมโครที่จะวนซ้ำสมุดงาน และแสดงกล่องข้อความกับชื่อแผ่นงานที่แตกต่างกันในแต่ละครั้งที่รันผ่านลูป หมายเหตุว่า แมโครนี้จะแสดงเฉพาะชื่อของแผ่นงาน แต่จะไม่แสดงชื่อของชนิดอื่น ๆ ของแผ่นงานในสมุดงาน นอกจากนี้คุณสามารถวนผ่านแผ่นงานในสมุดงานทั้งหมด โดยใช้ 'สำหรับแต่ละ' วน

1. ป้อนรหัสแมโครดังต่อไปนี้ลงในแผ่นงานโมดูลใหม่

         Sub WorksheetLoop2()         ' Declare Current as a worksheet object variable.         Dim Current As Worksheet         ' Loop through all of the worksheets in the active workbook.         For Each Current In Worksheets            ' Insert your code here.            ' This line displays the worksheet name in a message box.            MsgBox Current.Name         Next      End Sub

2. เมื่อต้องการเรียกใช้แมโคร วางตำแหน่งจุดแทรกในบรรทัดที่อ่าน "ย่อย WorksheetLoop2()" และกด F5

แมโครนี้ทำงานเหมือนกันกับแมโคร WorksheetLoop ยกเว้นว่าจะใช้ชนิดอื่นของการวนรอบการประมวลผลทั้งหมดของแผ่นงานในสมุดงานที่ใช้งานอยู่

อ้างอิง

สำหรับข้อมูลเพิ่มเติมเกี่ยวกับการรับความช่วยเหลือเกี่ยวกับ Visual Basic สำหรับโปรแกรมประยุกต์ โปรดดูบทความในฐานความรู้ของ Microsoft ต่อไปนี้:

163435 VBA: เขียนโปรแกรมทรัพยากรสำหรับ Visual Basic สำหรับโปรแกรมประยุกต์

226118 OFF2000: เขียนโปรแกรมทรัพยากรสำหรับ Visual Basic สำหรับโปรแกรมประยุกต์