كيفية حساب عدد أوراق العمل المخفية بسرعة في إكسيل؟

إذا كان لديك مصنف كبير به مئات أوراق العمل ، وتم إخفاء بعض أوراق العمل. لتلبية بعض الاحتياجات الخاصة تريد معرفة عدد أوراق العمل المخفية في المصنف ، كيف يمكنك القيام بذلك بدلاً من عدها واحدة تلو الأخرى؟ سأقدم الآن حيلتين يمكنهما حساب أوراق العمل المخفية بسرعة في وقت واحد.

عد الأوراق المخفية باستخدام VBA

عد الأوراق المخفية / المرئية باستخدام Kutools for Excel

احذف الأوراق المخفية أو أظهر جميع الأوراق المخفية باستخدام Kutools for Excel

---

عد الأوراق المخفية باستخدام VBA

أقدم رمز VBA الذي يمكن أن يظهر مربع حوار يخبرك بعدد أوراق العمل المخفية في مصنف.

1. صحافة ALT + F11 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق الكود أدناه في ملف وحدة نافذة.

فبا: عد الأوراق المخفية.

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 for Excel ، يرجى القيام بما يلي:

1. انقر كوتولس > قائمة الإختيارات لعرض الجزء. انظر لقطة الشاشة:

2. ثم اضغط مصنف وورقة زر لسرد الكتب وأوراق العمل ، وانتقل إلى الجزء السفلي من الجزء ، يمكنك العثور على إجمالي الأوراق والأوراق المخفية والأوراق المرئية.

تلميح: إذا لم تعد بحاجة إلى جزء التنقل بعد الآن ، فانقر فوق كوتولس > قائمة الإختيارات مرة أخرى لإخفائه.

---

احذف الأوراق المخفية أو قم بإلغاء إخفاء جميع الأوراق المخفية باستخدام Kutools for Excel

بإضافة إلى كوتولس ل إكسيل، يمكنك أيضًا إزالة جميع الأوراق المخفية بنقرة واحدة.

1. إذا كنت تريد إظهار كافة الأوراق المخفية ، فقط انقر فوق كوتولس > اظهر المخفي > إظهار كافة الأوراق المخفية.

2. إذا كنت تريد حذف كافة الأوراق المخفية ، فقط انقر فوق مشروع > ورقة العمل > حذف كافة الأوراق المخفية. انظر لقطة الشاشة: