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

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

doc قم بإلغاء تحديد مربعات الاختيار 1

قم بإلغاء تحديد أو إلغاء تحديد جميع خانات الاختيار المحددة برمز 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!

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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!

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

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

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

biqBob

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

#25238

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

شكرًا جزيلاً على رمز vba هذا ، ساعد كثيرًا.

لمعلوماتك للأشخاص الذين لا يحصلون عليها للعمل عن طريق الضغط على F5 ، ببساطة:

علامة تبويب المطور> وحدات الماكرو> حدد الوحدة النمطية التي تم إنشاؤها للتو وانقر فوق خيارات> اكتب حرفًا للاختصار ، مثل ctrl + j أو ctrl + k.

رد

روثمان biqBob

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

#25239

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

شكرا لمساعدتكم مع هذا. إنه محل تقدير كبير. ومع ذلك ، يرجى ملاحظة: التهجئة خاطئة في الكود للخطوة رقم 2. كود فبا: قم بإلغاء تحديد أو إلغاء تحديد كافة خانات الاختيار المحددة (عناصر تحكم ActiveX):
مربع الاختيار الفرعي ()
تحديث بواسطة Extendoffcie
خافت ج ككائن
لكل c في ActiveSheet.OLEObjects
إذا كان InStr (1، c.Name، "CheckBox")> 0 ثم
c.Object.Value = خطأ
إنهاء حالة
التالى
نهاية الفرعية

يرجى ملاحظة أن الكلمة "Extendoffcie" غير مكتوبة بشكل صحيح. لا ينبغي أن يكون "Extendofficeعلى أي حال ، أردت فقط أن أضع ذلك هناك

رد

ارييل

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

#31682

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

ماذا لو أردت استخدام زر لتنشيط الماكرو لمسح المربعات؟

رد

سكايانغ ارييل

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

#31683

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

مرحبًا أرييل ،
لاستخدام زر لتنشيط الماكرو ، يجب أولاً إدراج زر من القائمة المنسدلة الأشكال ، ثم النقر بزر الماوس الأيمن فوق الزر واختيار تعيين ماكرو من قائمة السياق ، ثم تحديد اسم الماكرو في مربع الحوار تعيين ماكرو . ثم انقر فوق "موافق" ، وسيتم ربط رمز الماكرو بالزر.
من فضلك حاول ، آمل أن يساعدك!

عرض المرفقات (1 / 5)

رد

بلغ

يونيو

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

#33393

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

كيف أقوم بإلغاء تحديد المربعات الموجودة في نطاق خلايا معين في الورقة النشطة؟ لدي 3 قوائم في ورقة واحدة (مهام يومية / أسبوعية / شهرية) وأردت إنشاء زر "مسح الكل" لكل قائمة.

رد

ريكا

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

#36759

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

مساعدة كبيرة! شكرا!

رد

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

#36814

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

OMG شكرًا لك ، هذا الموقع يوفر الحياة :)

رد

يند

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

#37278

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

Merci beaucoup d'avoir partagé le code pour décocher des éléments "CheckBox"، cela m'a sauvé! : o) En effet، en codant un Formire de saisie fait dans une feuille، je cherchais à trouble un moyen de décocher les cases (en guise de réinitialisation du formatire) et je ne trouble pas (à part avec la méthode "Select" qui est، comme nous le savons tous، à bannir)، tout simplement car: => la propriété ".CheckBoxes" n'existe pas en propriété d'une "Worksheet"! => l'Objet "CheckBoxes" ne figure pas non plus dans l'explorateur d'objets! C'est lunaire cette histoire ... Alors merci énormément.Bien à vous.

رد

مانديزو يند

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

#37279

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

بونجور لينداس ،
Je vous en prie. Heureux que cela aide. Pour toute question، n'hésitez pas à nous contacter. مرور عام من بون بونيه.
مع خالص التقدير،
ماندي

رد

بلغ

بفليجر سيغفريد

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

#39962

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

مرحبا،
beim öffnen der datei sollten zwei voneinander abhängige CheckBox1 u. CheckBox2 nicht aktiviert sein

مربع اختيار فرعي خاص2_Click ()
إذا كان CheckBox2 = صحيح إذن
CheckBox1 = خطأ
إنهاء حالة
نهاية الفرعية
مربع اختيار فرعي خاص1_Click ()
إذا كان CheckBox1 = صحيح إذن
CheckBox2 = خطأ
إنهاء حالة
نهاية الفرعية

شكرا لمساعدتكم

رد

سكايانغ بفليجر سيغفريد

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

#39993

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

مرحبا سيغفريد
إذا كنت ترغب في تحديد واحد وتعطيل آخر ، يرجى تطبيق الكود أدناه:
ملاحظة: مربع الاختيار هنا يجب استخدام مربع الاختيار عنصر تحكم ActiveX.

Private Sub CheckBox2_Click()
If CheckBox2 = True Then
CheckBox1.Enabled = False
Else
CheckBox1.Enabled = True
End If
End Sub
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
CheckBox2.Enabled = False
Else
CheckBox2.Enabled = True
End If
End Sub

يرجى المحاولة ، آمل أن يساعدك!

رد

بلغ

رامون توريس

قبل حوالي 1 شهر

#41951

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

كيف سيتم مسح جميع مربعات الاختيار في جميع أوراق العمل؟

رد

سكايانغ رامون توريس

قبل حوالي 1 شهر

#42031

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

مرحبا رامون

لمسح جميع مربعات الاختيار الموجودة في جميع الأوراق ، يرجى تطبيق الأكواد التالية:
قم بإلغاء تحديد جميع مربعات الاختيار من جميع الأوراق (عناصر التحكم في النموذج):

Sub Uncheckallcheckboxes()
    Dim sh As Worksheet
    For Each sh In Sheets
        On Error Resume Next
            sh.CheckBoxes.Value = False
        On Error GoTo 0
    Next sh
End Sub

قم بإلغاء تحديد جميع مربعات الاختيار من كل الأوراق (عناصر تحكم ActiveX):

Sub uncheck_all_ActiveX_checkboxes()
    Dim ws As Worksheet
    Dim xbox As OLEObject
    For Each ws In ThisWorkbook.Worksheets
        For Each xbox In ws.OLEObjects
            ws.OLEObjects(xbox.Name).Object.Value = False
        Next
    Next
End Sub

يرجى المحاولة ، آمل أن يساعدك هذا!

رد

بلغ

رامون توريس

قبل حوالي 1 شهر

#41952

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

كيف يمكنني مسح جميع مربعات الاختيار في جميع أوراق العمل؟

رد

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

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

النشر كضيف

الدخول

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

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

قيم المنشور:

إعادة تعيين

0 الشخصيات

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