Note: The other languages of the website are Google-translated. Back to English

كيفية استخدام خانة الاختيار لإخفاء / إظهار الصفوف أو الأعمدة في إكسيل؟

لنفترض أنك بحاجة إلى استخدام مربع اختيار لإخفاء أو إظهار صفوف أو أعمدة معينة. على سبيل المثال ، عند تحديد خانة الاختيار Active X Control ، يتم عرض صفوف أو أعمدة معينة ، وإلا فسيتم إخفاؤها. توضح لك هذه المقالة طريقة كيفية استخدام مربع الاختيار لإخفاء / إظهار الصفوف أو الأعمدة في Excel بالتفاصيل.

استخدم خانة الاختيار لإخفاء / إظهار الصفوف أو الأعمدة برمز VBA


استخدم خانة الاختيار لإخفاء / إظهار الصفوف أو الأعمدة برمز VBA

يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية في إخفاء / إظهار صفوف أو أعمدة معينة باستخدام خانة الاختيار.

1. بعد إدراج مربع الاختيار Active X Control في ورقة العمل ، انقر بزر الماوس الأيمن فوق مربع الاختيار ثم حدد عرض الرمز من قائمة النقر بزر الماوس الأيمن. انظر لقطة الشاشة:

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انسخ والصق رمز فبا التالي في نافذة التعليمات البرمجية.

كود فبا: استخدم خانة الاختيار لإخفاء / إظهار الصفوف أو الأعمدة

Private Sub CheckBox1_Click()
    [C:D].EntireColumn.Hidden = Not CheckBox1
End Sub

ملحوظات:

1. في كود VBA ، [ج: د]. عامود كامل يعني أن العمود C و D سيتم إخفاؤهما أو إظهارهما عن طريق تحديد أو إلغاء تحديد خانة الاختيار المقابلة.

2. لإخفاء أو عرض صفوف معينة مثل الصف 6: 9 ، يرجى تغيير [ج: د]. عامود كامل إلى [6: 9]. الصف بأكمله في رمز VBA.

3. اضغط على قديم + Q مفاتيح في نفس الوقت لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

4. الآن يرجى إيقاف تشغيل وضع التصميم تحت المطور علامة التبويب كما هو موضح أدناه لقطة الشاشة:

من الآن فصاعدًا ، عند تحديد خانة الاختيار ، يتم عرض الصفوف أو الأعمدة المحددة. عندما يتم إلغاء تحديده ، يتم إخفاء الصفوف أو الأعمدة المحددة.


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


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (24)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك طريقة لاستخدام "مربع الاختيار استخدام لإخفاء / إظهار الصفوف أو الأعمدة برمز VBA" في ورقة عمل محمية؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
@ واين:

مربع اختيار فرعي خاص1_Click ()
ActiveSheet.Unprotect Password: = "xxxxx"
صفوف ("284: 351"). EntireRow.Hidden = Not CheckBox1
كلمة مرور ActiveSheet.Protect: = "xxxx"
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يبدو أن هذا الرمز سيذهب في اتجاه واحد فقط ، أي إخفاءه فقط وعدم إظهاره عند النقر فوقه. هل هناك طريقة لتصحيح هذا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدينا نفس المشكلة لكنني اكتشفت أننا نستخدم عناصر تحكم النموذج وليس عناصر تحكم ActiveX. يعمل الرمز بشكل مثالي في زر ActiveX Control Checkbox. ما عليك سوى إيقاف تشغيل "وضع التصميم" حتى تتمكن من النقر فوق "تحديد مربع الاختيار".
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدينا نفس المشكلة ولكن نجد طريقة لجعلها تعمل. الرجاء استخدام مربع الاختيار عناصر تحكم ActiveX وليس في مربع الاختيار "التحكم في النموذج". يعمل الرمز بشكل مثالي مع مربع اختيار ActiveX.


مربع اختيار فرعي خاص1_Click ()
[C: D] .EntireColumn.Hidden = ليس CheckBox1
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،

أحاول استخدام هذا الرمز لإخفاء / إظهار على ورقة منفصلة من خانة الاختيار. ما الذي يجب علي إضافته لإنجاح هذا العمل؟ شكرا لك مقدما.

مربع اختيار فرعي خاص1_Click ()
[C: D] .EntireColumn.Hidden = ليس CheckBox1
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
كما هو موضح في الكود التالي ، يرجى استبدال "Sheet4" باسم الورقة المنفصلة.

مربع اختيار فرعي خاص1_Click ()
[Sheet4! C: D] .EntireColumn.Hidden = Not CheckBox1
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،

مرحبًا ، لقد أنجزت الكود ، إنه عمل جيد ولكن عندما أحاول إجراء نفس الشيء في أكثر من مربع اختيار واحد في نفس الورقة ، فإنهم يعملون "معًا" ، فقط قم بإخفاء الصفوف أو إظهارها إذا تم تحديد مربعات الاختيار الثلاثة.
أحاول أن أجعل مربعات الاختيار الثلاثة هذه تعمل بشكل مستقل عن الأخرى. ودع المستخدمين يضعون علامة على مربع واحد فقط في كل مرة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا لو،
يرجى التأكد من أن مربعات الاختيار التي قمت بإنشائها هي مربعات اختيار عناصر تحكم ActiveX. تعمل مربعات الاختيار هذه بشكل مستقل في ورقة العمل الخاصة بك.
شكرا لتعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،

