كيفية إلغاء تحديد أو إلغاء تحديد جميع مربعات الاختيار مرة واحدة في Excel؟
كيف يمكنك إلغاء تحديد أو إلغاء تحديد جميع مربعات الاختيار المحددة مرة واحدة في ورقة العمل كما هو موضح في لقطة الشاشة التالية؟ في هذا المقال سأتحدث عن بعض الأكواد السريعة لحلها.
قم بإلغاء تحديد أو إلغاء تحديد جميع خانات الاختيار المحددة برمز VBA
قم بإلغاء تحديد أو إلغاء تحديد جميع خانات الاختيار المحددة برمز VBA
قم بإلغاء تحديد أو إلغاء تحديد جميع خانات الاختيار المحددة (عناصر التحكم في النموذج):
إذا كانت خانات الاختيار الخاصة بك عبارة عن عناصر تحكم في النموذج ، فيمكنك إلغاء تحديدها مرة واحدة باستخدام رمز VBA التالي:
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
كود فبا: قم بإلغاء تحديد أو إلغاء تحديد كافة خانات الاختيار المحددة (عناصر تحكم النموذج):
Sub ClearCheckBoxes()
'Updateby Extendoffice
Dim chkBox As Excel.CheckBox
Application.ScreenUpdating = False
For Each chkBox In ActiveSheet.CheckBoxes
chkBox.Value = xlOff
Next chkBox
Application.ScreenUpdating = True
End Sub
3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وتم إلغاء تحديد جميع مربعات الاختيار مرة واحدة في ورقة العمل النشطة.
قم بإلغاء تحديد أو إلغاء تحديد كافة خانات الاختيار المحددة (عناصر تحكم ActiveX):
إذا كانت خانات الاختيار عبارة عن عناصر تحكم ActiveX ، فيرجى تطبيق رمز VBA أدناه:
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
كود فبا: قم بإلغاء تحديد أو إلغاء تحديد كافة خانات الاختيار المحددة (عناصر تحكم ActiveX):
Sub clearcheckbox()
'Updateby Extendoffcie
Dim c As Object
For Each c In ActiveSheet.OLEObjects
If InStr(1, c.Name, "CheckBox") > 0 Then
c.Object.Value = False
End If
Next
End Sub
3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وتم إلغاء تحديد جميع مربعات الاختيار مرة واحدة في ورقة العمل النشطة.
أدخل خانات اختيار متعددة في التحديدات مرة واحدة
كوتولس ل إكسيل's مربعات اختيار إدراج دفعة يمكن أن تساعدك الأداة المساعدة في إدراج مربعات اختيار متعددة بسرعة في وقت واحد. انقر لتنزيل Kutools for Excel!
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!