كيفية إلغاء تحديد أو إزالة التحديد من جميع خانات الاختيار دفعة واحدة في Excel؟

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

إلغاء تحديد أو إزالة التحديد من جميع خانات الاختيار المحددة باستخدام كود VBA

إلغاء تحديد أو إزالة التحديد من جميع خانات الاختيار المحددة باستخدام كود VBA

إلغاء تحديد أو إزالة التحديد من جميع خانات الاختيار (عناصر التحكم في النماذج):

إذا كانت خانات الاختيار الخاصة بك هي عناصر تحكم في النماذج، يمكنك إلغاء تحديدها دفعة واحدة باستخدام الكود التالي لـ VBA:

1. اضغط مع الاستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود VBA: إلغاء تحديد أو إزالة التحديد من جميع خانات الاختيار (عناصر التحكم في النماذج):

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 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود VBA: إلغاء تحديد أو إزالة التحديد من جميع خانات الاختيار (عناصر التحكم 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 لتشغيل هذا الكود، وستتم إزالة التحديد من جميع خانات الاختيار المحددة دفعة واحدة في ورقة العمل النشطة.

إدراج عدة خانات اختيار في التحديدات دفعة واحدة

يمكن أن تساعدك أداة Kutools لـ Excel الخاصة بإدراج خانات اختيار بشكل مجمّع على إدراج عدة خانات اختيار بسرعة دفعة واحدة. انقر لتنزيل Kutools لـ Excel!