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

كيفية إلغاء تحديد أو إلغاء تحديد جميع مربعات الاختيار مرة واحدة في 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 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (14)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا جزيلاً على رمز vba هذا ، ساعد كثيرًا.

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

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

يرجى ملاحظة أن الكلمة "Extendoffcie" غير مكتوبة بشكل صحيح. لا ينبغي أن يكون "Extendofficeعلى أي حال ، أردت فقط أن أضع ذلك هناك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ماذا لو أردت استخدام زر لتنشيط الماكرو لمسح المربعات؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا أرييل ،
لاستخدام زر لتنشيط الماكرو ، يجب أولاً إدراج زر من القائمة المنسدلة الأشكال ، ثم النقر بزر الماوس الأيمن فوق الزر واختيار تعيين ماكرو من قائمة السياق ، ثم تحديد اسم الماكرو في مربع الحوار تعيين ماكرو . ثم انقر فوق "موافق" ، وسيتم ربط رمز الماكرو بالزر.
من فضلك حاول ، آمل أن يساعدك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف أقوم بإلغاء تحديد المربعات الموجودة في نطاق خلايا معين في الورقة النشطة؟ لدي 3 قوائم في ورقة واحدة (مهام يومية / أسبوعية / شهرية) وأردت إنشاء زر "مسح الكل" لكل قائمة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مساعدة كبيرة! شكرا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
OMG شكرًا لك ، هذا الموقع يوفر الحياة :)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
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.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بونجور لينداس ،
Je vous en prie. Heureux que cela aide. Pour toute question، n'hésitez pas à nous contacter. مرور عام من بون بونيه.
مع خالص التقدير،
ماندي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
beim öffnen der datei sollten zwei voneinander abhängige CheckBox1 u. CheckBox2 nicht aktiviert sein

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

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

يرجى المحاولة ، آمل أن يساعدك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف سيتم مسح جميع مربعات الاختيار في جميع أوراق العمل؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا رامون

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


يرجى المحاولة ، آمل أن يساعدك هذا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكنني مسح جميع مربعات الاختيار في جميع أوراق العمل؟
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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