كيفية إخفاء الصفوف تلقائيًا إذا كانت الخلايا فارغة في عمود؟
إذا كان لديك نطاق من البيانات يملأ بعض الخلايا الفارغة في عمود ، وتريد الآن إخفاء الصفوف التي تحتوي على الخلايا الفارغة في هذا العمود تلقائيًا. هل هناك طرق جيدة لحل هذه الوظيفة في Excel بسرعة وسهولة؟
إخفاء الصفوف تلقائيًا إذا كانت الخلايا فارغة في عمود برمز VBA
إخفاء الصفوف تلقائيًا إذا كانت الخلايا فارغة في عمود برمز VBA
قد تساعدك التعليمات البرمجية التالية على إخفاء جميع الصفوف إذا كانت الخلايا فارغة في عمود معين مرة واحدة ، وإذا قمت بحذف محتوى الخلية في هذا العمود ، فسيتم إخفاء الصفوف تلقائيًا أيضًا. الرجاء القيام بما يلي:
1. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة التي تريد إخفاء الصفوف تلقائيًا إذا كانت هناك خلايا فارغة في عمود ، ثم اختر عرض الرمز من قائمة السياق ، في النافذة المنبثقة ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ ولصق الكود التالي في الفراغ وحدة:
رمز فبا: إخفاء الصفوف تلقائيًا إذا كانت الخلايا الفارغة في عمود:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xRg As Range
Application.ScreenUpdating = False
For Each xRg In Range("A1:A20")
If xRg.Value = "" Then
xRg.EntireRow.Hidden = True
Else
xRg.EntireRow.Hidden = False
End If
Next xRg
Application.ScreenUpdating = True
End Sub
ملاحظات: في الكود أعلاه ، A1: A20 هي قائمة البيانات التي تحتوي على الخلايا الفارغة التي تريد إخفاءها تلقائيًا.
2. ثم ارجع إلى ورقة العمل ، والآن ، عندما تنقر نقرًا مزدوجًا فوق أي خلية وتضغط أدخل key ، تم إخفاء الصفوف التي تحتوي على خلايا فارغة في العمود A مرة واحدة ، وإذا قمت بمسح أي محتوى خلية في الخلايا المحددة في العمود A ، فسيتم إخفاء الصفوف تلقائيًا.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!