300 ตัวอย่าง

วนรอบการควบคุม

Loop Through Controls

ด้วยโค้ดเพียงไม่กี่บรรทัด เราก็ทำได้ง่ายๆ วนรอบการควบคุม บน แบบฟอร์มผู้ใช้ Excel VBA . Userform ที่เราจะสร้างมีลักษณะดังนี้:





วนรอบการควบคุมใน Excel VBA

วิธีทำฟังก์ชันใน excel

ในการสร้าง Userform นี้ ให้ทำตามขั้นตอนต่อไปนี้





1. เปิด โปรแกรมแก้ไข Visual Basic . หากมองไม่เห็น Project Explorer ให้คลิก View, Project Explorer

2. คลิก แทรก แบบฟอร์มผู้ใช้ หาก Toolbox ไม่ปรากฏขึ้นโดยอัตโนมัติ ให้คลิก View, Toolbox หน้าจอของคุณควรได้รับการตั้งค่าดังนี้



การตั้งค่าหน้าจอฟอร์มผู้ใช้ใน Excel VBA

3. เพิ่มป้ายกำกับ กล่องกาเครื่องหมาย (อันแรกอยู่ด้านบน อันที่สองอยู่ใต้อันแรก และอื่นๆ) และปุ่มคำสั่ง เมื่อดำเนินการเสร็จแล้ว ผลลัพธ์ควรสอดคล้องกับรูปภาพของ Userform ที่แสดงไว้ก่อนหน้านี้ ตัวอย่างเช่น สร้างตัวควบคุมช่องทำเครื่องหมายโดยคลิกที่ช่องทำเครื่องหมายจากกล่องเครื่องมือ ถัดไป คุณสามารถลากกล่องกาเครื่องหมายบน Userform

4. คุณสามารถเปลี่ยนชื่อและคำอธิบายของตัวควบคุมได้ ชื่อที่ใช้ในโค้ด Excel VBA คำอธิบายภาพคือข้อความที่ปรากฏบนหน้าจอของคุณ เป็นการดีที่จะเปลี่ยนชื่อของตัวควบคุม แต่ไม่จำเป็นที่นี่ เนื่องจากเรามีตัวควบคุมเพียงไม่กี่ตัวในตัวอย่างนี้ เมื่อต้องการเปลี่ยนคำอธิบายของ Userform ป้ายกำกับ กล่องกาเครื่องหมาย และปุ่มคำสั่ง ให้คลิก View, Properties Window และคลิกที่แต่ละตัวควบคุม

5. หากต้องการแสดง Userform ให้วาง a ปุ่มคำสั่ง บนเวิร์กชีตของคุณและเพิ่มบรรทัดโค้ดต่อไปนี้:

ส่วนตัว ซับCommandButton1_Click()

UserForm1.Show

จบ ซับ

ตอนนี้เราได้สร้างส่วนแรกของ Userform แล้ว แม้ว่าจะดูเรียบร้อยอยู่แล้ว แต่จะยังไม่มีอะไรเกิดขึ้นเมื่อเราคลิกที่ปุ่มล้าง

6. เปิด โปรแกรมแก้ไข Visual Basic .

วิธีสร้างกราฟด้วย excel

7. ใน Project Explorer ให้ดับเบิลคลิกที่ UserForm1

8. ดับเบิลคลิกที่ปุ่มล้าง

9. เพิ่มบรรทัดรหัสต่อไปนี้:

ส่วนตัว ซับCommandButton1_Click()

ไม่มีcontrเนื่องจากควบคุม

สำหรับ แต่ละcontrในUserForm1.Controls
ถ้าTypeName(contr) = 'ช่องทำเครื่องหมาย'แล้ว
contr.Value = เท็จ
จบ ถ้า
ต่อไป

จบ ซับ

คำอธิบาย: Excel VBA วนซ้ำผ่านการควบคุมทั้งหมดบน Userform ฟังก์ชัน TypeName ใช้เพื่อกรองตัวควบคุมกล่องกาเครื่องหมายออก ถ้าตัวควบคุมกล่องกาเครื่องหมาย Excel VBA จะยกเลิกการเลือกกล่องกาเครื่องหมาย contr ถูกสุ่มเลือกที่นี่ คุณสามารถใช้ชื่อใดก็ได้ อย่าลืมอ้างอิงชื่อนี้ในส่วนที่เหลือของรหัสของคุณ

ผลลัพธ์เมื่อคุณคลิกปุ่มล้าง:

วนรอบผลการควบคุม

8/11 เสร็จแล้ว! เรียนรู้เพิ่มเติมเกี่ยวกับฟอร์มผู้ใช้ >
ไปที่บทถัดไป: พิสัย



^