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

จะเปิดเวิร์กชีตโดยเลือกชื่อในกล่องคอมโบใน Excel ได้อย่างไร?

ผู้เขียน : ซิลูเวีย แก้ไขล่าสุด: 2024-11-25

สมมติว่าคุณมีกล่องคอมโบในเวิร์กบุ๊ก Excel ของคุณซึ่งมีรายชื่อแผ่นงานทั้งหมด คุณต้องการเปิดเวิร์กชีตเฉพาะโดยเลือกชื่อจากกล่องคอมโบ คู่มือนี้จะสาธิตวิธีการดำเนินการนี้โดยใช้โค้ด VBA พร้อมขั้นตอนในการใส่ชื่อแผ่นงานลงในกล่องคอมโบและเปิดใช้งานฟังก์ชันที่ต้องการ

ภาพหน้าจอของกล่องคอมโบใน Excel ที่มีชื่อแผ่นงาน

เปิดเวิร์กชีตโดยเลือกชื่อในกล่องคอมโบด้วยโค้ด VBA


เปิดเวิร์กชีตโดยเลือกชื่อในกล่องคอมโบด้วยโค้ด VBA

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

หมายเหตุ:หากกล่องคอมโบไม่มีชื่อชีตใดๆ ในเวิร์กชีตของคุณ โปรดทำตามคำแนะนำด้านล่างเพื่อเพิ่มชื่อชีตทั้งหมดลงในกล่องคอมโบอย่างรวดเร็ว หากมีกล่องคอมโบที่มีชื่อชีตทั้งหมดอยู่แล้ว ให้ดำเนินการโดยตรง ขั้นตอนที่ 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. คลิกขวาที่กล่องคำสั่งผสมที่มีชื่อแผ่นงานจากนั้นคลิก ดูรหัส จากเมนูคลิกขวา

ภาพหน้าจอของเมนูคลิกขวาเพื่อเข้าถึงโค้ด Combo Box ใน Excel

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 สำหรับแอปพลิเคชัน หน้าต่างและปิดไฟล์ โหมดการออกแบบ ภายใต้ ผู้พัฒนา แถบ

ตอนนี้การเลือกชื่อเวิร์กชีตใดๆ ในกล่องคอมโบจะเปิดเวิร์กชีตที่สอดคล้องกันโดยอัตโนมัติ


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

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

ภาพหน้าจอแสดงดัชนีแผ่นงานที่สร้างด้วย Kutools สำหรับ Excel

Kutools สำหรับ Excel - เพิ่มประสิทธิภาพ Excel ด้วยเครื่องมือที่จำเป็นกว่า 300 รายการ เพลิดเพลินกับฟีเจอร์ AI ฟรีถาวร! Get It Now


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

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

🤖 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% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!