วิธีนับจำนวนแผ่นงานที่ซ่อนอยู่ใน Excel อย่างรวดเร็ว

หากคุณมีสมุดงานขนาดใหญ่ที่มีแผ่นงานหลายร้อยแผ่นและแผ่นงานบางแผ่นซ่อนอยู่ เพื่อตอบสนองความต้องการพิเศษบางอย่างคุณต้องการทราบจำนวนแผ่นงานที่ซ่อนอยู่ในสมุดงานคุณจะทำอย่างไรแทนที่จะนับทีละแผ่น ตอนนี้ฉันจะแนะนำสองเทคนิคสามารถนับแผ่นงานที่ซ่อนอยู่ได้อย่างรวดเร็ว

นับแผ่นงานที่ซ่อนอยู่ด้วย VBA

นับแผ่นงานที่ซ่อน / มองเห็นได้ด้วย Kutools for Excel

ลบแผ่นงานที่ซ่อนอยู่หรือยกเลิกการซ่อนแผ่นงานที่ซ่อนทั้งหมดด้วย Kutools for Excel

นับแผ่นงานที่ซ่อนอยู่ด้วย VBA

ฉันแนะนำรหัส VBA ซึ่งสามารถแสดงกล่องโต้ตอบเพื่อบอกจำนวนแผ่นงานที่ซ่อนอยู่ในสมุดงาน

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

2 คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางโค้ดด้านล่างลงในไฟล์ โมดูล หน้าต่าง

VBA: นับแผ่นงานที่ซ่อนอยู่

Sub vhCount()
'Updateby20150602
Dim xWs As Worksheet
Dim xCount As Integer
For Each xWs In Application.ActiveWorkbook.Sheets
    If xWs.Visible Then xCount = xCount + 1
Next
MsgBox "Visible : " & xCount & vbCrLf & _
    "Hidden : " & ActiveWorkbook.Sheets.Count - xCount
End Sub

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

นับแผ่นงานที่ซ่อน / มองเห็นได้ด้วย Kutools for Excel

หากคุณไม่คุ้นเคยกับ VBA คุณสามารถติดตั้งได้ฟรี Kutools สำหรับ Excel เพื่อนับจำนวนแผ่นงานแผ่นงานที่ซ่อนอยู่และแผ่นงานที่มองเห็นได้อย่างรวดเร็ว

หลังจาก ติดตั้งฟรี Kutools สำหรับ Excel โปรดทำดังนี้:

1 คลิก Kutools > การเดินเรือ เพื่อแสดงบานหน้าต่าง ดูภาพหน้าจอ:

2 จากนั้นคลิก สมุดงานและแผ่นงาน ปุ่มเพื่อแสดงรายการหนังสือและแผ่นงานและไปที่ด้านล่างของบานหน้าต่างคุณจะพบจำนวนแผ่นงานทั้งหมดแผ่นงานที่ซ่อนอยู่และแผ่นงานที่มองเห็นได้

เคล็ดลับ: หากคุณไม่ต้องการบานหน้าต่างนำทางอีกต่อไปให้คลิก Kutools > การเดินเรือ อีกครั้งเพื่อซ่อนมัน

ลบแผ่นงานที่ซ่อนอยู่หรือยกเลิกการซ่อนแผ่นงานที่ซ่อนทั้งหมดด้วย Kutools for Excel

ด้วยระบบเส้นทาง Kutools สำหรับ Excelคุณยังสามารถลบแผ่นงานที่ซ่อนอยู่ทั้งหมดได้ในคลิกเดียว

1. หากคุณต้องการยกเลิกการซ่อนแผ่นงานที่ซ่อนอยู่ทั้งหมดให้คลิก Kutools > แสดงซ่อน > ยกเลิกการซ่อนชีตที่ซ่อนอยู่ทั้งหมด.

2. หากคุณต้องการลบแผ่นงานที่ซ่อนอยู่ทั้งหมดให้คลิก Kutools พลัส > แผ่นงาน > ลบชีตที่ซ่อนอยู่ทั้งหมด. ดูภาพหน้าจอ: