كيفية استخدام خانة الاختيار لإخفاء/إظهار الصفوف أو الأعمدة في Excel؟
في بعض الحالات، قد ترغب في التحكم الديناميكي أكثر في عرض ورقة عمل Excel الخاصة بك، مثل إظهار أو إخفاء صفوف أو أعمدة معينة من خلال تفاعل بسيط. على سبيل المثال، يمكنك استخدام خانة اختيار للكشف بسهولة عن تفاصيل إضافية أو ملخصات عند الحاجة، أو لتنظيف ورقة العمل الخاصة بك عن طريق إخفاء المعلومات التي نادرًا ما تُستخدم. أحد المتطلبات الشائعة هو تبديل رؤية بعض الصفوف أو الأعمدة عن طريق وضع علامة اختيار أو إزالتها في خانة اختيار ActiveX. يغطي هذا الدليل خطوات مفصلة حول كيفية تحقيق ذلك باستخدام VBA، ويقدم سيناريوهات قابلة للتطبيق، ويفسر أجزاء الكود الرئيسية، ويوفر حلولًا عملية بديلة لمزيد من المرونة في Excel.
استخدم خانة الاختيار لإخفاء/إظهار الصفوف أو الأعمدة باستخدام كود VBA
استخدم خانة الاختيار لإخفاء/إظهار الصفوف أو الأعمدة باستخدام كود VBA
يتيح لك استخدام VBA وخانة تحكم ActiveX التحكم في إخفاء أو إظهار صفوف أو أعمدة معينة بشكل تلقائي، مما يجعل إدارة البيانات في المصنفات المعقدة أكثر سهولة. هذه الحل مثالي عندما تحتاج إلى التحكم في الوقت الفعلي في ورقة العمل - على سبيل المثال، الكشف عن الأقسام السرية للمستخدمين المصرح لهم أو التبديل بين العرض التفصيلي والملخص.
1. قم بإدراج خانة اختيار تحكم ActiveX في ورقة العمل الخاصة بك. للقيام بذلك، اضغط على مطور > إدراج > خانة اختيار (ActiveX Control) وارسم خانة الاختيار حيث تريدها.
انقر بزر الماوس الأيمن فوق خانة الاختيار المدرجة حديثًا وحدد عرض الكود من قائمة السياق. يؤدي هذا الإجراء إلى فتح نافذة محرر VBA المرتبطة مباشرة برمز حدث خانة الاختيار. انظر لقطة الشاشة:
2. في نافذة Microsoft Visual Basic for Applications التي تفتح، انسخ والصق الكود التالي لـ VBA في نافذة الكود.
كود VBA: استخدام خانة الاختيار لإخفاء/إظهار الصفوف أو الأعمدة
Private Sub CheckBox1_Click()
[C:D].EntireColumn.Hidden = Not CheckBox1
End Subملاحظات ونصائح:
- في مثال كود VBA، [C:D].EntireColumn يتحكم في إخفاء وإظهار الأعمدة C و D. قم بتغيير هذا النطاق ليتناسب مع الصفوف أو الأعمدة التي ترغب في تبديلها. على سبيل المثال، يمكنك استخدام
[A:A].EntireColumnلعمود واحد أو[6:9].EntireRowللصفوف من 6 إلى 9. - لجعل الكود ينطبق على الصفوف بدلاً من الأعمدة، قم بتعديل الجزء المتعلق من [C:D].EntireColumn إلى [6:9].EntireRow. سيقوم هذا بإخفاء أو عرض الصفوف من 6 إلى 9 عند تحديد أو إلغاء تحديد خانة الاختيار.
3. بعد الانتهاء من كتابة الكود، اضغط على Alt + Q للخروج والعودة إلى ورقة العمل الخاصة بك من محرر Microsoft Visual Basic for Applications.
4. تأكد من الخروج من وضع التصميم عن طريق النقر على زر وضع التصميم أسفل علامة التبويب مطور. هذا يتيح لك التفاعل مع خانة الاختيار كمستخدم وليس كمحرر.
الآن، في كل مرة تقوم فيها بتحديد أو إلغاء تحديد خانة الاختيار، سيتم عرض أو إخفاء الصفوف أو الأعمدة المحددة تلقائيًا. هذه الميزة التفاعلية مفيدة بشكل خاص للوحات القيادة، التقارير المرنة، أو أوراق العمل المخصصة لمستخدمين ذوي احتياجات معلومات متباينة.
اكتشف سحر Excel مع Kutools AI
- التنفيذ الذكي: قم بعمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك يتم من خلال أوامر بسيطة.
- الصيغ المخصصة: قم بإنشاء صيغ مصممة خصيصًا لتسهيل سير عملك.
- برمجة VBA: كتابة وتطبيق أكواد VBA بسهولة.
- تفسير الصيغ: فهم الصيغ المعقدة بسهولة.
- ترجمة النصوص: تجاوز الحواجز اللغوية داخل جداول البيانات الخاصة بك.
مقالات ذات صلة:
- كيفية إخفاء/إظهار الصفوف أو الأعمدة باستخدام علامة الجمع أو الطرح في Excel؟
- كيفية إخفاء الصفوف بناءً على تاريخ اليوم في Excel؟
- كيفية إخفاء خانة الاختيار عند إخفاء الصف في Excel؟
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد