วิธีการนับแผ่นงานด้วยชื่อเฉพาะใน Excel

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

นับแผ่นงานที่มีชื่อเฉพาะพร้อมรหัส VBA
ค้นหาแผ่นงานทั้งหมดที่มีคำเฉพาะในชื่อแผ่นงานได้อย่างรวดเร็ว

นับแผ่นงานที่มีชื่อเฉพาะพร้อมรหัส VBA

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

1 กด อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกโค้ด VBA ด้านล่างลงในหน้าต่าง Code

รหัส VBA 1: นับแผ่นงานที่มีชื่อขึ้นต้นด้วย“ KTE”

Sub CountWSNames()
    Dim I As Long
    Dim xCount As Integer
    For I = 1 To ActiveWorkbook.Sheets.Count
        If Mid(Sheets(I).Name, 1, 3) = "KTE" Then xCount = xCount + 1
    Next
    MsgBox "There are " & CStr(xCount) & " sheets that start with 'KTE'", vbOKOnly, "KuTools for Excel"
End Sub

ถ้าคุณต้องการนับจำนวนแผ่นงานที่มี "KTE" โปรดใช้โค้ด VBA ด้านล่าง 2

รหัส VBA 2: นับแผ่นงานที่มีชื่อประกอบด้วย "KTE"

Sub CountWSNames()
    Dim I As Long
    Dim xCount As Integer
    For I = 1 To ActiveWorkbook.Sheets.Count
        If InStr(1, Sheets(I).Name, "KTE") > 0 Then xCount = xCount + 1
    Next
    MsgBox "There are " & CStr(xCount) & " sheets that with 'KTE'", vbOKOnly, "KuTools for Excel"
End Sub

หมายเหตุ:แทนที่คำว่า “KTE” ด้วยข้อความที่คุณต้องการใช้ในการนับจำนวนแผ่นงาน

3 กด F5 กุญแจสำคัญในการรันโค้ด จากนั้นกล่องโต้ตอบจะปรากฏขึ้นเพื่อแจ้งจำนวนแผ่นงานในสมุดงานปัจจุบันที่ขึ้นต้นด้วย "KTE" หรือมี "KTE" ดูภาพหน้าจอ:

จำนวนใบงานที่ชื่อขึ้นต้นด้วย “KTE”:

จำนวนแผ่นงานที่มีชื่อ "KTE":

ค้นหาแผ่นงานทั้งหมดที่มีคำเฉพาะในชื่อแผ่นงานได้อย่างรวดเร็ว

ส่วนนี้จะแสดงวิธีค้นหาแผ่นงานทั้งหมดที่มีคำเฉพาะในชื่อแผ่นงานอย่างรวดเร็วด้วย Kutools for Excel

1. หลังจากติดตั้ง Kutools for Excel แล้ว Kutools' การเดินเรือ บานหน้าต่างจะเปิดขึ้นโดยอัตโนมัติทางด้านซ้ายของสมุดงาน หรือคุณสามารถเปิดใช้งานบานหน้าต่างได้โดยคลิก Kutools > การเดินเรือ ดังภาพด้านล่างที่แสดง

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

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

• วิธีอ้างอิงชื่อแท็บในเซลล์ใน Excel
• วิธีจับคู่ค่าเซลล์กับชื่อแท็บแผ่นงานหรือในทางกลับกันใน Excel
• วิธีการเปิดแผ่นงานเฉพาะตามค่าที่เลือกของ Combo Box ใน Excel