هل هناك طريقة لإخفاء صف واحد فقط. إذا وضعت 6: 9 ، تكون جميع الصفوف مخفية ، ولكن إذا وضعت 6 فقط ، فستظهر كخطأ. نقدر مساعدتك ، شكرا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
يرجى تغيير السطر الثاني في الكود إلى:
[6: 6]. EntireRow.Hidden = Not CheckBox1.
شكرا لتعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كنت أحاول إظهار الأدوار الثلاثة الأولى لكنها لم تكن تعمل. كيف يمكنني القيام بذلك ، وأنا أعلم أن الشخص الذي يرسل لي هذا الملف يريد أن يعرف مهارتي يمكنني حلها أم لا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ماي،
آسف لم أفهم وجهة نظرك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد نجحت ، ولكن بعد ذلك عندما حفظت الملف ، وأعد فتحه لا يعمل. حاولت حفظه كورقة ماكرو اكسل وكصنف عادي. مالخطأ الذي فعلته؟ أريد أن أعطيها لشخص آخر لاستخدامها ولا أريد أن يتم الخلط بينها.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا أنجيلا ، بعد إضافة الكود إلى المصنف ، يرجى النقر فوق ملف> حفظ باسم ، واختيار مكان حفظ الملف ، في مربع الحوار حفظ باسم ، اختر Excel Macro-Enabled Workbook (* .xlsm) من القائمة المنسدلة حفظ بنوع ، وأخيراً انقر على "حفظ". ثم أرسل هذا المصنف Excel Macro-Enabled للآخرين.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مفيد جدًا ، ولكن كيف يمكنني استخدامه لإخفاء جزء من جدول البيانات فقط؟ أعني على سبيل المثال الخلايا B2: B11 ، كيف تجمع بين هاتين الوظيفتين؟ شكرًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ماذا لو كنت أرغب في استخدام 3 مربعات اختيار مختلفة وأردت منهم كل تبديل لإخفاء مجموعات مختلفة من الصفوف؟ لقد حاولت ونظرت في كل مكان. عندما أحاول تعديل هذا الرمز ، يبدو أن مربعات الاختيار تتداخل مع بعضها البعض.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ماذا لو كنت أرغب في استخدام 3 مربعات اختيار مختلفة وأردت منهم كل تبديل لإخفاء مجموعات مختلفة من الصفوف؟ لقد حاولت ونظرت في كل مكان. عندما أحاول تعديل هذا الرمز ، يبدو أن مربعات الاختيار تتداخل مع بعضها البعض.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Esse código oculta ، mas não exixa a reexibição quando desmarcar.

Alguém pode مكمل من قبل صالح؟ Preciso de um código para ocultar e reexibir colunas indicadas.

مربع اختيار فرعي خاص1_Click ()
[C: D] .EntireColumn.Hidden = ليس CheckBox1
نهاية الفرعية

Obrigado
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ويلينجتون ميسكيتا ,
يمكن أن يحقق رمز VBA:
عندما يتم تحديد checkbox1 ، يتم عرض العمود C: D ؛
عندما يتم إلغاء تحديده ، يتم إخفاء العمود C: D.
الكود يعمل بشكل جيد في حالتي. ما هو إصدار Excel الذي تستخدمه؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
صباح الخير!
Espero que todos estejam bem!

Tenho uma situação onde preciso ocultar / reexibir a coluna useizando o Control ActiveX quando solecionado o item.

مثال: Tenho coluna com os nomes: Planejado، Realizado، Análise Vertical، Análise Vertical، Variação (R ​​$) e Variação (٪)، no entanto، que poder selecionar single as colunas intercalando se implário. Selecionar somente a coluna Realizado e Variação، mesmo não estando na Sequencia.

Desde já agradeço ،
ويلينغتون
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
آسف لا أفهم ما تعنيه. هل تمانع في تقديم لقطة شاشة لبياناتك؟
قد تحتاج إلى إرفاق لقطة شاشة أو ملف عينة لوصف المشكلة التي واجهتها بشكل أكثر وضوحًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
E الفقرة العين القطبية não Sequências؟
مثال: أ هـ ج

الموقع الجغرافي المطبق على شكل وثيقة للفقرة ألف وجيم؟

"Sub CheckBox1_Click privada ()
[C: D] .EntireColumn.Hidden = Não CheckBox1
End Sub "
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
يمكن أن يقدم لك رمز VBA التالي خدمة. يرجى محاولة إعطائها.
Private Sub CheckBox1_Click()
'Updated by Extendoffice 20220810
    [C:C, A:A].EntireColumn.Hidden = Not CheckBox1
End Sub
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة