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

خانة الاختيار هي ميزة مفيدة في Excel. سأوضح لك هنا كيفية استخدام مربع اختيار لإخفاء أو إظهار ورقة عمل محددة في Excel.

استخدم خانة الاختيار لإخفاء ورقة العمل أو إظهارها في Excel

استخدم خانة الاختيار لإخفاء ورقة العمل أو إظهارها في Excel

رائعة حقا! استخدام علامات تبويب فعالة في Excel مثل Chrome و Firefox و Safari!

وفر 50٪ من وقتك ، وقلل آلاف النقرات بالماوس كل يوم!

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

1. افتح ورقة العمل التي تحتوي على Checkbox1 ، وانقر بزر الماوس الأيمن فوق علامة تبويب الورقة ، ثم انقر فوق عرض الرمز من قائمة النقر بزر الماوس الأيمن.

ملاحظة: يجب أن تكون خانة الاختيار خانة اختيار ActiveX عند الإدراج.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ ولصق رمز فبا أدناه في نافذة التعليمات البرمجية. انظر لقطة الشاشة:

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

Private Sub CheckBox1_Click()
    On Error Resume Next
    ThisWorkbook.Sheets("Sheet5").Visible = CheckBox1.Value
End Sub

ملاحظة: في الكود ، الورقة 5 هي اسم ورقة العمل التي ستخفيها أو تُظهرها باستخدام checkbox1. يرجى استبدال اسم ورقة العمل كما تريد.

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

من الآن فصاعدًا ، عند إلغاء تحديد خانة الاختيار 1 ، سيتم إخفاء ورقة العمل المحددة "ورقة 5" تلقائيًا. ويمكنك إظهاره عن طريق تحديد خانة الاختيار. انظر لقطة الشاشة:

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

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

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

اقرأ أكثر... تحميل مجاني ... شراء...

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

تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...

التعليقات (11)

لا يوجد تقييم. كن أول من يقيم!

كورتني

منذ حوالي 5 سنوات

#21493

تم تصغير هذا التعليق بواسطة المشرف على الموقع

كيف تفعل عدة مرات في نفس الصفحة؟ كيف يمكنني بعد ذلك إخفاء الورقة 3 أو 4 بمربع اختيار؟

رد

ايتور هيدز كورتني

منذ حوالي 4 سنوات

#21494

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مربع اختيار فرعي خاص1_Click ()
على خطأ استئناف التالي
ThisWorkbook.Sheets ("DB2018"). المرئي = CheckBox1.Value
ThisWorkbook.Sheets ("V2018"). Visible = CheckBox1.Value
ThisWorkbook.Sheets ("R2018"). المرئي = CheckBox1.Value
نهاية الفرعية

رد

بلغ

ايتور هيدز

منذ حوالي 4 سنوات

#24303

تم تصغير هذا التعليق بواسطة المشرف على الموقع

Funciona perfectamente pero، ¿cómo se pueden ocultar varias hojas con el mismo checkbox؟ موتشا جراسياس!

رد

بلغ

ايتور هيدز ايتور هيدز

منذ حوالي 4 سنوات

#24304

تم تصغير هذا التعليق بواسطة المشرف على الموقع

Basta con copiar la linea tantas veces como se quiera nombrando la hoja que debe ser ocultada.

مربع اختيار فرعي خاص1_Click ()
على خطأ استئناف التالي
ThisWorkbook.Sheets ("DB2018"). المرئي = CheckBox1.Value
ThisWorkbook.Sheets ("V2018"). Visible = CheckBox1.Value
ThisWorkbook.Sheets ("R2018"). المرئي = CheckBox1.Value
نهاية الفرعية

رد

بلغ

Syahrul

منذ حوالي 3 سنوات

#29743

تم تصغير هذا التعليق بواسطة المشرف على الموقع

كيف يمكنني إخفاء أو إظهار ورقة بها مربعات اختيار متعددة؟ على سبيل المثال ، يجب إخفاء الورقة "MainMenu" ما لم يتم تحديد checkbox_1 و checkbox_2 و checkbox_3.

رد

جاك

منذ حوالي 2 سنوات

#33485

تم تصغير هذا التعليق بواسطة المشرف على الموقع

