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

ห่วงผ่านการควบคุมใน Excel VBA

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

ห่วงผ่านการควบคุมใน Excel VBA

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

1. เปิดตัวแก้ไข Visual Basic ถ้าโครงการ Explorer ไม่สามารถมองเห็นคลิกมุมมองโครงการ Explorer.

2. คลิกแทรก, Userform ถ้ากล่องเครื่องมือไม่ปรากฏขึ้นโดยอัตโนมัติให้คลิกมุมมองกล่องเครื่องมือ ควรตั้งค่าหน้าจอดังนี้

การตั้งค่าหน้าจอ Userform ใน Excel VBA

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

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

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

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

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

เปิดตัว Visual Basic Editor

7. ใน Project Explorer ให้คลิกสองครั้งที่ UserForm1

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

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

Private Sub CommandButton1_Click()

Dim contr As control

For Each contr In UserForm1.Controls
    If TypeName(contr) = "CheckBox" Then
        contr.Value = False
    End If
Next

End Sub

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

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

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

อ่านเพิ่มเติมได้ที่: