كيف يمكن إخفاء الصفوف تلقائيًا التي تحتوي على خلايا فارغة في عمود معين في Excel؟
إذا كانت مجموعة البيانات الخاصة بك في Excel تحتوي على خلايا فارغة في عمود معين، فقد ترغب في إخفاء الصفوف التي تتضمّن تلك الخلايا الفارغة تلقائيًا. في هذا الدليل، سنعرض لك كيفية إخفاء هذه الصفوف آليًّا باستخدام كود VBA بسيط، مما يُسهّل عليك إدارة بياناتك دون الحاجة إلى التصفية اليدوية أو إخفاء الصفوف يدويًّا.
استخدم كود VBA لإخفاء الصفوف تلقائيًا إذا كانت تحتوي على خلايا فارغة في عمود
استخدم كود VBA لإخفاء الصفوف تلقائيًا إذا كانت تحتوي على خلايا فارغة في عمود
يمكن للكود التالي أن يساعدك في إخفاء جميع الصفوف التي تحتوي على خلايا فارغة في عمود معيّن دفعة واحدة. بل والأكثر من ذلك، إذا قمت بحذف محتوى أي خلية في ذلك العمود، فسيتم إخفاء الصف تلقائيًا أيضًا! يرجى اتباع الخطوات التالية:
1. انقر بزر الماوس الأيمن على لسان ورقة العمل التي تريد إخفاء الصفوف ذات الخلايا الفارغة فيها تلقائيًا، ثم اختر «عرض الكود» (View Code) من القائمة السياقية. بعد فتح نافذة «مايكروسوفت فيجوال بيسك للتطبيقات» (Microsoft Visual Basic for Applications)، انسخ والصق الكود التالي في «الوحدة البرمجية» (Module) الفارغة:
كود VBA: إخفاء الصفوف تلقائيًا إذا كانت تحتوي على خلايا فارغة في عمود:
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. الآن، عُد إلى ورقة العمل. عند النقر المزدوج على أي خلية ثم الضغط على مفتاح «Enter»، سيتم إخفاء الصفوف التي تحتوي على خلايا فارغة في العمود A فورًا. بالإضافة إلى ذلك، إذا قمت بمسح محتوى أي خلية ضمن النطاق المحدد في العمود A، فسيتم إخفاء الصفوف تلقائيًا.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل