วิธีเติม Userform ComboBox ด้วยชื่อแผ่นงานทั้งหมดใน Excel
บทความนี้พูดถึงการใส่ชื่อแผ่นงานทั้งหมดของสมุดงานปัจจุบันลงใน Userform Combo Box ใน Excel
กรอก Userform ComboBox ด้วยชื่อแผ่นงานทั้งหมดด้วยรหัส VBA
กรอก Userform ComboBox ด้วยชื่อแผ่นงานทั้งหมดด้วยรหัส VBA
รหัส VBA ต่อไปนี้สามารถช่วยคุณแทรกชื่อแผ่นงานทั้งหมดของสมุดงานปัจจุบันลงในกล่องคำสั่งผสมแบบฟอร์มผู้ใช้ กรุณาดำเนินการดังนี้
1 กด อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดใส่ Userform โดยคลิก สิ่งที่ใส่เข้าไป > แบบฟอร์มผู้ใช้ ดังภาพด้านล่างที่แสดง
3. จากนั้นวาดและแทรกตัวควบคุมกล่องคำสั่งผสมลงใน Userform ดูภาพหน้าจอ:
4. คลิกขวาที่กล่องคำสั่งผสมที่แทรกแล้วเลือก ดูรหัส จากเมนูบริบท ดูภาพหน้าจอ:
5. ในการเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกและวางโค้ด VBA ด้านล่างเพื่อแทนที่รหัสเดิมในหน้าต่างรหัส
รหัส VBA: เติม Userform ComboBox ด้วยชื่อแผ่นงานทั้งหมดของสมุดงานปัจจุบัน
Private Sub UserForm_Initialize()
Dim I As Long
Me.ComboBox1.Clear
For I = 1 To Sheets.Count
Me.ComboBox1.AddItem Sheets(I).Name
Next
Me.ComboBox1.Value = ActiveSheet.Name
End Sub
หมายเหตุ: ในโค้ด ComboBox1 คือชื่อของ Combo Box ที่แทรกไว้ กรุณาเปลี่ยนเป็นของคุณเอง
6 กด F5 กุญแจสำคัญในการรันโค้ด ใน Userform ที่เปิดคุณสามารถดูชื่อแผ่นงานทั้งหมดของสมุดงานปัจจุบันที่แสดงอยู่ในกล่องคำสั่งผสมตามภาพด้านล่าง:
แสดงรายการชื่อแผ่นงานทั้งหมดใน Excel ได้อย่างง่ายดาย
เทศกาล สร้างรายชื่อแผ่นงาน ประโยชน์ของ Kutools สำหรับ Excel สามารถช่วยในการแสดงรายการชื่อเวิร์กชีททั้งหมดของสมุดงานที่ใช้งานอยู่ในแผ่นงานใหม่ใน Excel ได้อย่างง่ายดาย และคุณสามารถเปลี่ยนไปใช้แผ่นงานที่เกี่ยวข้องได้โดยตรงโดยคลิกที่ชื่อแผ่นงานตามภาพด้านล่างที่แสดง
ดาวน์โหลดและทดลองใช้ทันที!
บทความที่เกี่ยวข้อง:
- วิธีคัดลอกค่า Combo Box ไปยังเซลล์ที่ใช้งานอยู่ใน Excel
- วิธีแสดงรูปแบบวันที่ในเอาต์พุตกล่องคำสั่งผสมใน Excel
- วิธีการเปิดแผ่นงานเฉพาะตามค่าที่เลือกของ Combo Box ใน Excel
- วิธีป้องกันหรือปิดการพิมพ์ในกล่องคำสั่งผสมใน Excel
- วิธีการแท็บออกจากกล่องคำสั่งผสมเพื่อเลือกเซลล์เฉพาะใน Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!