/ / Excel VBA ตัวควบคุมคอลเลกชัน

คอลเล็กชันการควบคุม Excel VBA

เมื่อสร้าง Userforms ใน Excel VBAคุณสามารถใช้ คอลเลกชันตัวควบคุม เพื่อควบคุมการควบคุมได้อย่างง่ายดายและกำหนดคุณสมบัติของตัวควบคุมแต่ละค่าให้มีค่าเฉพาะ

Userform ที่เราจะสร้างขึ้นมีลักษณะดังนี้:

ชุดควบคุมใน Excel VBA

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

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

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

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

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

4. เมื่อต้องการเปลี่ยนคำอธิบายภาพของปุ่ม Userform ฉลากและคำสั่งให้คลิก View, Properties Window และคลิกที่แต่ละตัวควบคุม

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

Private Sub CommandButton1_Click()

UserForm1.Show vbModeless

End Sub

คำอธิบาย: โดยการเพิ่ม vbModeless คุณสามารถใช้ Userform และทำงานในแผ่นงานของคุณในเวลาเดียวกัน

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

เปิดตัว Visual Basic Editor

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

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

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

Private Sub CommandButton1_Click()

Dim i As Integer

For i = 1 To 10
    Controls("TextBox" & i).Value = Cells(i + 1, 1).Value
Next i

End Sub

คำอธิบาย: ด้วยโค้ดเพียงไม่กี่บรรทัดเราสามารถกรอกข้อมูลในช่องข้อความพร้อมหมายเลขโทรศัพท์จากแผ่นงานได้ เราใช้ตัวดำเนินการ & เพื่อเชื่อมต่อองค์ประกอบ (เข้าร่วม) สายรหัสเหล่านี้ทำงานได้เนื่องจากเราไม่ได้เปลี่ยนชื่อของตัวควบคุมกล่องข้อความ (TextBox1, TextBox2, TextBox3 ฯลฯ ) เมื่อต้องการเปลี่ยนชื่อของตัวควบคุมให้คลิก View, Properties Window และคลิกที่แต่ละตัวควบคุม

ผลลัพธ์เมื่อคุณคลิกปุ่มคำสั่งบนแผ่นงาน:

ควบคุมผลลัพธ์คอลเล็กชัน

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