ไปยังเนื้อหาหลัก

วิธีการเปิดแผ่นงานเฉพาะตามค่าที่เลือกของ Combo Box ใน Excel

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

เปิดแผ่นงานเฉพาะตามค่าที่เลือกของ Combo Box พร้อมรหัส VBA


เปิดแผ่นงานเฉพาะตามค่าที่เลือกของ Combo Box พร้อมรหัส VBA

โค้ด VBA ด้านล่างนี้สามารถช่วยให้คุณไปที่แผ่นงานเฉพาะตามการเลือก Combo Box ใน Excel กรุณาดำเนินการดังนี้

หมายเหตุ: หากกล่องคำสั่งผสมไม่มีชื่อแผ่นงานในแผ่นงานของคุณโปรดปฏิบัติตามคำแนะนำด้านล่างเพื่อเพิ่มชื่อแผ่นงานทั้งหมดลงในกล่องคำสั่งผสมนั้นอย่างรวดเร็ว และหากมี Combo Box ที่มีชื่อแผ่นงานทั้งหมดอยู่แล้วโปรดเลื่อนไปที่ไฟล์ ขั้นตอนที่ 1 โดยตรง.

ปลาย: แทรกปุ่มคำสั่ง 1 ในแผ่นงานของคุณคลิกขวาแล้วเลือก ดูรหัส จากเมนูคลิกขวา จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในไฟล์ รหัส หน้าต่างแล้วกด อื่น ๆ + Q ปุ่มเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง. คลิกปุ่มคำสั่งที่แทรกจากนั้นชื่อแผ่นงานทั้งหมดของสมุดงานปัจจุบันจะถูกเพิ่มลงใน ComboBox1 โดยอัตโนมัติ

รหัส VBA: เพิ่มชื่อแผ่นงานทั้งหมดลงใน Combo Box ได้อย่างง่ายดาย

Private Sub CommandButton1_Click()
    Me.ComboBox1.Clear
    Dim strWs As String
    Dim i As Integer
    
    For i = 1 To ThisWorkbook.Sheets.Count
        Me.ComboBox1.AddItem Sheets(i).Name
    Next

End Sub

หากมี Combo Box ที่มีชื่อแผ่นงานทั้งหมดอยู่แล้วโปรดดำเนินการดังต่อไปนี้

1 เปิดเครื่อง โหมดการออกแบบ ภายใต้ ผู้พัฒนา แถบ

2. คลิกขวาที่กล่องคำสั่งผสมที่มีชื่อแผ่นงานจากนั้นคลิก ดูรหัส จากเมนูคลิกขวา

doc combo box เปิดแผ่นงาน 12png

3. จากนั้น Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างปรากฏขึ้นโปรดแทนที่รหัส VBA เดิมในหน้าต่างรหัสด้วยรหัส VBA ด้านล่าง

รหัส VBA: เปิดแผ่นงานเฉพาะตามค่าที่เลือกของ Combo Box

Private Sub ComboBox1_Change()
    Dim actWsh As String
    actWsh = ComboBox1.Text
    Worksheets(actWsh).Select
    
End Sub

หมายเหตุ: ในรหัส ComboBox1 คือชื่อของกล่องคำสั่งผสมที่มีชื่อแผ่นงาน

4 กด อื่น ๆ + Q ปุ่มเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างและปิดไฟล์ โหมดการออกแบบ ภายใต้ ผู้พัฒนา แถบ

ตอนนี้เมื่อเลือกชื่อแผ่นงานใด ๆ ใน Combo Box แผ่นงานที่เกี่ยวข้องจะเปิดขึ้นโดยอัตโนมัติ


แสดงชื่อแผ่นงานทั้งหมดของสมุดงานปัจจุบันใน Excel ได้อย่างง่ายดาย:

การใช้ดัชนีชีตในเวิร์กบุ๊กช่วยให้คุณจัดการเวิร์กชีตได้อย่างง่ายดาย กับ สร้างรายชื่อแผ่นงาน ประโยชน์ของ Kutools สำหรับ Excelคุณสามารถสร้างดัชนีชีตที่มีชื่อแผ่นงานทั้งหมดในสมุดงานปัจจุบันได้อย่างง่ายดาย หลังจากนั้นคุณสามารถเปลี่ยนไปใช้แผ่นงานบางแผ่นได้อย่างรวดเร็วโดยคลิกที่ชื่อแผ่นงานในแผ่นงานดัชนี ดูภาพหน้าจอด้านล่าง:
ดาวน์โหลดและทดลองใช้ทันที! (เส้นทางฟรี 30 วัน)


บทความที่เกี่ยวข้อง:

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
hi
i just removed my excel file by converting it from 2016 to 2010. Then converting back to 2016 and put new password.
This comment was minimized by the moderator on the site
perfectly working.if your sheet name different then change the sheet name also.without changing the sheet name code does not working. thanks for sharing .
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations