كيفية التحقق مما إذا كان الصف مخفيًا في Excel؟

تتناول هذه المقالة التحقق مما إذا كان الصف مخفيًا في نطاق محدد أو ورقة عمل في Excel.

تحقق مما إذا كان الصف مخفيًا في النطاق المحدد برمز VBA
تحقق مما إذا كان الصف مخفيًا في ورقة عمل برمز VBA

---

تحقق مما إذا كان الصف مخفيًا في النطاق المحدد برمز VBA

يرجى القيام بما يلي للتحقق مما إذا كانت الصفوف مخفية في نطاق محدد والعثور على رقم الصف المخفي.

1. حدد النطاق الذي ستتحقق منه للصفوف المخفية. اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ رمز VBA أدناه في نافذة الكود.

كود فبا: تحقق من الصفوف المخفية في النطاق المحدد

Sub HiddenRowsInRange()
'Update by Extendoffice 2018/5/15
    Dim I As Long
    Dim xStr As String
    Dim xOne, xTwo As Long
    Dim xRg, xRgVsb, xRgItem As Range
    On Error Resume Next
    Set xRg = Range("A1:A100")
    Set xRgVsb = xRg.SpecialCells(xlCellTypeVisible)
   If xRg.Count <> xRgVsb.Count Then
        For I = 1 To xRgVsb.Areas.Count - 1
            Set xRgItem = xRgVsb.Areas.Item(I)
            xOne = xRgItem.Rows(xRgItem.Rows.Count).Row
            xTwo = xRgVsb.Areas.Item(I + 1).Rows(1).Row
            xStr = xStr & Str(xOne + 1) & " --" & Str(xTwo - 1) & ","
        Next
        xStr = Left(xStr, Len(xStr) - 1)
        MsgBox "Hidden rows in selected range are:" & xStr
    Else
        MsgBox "No rows hidden"
    End If
End Sub

3. اضغط على F5 مفتاح لتشغيل الكود.

ثم مايكروسوفت إكسل ينبثق مربع الحوار لتظهر لك الصفوف المخفية كما هو موضح أدناه.

---

تحقق مما إذا كان الصف مخفيًا في ورقة عمل برمز VBA

يمكن أن يساعدك رمز VBA أدناه في التحقق من الصفوف المخفية في ورقة عمل في Excel. الرجاء القيام بما يلي.

1. افتح ورقة العمل التي تريدها للتحقق من الصفوف المخفية ، اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ رمز VBA أدناه في نافذة الكود.

كود فبا: تحقق مما إذا كان الصف مخفيًا في ورقة العمل

Sub HiddenRowsInSheet()
'Update by Extendoffice 2018/5/15
    Dim I As Long
    Dim xStr As String
    Dim xOne, xTwo As Long
    Dim xRg, xRgVsb, xRgItem As Range
    On Error Resume Next
    Set xRg = ActiveSheet.UsedRange
    Set xRgVsb = xRg.SpecialCells(xlCellTypeVisible)
    Debug.Print xRgVsb.Address
    If xRg.Count <> xRgVsb.Count Then
        For I = 1 To xRgVsb.Areas.Count - 1
            Set xRgItem = xRgVsb.Areas.Item(I)
            xOne = xRgItem.Rows(xRgItem.Rows.Count).Row
            xTwo = xRgVsb.Areas.Item(I + 1).Rows(1).Row
            xStr = xStr & Str(xOne + 1) & " --" & Str(xTwo - 1) & ","
        Next
        xStr = Left(xStr, Len(xStr) - 1)
        MsgBox "Hidden rows in active sheet are:" & xStr
    Else
        MsgBox "No rows hidden"
    End If
End Sub

3. اضغط على F5 مفتاح لتشغيل الكود.

ثم مايكروسوفت إكسل ينبثق مربع الحوار لتظهر لك الصفوف المخفية في ورقة العمل الحالية كما هو موضح أدناه لقطة الشاشة.

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

---

مقالات ذات صلة:

• كيفية التحقق مما إذا كان الحرف الأول في الخلية حرفًا أم رقمًا في Excel؟