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

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

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

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


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

لنفترض أن لديك خانة اختيار تسمى 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 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (11)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف تفعل عدة مرات في نفس الصفحة؟ كيف يمكنني بعد ذلك إخفاء الورقة 3 أو 4 بمربع اختيار؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مربع اختيار فرعي خاص1_Click ()
على خطأ استئناف التالي
ThisWorkbook.Sheets ("DB2018"). المرئي = CheckBox1.Value
ThisWorkbook.Sheets ("V2018"). Visible = CheckBox1.Value
ThisWorkbook.Sheets ("R2018"). المرئي = CheckBox1.Value
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Funciona perfectamente pero، ¿cómo se pueden ocultar varias hojas con el mismo checkbox؟ موتشا جراسياس!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
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
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكنني إخفاء أو إظهار ورقة بها مربعات اختيار متعددة؟ على سبيل المثال ، يجب إخفاء الورقة "MainMenu" ما لم يتم تحديد checkbox_1 و checkbox_2 و checkbox_3.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أهلاً. أنا جديد جدًا على عناصر تحكم ActiveX. أحاول الحصول على مربعات اختيار متعددة في ورقة واحدة تخفي أوراقًا معينة وليست كلها أو نفس الصفحة في كل مرة. كان هذان السيناريوهان تجربتي. ما أحتاج إلى تحقيقه هو:
يقوم CheckBox1 بإخفاء الورقة 2
يقوم CheckBox2 بإخفاء الورقة 3
يقوم CheckBox3 بإخفاء الورقة 4
يقوم CheckBox4 بإخفاء الورقة 5
يقوم CheckBox5 بإخفاء الورقة 6
يقوم CheckBox6 بإخفاء الورقة 7
يقوم CheckBox7 بإخفاء الورقة 8
يقوم CheckBox8 بإخفاء الورقة 9
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا جاك،
ما عليك سوى تكرار الرمز وتغيير أرقام مربعات الاختيار وأسماء الأوراق. جرب الكود أدناه.

مربع اختيار فرعي خاص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

نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كريستال،
شكرا جزيلا ... لقد عملت على أكمل وجه!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا كريستال ،
هل هناك وظيفة من شأنها عكس هذا ؛ بمعنى آخر. الورقة مخفية ما لم يتم تحديد خانة الاختيار؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
اقرأ المزيد عن صفحات القضايا على حساب الكوكر. ليس 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 ،
يبدو أنك لم تتغير CheckBox1- القيمة إلى اسم مربع الاختيار المقابل في رمز VBA الثاني.
الرجاء تغيير السطر التالي في الكود الثاني:
ThisWorkbook.Sheets ("Tailler fruit et légumes"). Visible = CheckBox1.Value
إلى
ThisWorkbook.Sheets ("Tailler fruit et légumes"). Visible = CheckBox2.Value
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL