كيفية استخدام خانة الاختيار لإخفاء ورقة العمل أو إظهارها في 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-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

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

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

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

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

8 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest

or post as a guest, but your post won't be published automatically.

Loading comment... The comment will be refreshed after 00:00.

To post as a guest, your comment is unpublished.
Jack · 1 years ago
Hi. I'm very new to ActiveX Controls. I am trying to have multiple checkboxes on one sheet that will hide specific sheets and not all of them or the same one every time. These two scenarios have been my experience. What I need to accomplish is:
CheckBox1 hides Sheet2
CheckBox2 hides Sheet3
CheckBox3 hides Sheet4
CheckBox4 hides Sheet5
CheckBox5 hides Sheet6
CheckBox6 hides Sheet7
CheckBox7 hides Sheet8
CheckBox8 hides Sheet9
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi Jack,
  Just repeat the code and change the checkbox numbers and the sheet names. Try the below code.
  
  Private Sub CheckBox1_Click()
  On Error Resume Next
  ThisWorkbook.Sheets("Sheet2").Visible = CheckBox1.Value
  End Sub
  Private Sub CheckBox2_Click()
  On Error Resume Next
  ThisWorkbook.Sheets("Sheet3").Visible = CheckBox2.Value
  End Sub
  Private Sub CheckBox3_Click()
  On Error Resume Next
  ThisWorkbook.Sheets("Sheet4").Visible = CheckBox3.Value
  End Sub
  Private Sub CheckBox4_Click()
  On Error Resume Next
  ThisWorkbook.Sheets("Sheet5").Visible = CheckBox4.Value
  End Sub
  Private Sub CheckBox5_Click()
  On Error Resume Next
  ThisWorkbook.Sheets("Sheet6").Visible = CheckBox5.Value
  End Sub
  Private Sub CheckBox6_Click()
  On Error Resume Next
  ThisWorkbook.Sheets("Sheet7").Visible = CheckBox6.Value
  End Sub
  Private Sub CheckBox7_Click()
  On Error Resume Next
  ThisWorkbook.Sheets("Sheet8").Visible = CheckBox7.Value
  End Sub
  Private Sub CheckBox8_Click()
  On Error Resume Next
  ThisWorkbook.Sheets("Sheet9").Visible = CheckBox8.Value
  End Sub
  
  Reply
  
  To post as a guest, your comment is unpublished.
  Jack · 1 years ago
  
  Crystal,
  Thanks so much...it worked perfectly!
  
  Reply
To post as a guest, your comment is unpublished.
Syahrul · 2 years ago
How do I hide or unhide a sheet with multiple checkbox? For example sheet "MainMenu" need to be hide unless checkbox_1, checkbox_2 & checkbox_3 are checked.
- Reply
To post as a guest, your comment is unpublished.
aitorhdzramos@gmail.com · 3 years ago
Funciona perfectamente pero, ¿cómo se pueden ocultar varias hojas con el mismo checkbox? Muchas gracias!
- Reply
- To post as a guest, your comment is unpublished.
  aitorhdzramos@gmail.com · 3 years ago
  
  Basta con copiar la linea tantas veces como se quiera nombrando la hoja que debe ser ocultada.
  
  Private Sub CheckBox1_Click()
  On Error Resume Next
  ThisWorkbook.Sheets("DB2018").Visible = CheckBox1.Value
  ThisWorkbook.Sheets("V2018").Visible = CheckBox1.Value
  ThisWorkbook.Sheets("R2018").Visible = CheckBox1.Value
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
Kourtney · 4 years ago
How do you do multiple on the same page? How do i then hide sheet 3 or 4 with a checkbox?
- Reply
- To post as a guest, your comment is unpublished.
  aitorhdzramos@gmail.com · 3 years ago
  
  Private Sub CheckBox1_Click()
  On Error Resume Next
  ThisWorkbook.Sheets("DB2018").Visible = CheckBox1.Value
  ThisWorkbook.Sheets("V2018").Visible = CheckBox1.Value
  ThisWorkbook.Sheets("R2018").Visible = CheckBox1.Value
  End Sub
  
  Reply

تسجيل الدخول إلى حسابك

استعادة كلمة المرور