أهلاً. أنا جديد جدًا على عناصر تحكم ActiveX. أحاول الحصول على مربعات اختيار متعددة في ورقة واحدة تخفي أوراقًا معينة وليست كلها أو نفس الصفحة في كل مرة. كان هذان السيناريوهان تجربتي. ما أحتاج إلى تحقيقه هو:
يقوم CheckBox1 بإخفاء الورقة 2
يقوم CheckBox2 بإخفاء الورقة 3
يقوم CheckBox3 بإخفاء الورقة 4
يقوم CheckBox4 بإخفاء الورقة 5
يقوم CheckBox5 بإخفاء الورقة 6
يقوم CheckBox6 بإخفاء الورقة 7
يقوم CheckBox7 بإخفاء الورقة 8
يقوم CheckBox8 بإخفاء الورقة 9

رد

كريستال جاك

منذ حوالي 2 سنوات

#33486

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا جاك،
ما عليك سوى تكرار الرمز وتغيير أرقام مربعات الاختيار وأسماء الأوراق. جرب الكود أدناه.

مربع اختيار فرعي خاص1_Click ()

على خطأ استئناف التالي

ThisWorkbook.Sheets ("Sheet2"). Visible = CheckBox1.Value

نهاية الفرعية

مربع اختيار فرعي خاص2_Click ()

على خطأ استئناف التالي

ThisWorkbook.Sheets ("Sheet3"). Visible = CheckBox2.Value

نهاية الفرعية

مربع اختيار فرعي خاص3_Click ()

على خطأ استئناف التالي

ThisWorkbook.Sheets ("Sheet4"). Visible = CheckBox3.Value

نهاية الفرعية

مربع اختيار فرعي خاص4_Click ()

على خطأ استئناف التالي

ThisWorkbook.Sheets ("Sheet5"). Visible = CheckBox4.Value

نهاية الفرعية

مربع اختيار فرعي خاص5_Click ()

على خطأ استئناف التالي

ThisWorkbook.Sheets ("Sheet6"). Visible = CheckBox5.Value

نهاية الفرعية

مربع اختيار فرعي خاص6_Click ()

على خطأ استئناف التالي

ThisWorkbook.Sheets ("Sheet7"). Visible = CheckBox6.Value

نهاية الفرعية

مربع اختيار فرعي خاص7_Click ()

على خطأ استئناف التالي

ThisWorkbook.Sheets ("Sheet8"). Visible = CheckBox7.Value

نهاية الفرعية

مربع اختيار فرعي خاص8_Click ()

على خطأ استئناف التالي

ThisWorkbook.Sheets ("Sheet9"). Visible = CheckBox8.Value

نهاية الفرعية

رد

بلغ

جاك كريستال

منذ حوالي 2 سنوات

#33487

تم تصغير هذا التعليق بواسطة المشرف على الموقع

كريستال،
شكرا جزيلا ... لقد عملت على أكمل وجه!

رد

JED

منذ حوالي سنة واحدة

#36736

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا كريستال ،
هل هناك وظيفة من شأنها عكس هذا ؛ بمعنى آخر. الورقة مخفية ما لم يتم تحديد خانة الاختيار؟

رد

Sky53

منذ حوالي 4 أشهر

#40280

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبا،
اقرأ المزيد عن صفحات القضايا على حساب الكوكر. ليس Chekbox لا يروج لـ sur la même feuille de calcul.
J'ai copié le premier code et l'ai dupliquer.

مربع اختيار فرعي خاص1_Click ()
على خطأ استئناف التالي
ThisWorkbook.Sheets ("Eplucher، laver، désinfecter"). Visible = CheckBox1.Value
نهاية الفرعية

مربع اختيار فرعي خاص2_Click ()
على خطأ استئناف التالي
ThisWorkbook.Sheets ("Tailler fruit et légumes"). Visible = CheckBox1.Value
نهاية الفرعية

Malheureusement، si je ne coche pas la première case ma seconde case ne fonctionne pas. Pourriez-vous m'aider SVP

رد

كريستال Sky53

منذ حوالي 4 أشهر

#40364

تم تصغير هذا التعليق بواسطة المشرف على الموقع

مرحبًا Sky53 ،
يبدو أنك لم تتغير CheckBox1- القيمة إلى اسم مربع الاختيار المقابل في رمز VBA الثاني.
الرجاء تغيير السطر التالي في الكود الثاني:
ThisWorkbook.Sheets ("Tailler fruit et légumes"). Visible = CheckBox1.Value
إلى
ThisWorkbook.Sheets ("Tailler fruit et légumes"). Visible = CheckBox2.Value

رد

بلغ

لا توجد تعليقات منشورة هنا حتى الآن

اترك تعليقاتك

النشر كضيف

الدخول

الاسم (مطلوب)

البريد الإلكتروني (مطلوب)

قيم المنشور:

إعادة تعيين

0 الشخصيات

أنا أوافق على أحكام وشروط