كيفية التحقق مما إذا كان الصف مخفيًا في 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 باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!