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

كيفية إدراج مربعات الاختيار المتعددة بسرعة في إكسيل؟

كيف يمكننا إدراج مربعات اختيار متعددة في Excel بسرعة؟ يرجى اتباع هذه الطرق الصعبة في Excel:

أدخل مربعات اختيار متعددة بمقبض التعبئة

أدخل مربعات اختيار متعددة برمز VBA

أدخل وحذف مربعات اختيار متعددة بنقرة واحدة باستخدام Kutools for Excel


السهم الأزرق الحق فقاعة أدخل مربعات اختيار متعددة بمقبض التعبئة

في Excel ، يعد Fill Handle وظيفة قوية للقيام بالعديد من الأشياء. يمكن أن تملأ مربعات الاختيار كذلك. أولاً ، يجب عليك إدخال مربع اختيار. افعل ما يلي:

1. انقر المطور في شريط القائمة ، ثم انقر فوق إدراج، واختر صورة مربع الاختيار الموجودة أسفل التحكم بالنموذج. انظر لقطة الشاشة:

doc-insert-multi-checkbox1

2. انقر فوق صورة مربع الاختيار ، وسترى مؤشر علامة الجمع ، وانقر حيث تريد إضافة خانة الاختيار.

doc-insert-multi-checkbox2

3. حدد خانة الاختيار وانقلها إلى خلية ، ثم احذف اسم خانة الاختيار.

4. ثم حدد الخلية التي يبقى فيها مربع الاختيار. ثم اسحب مقبض التعبئة فوق نطاق الخلايا التي تريد تعبئتها. انظر لقطة الشاشة:

doc-insert-multi-checkbox3


أدخل مربعات اختيار متعددة في التحديدات بنقرة واحدة:

كوتولس ل إكسيل's مربعات اختيار إدراج دفعة يمكن أن تساعدك الأداة المساعدة في إدراج مربعات اختيار متعددة بسرعة في وقت واحد. انقر لتحميل هذه الميزة مجانًا.

إدراج مربعات اختيار متعددة doc 10

كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. تنزيل وتجربة مجانية الآن!


السهم الأزرق الحق فقاعة أدخل مربعات اختيار متعددة برمز VBA

إذا كنت تعتقد أن الطريقة الأولى مزعجة إلى حد ما ، فيمكن أن يساعدك رمز VBA التالي في إدراج مربعات اختيار متعددة بسهولة وسرعة.

1. انقر المطور > Visual Basic، جديد Microsoft Visual Basic للتطبيقات سيتم عرض النافذة ، انقر فوق إدراج > وحدة، وأدخل الكود التالي في ملف وحدة:

Sub InsertCheckBoxes()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Ws As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Ws = Application.ActiveSheet
Application.ScreenUpdating = False
For Each Rng In WorkRng
    With Ws.CheckBoxes.Add(Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        .Characters.Text = Rng.Value
    End With
Next
WorkRng.ClearContents
WorkRng.Select
Application.ScreenUpdating = True
End Sub

2. ثم اضغط دوك-ضرب-حساب -3 زر لتشغيل الكود. وسيظهر مربع موجه لتذكيرك بتحديد مجموعة من الخلايا التي تريد إدراج مربعات الاختيار فيها. انظر لقطة الشاشة:

doc-insert-multi-checkbox4

3. ثم انقر فوق OK، تم إدخال مربعات الاختيار في النطاق بشكل أنيق وجميل. انظر لقطة الشاشة:

doc-insert-multi-checkbox5


السهم الأزرق الحق فقاعة أدخل مربعات اختيار متعددة مع كوتولس ل إكسيل

هنا ، يمكنني أن أقدم لك طريقة سهلة وسهلة لإدراج مربعات اختيار متعددة-كوتولس ل إكسيل، بما لديها خانة اختيار إدراج الدُفعة الميزة ، يمكنك إدراج مربعات الاختيار في خلايا فارغة أو خلايا بها بيانات.

كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30.

بعد تثبيت كوتولس ل إكسيل، برجاء اتباع الخطوات التالية:

1. حدد مجموعة من الخلايا التي تريد إدراج مربعات الاختيار فيها.

2. انقر كوتولس > إدراج > مربعات اختيار إدراج دفعة، انظر لقطة الشاشة:

doc-insert-multi-checkbox06

3. ثم تم ملء الخلايا المحددة بمربعات الاختيار كما هو موضح في لقطات الشاشة التالية:

أدخل مربعات الاختيار في الخلايا الفارغة أدخل مربعات الاختيار في خلايا البيانات
doc-insert-multi-checkbox7 doc-insert-multi-checkbox8

نصائح. إذا كنت تريد حذف مربعات الاختيار المتعددة بسرعة ، فيرجى محاولة استخدام كوتولس ل إكسيلالصورة حذف خانات الاختيار كما هو موضح في الصورة التالية. تعمل بكامل طاقتها دون قيود خلال 60 يومًا ، يرجى التنزيل والحصول على نسخة تجريبية مجانية الآن.

doc-insert-multi-checkbox9

كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. تنزيل وتجربة مجانية الآن!


السهم الأزرق الحق فقاعة قم بإدراج وحذف مربعات اختيار متعددة باستخدام Kutools for Excel

كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. تنزيل وتجربة مجانية الآن!

المادة ذات الصلة:

كيفية حذف مربعات الاختيار المتعددة بسرعة في إكسيل؟


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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (51)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ماكرو ممتاز يعمل بشكل جميل لإدراج مربعات الاختيار بسرعة وسهولة في النطاق المحدد ؛ شكرا. هل تفكر في عرض مثال لماكرو لإدراج قائمة منسدلة مخصصة في النطاق المحدد بثلاثة خيارات: "نعم" و "لا" و "ربما"؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
خدعة رائعة ... لقد استمتعت بها.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لماذا يوجد ولد واحد فقط في هذا الفصل ؟؟؟؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
[اقتباس] لماذا يوجد ولد واحد فقط في هذا الفصل ؟؟؟؟بواسطة دانيال[/ اقتباس]: لول: هذا فقط للتوضيح.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يعمل ماكرو ممتاز أضف خانة اختيار في الخلية ، شكرًا لك :-)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عمل ممتاز. شكرا لك: لفة:
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مدهش! شكرا جزيلا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عندما فعلت هذا ، كان كل شيء يعمل بشكل رائع (شكرًا لك!) إلا عندما يتم تحديد المربعات ، يكون تلقائيًا لون تعبئة أصفر في الخلية. كيف يمكنني الوصول إلى حيث الشيء الوحيد الذي يحدث هو تحديد المربع ، بدون لون تعبئة؟ شكرًا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
[اقتباس] عندما فعلت هذا ، كان كل شيء يعمل بشكل رائع (شكرًا لك!) إلا عندما يتم تحديد المربعات ، يكون تلقائيًا لون تعبئة أصفر في الخلية. كيف يمكنني الوصول إلى حيث الشيء الوحيد الذي يحدث هو تحديد المربع ، بدون لون تعبئة؟ شكرًا!بقلم # شون[/ quote] فقط غيّر الخط كما هو مذكور في التعليقات:. FormatConditions (1) .Interior.ColorIndex = 6 'تغيير للون آخر عند وضع علامة عليه اتركه خارجًا تمامًا إذا كنت لا تريد تغيير اللون. هتافات!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد فعلت ذلك ، ولكن عندما أتحقق من أحد boc ، يتم فحصها جميعًا معًا. كيف يمكنني الفصل بينهما؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الكود يعمل بشكل رائع! أقوم بتحرير اللون الآن وأريد توسيط مربعات الاختيار في كل خلية ، أي فكرة عما سأحتاج إلى تعديله لذلك؟ شكرًا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
[اقتباس] الكود يعمل بشكل رائع! أقوم بتحرير اللون الآن وأريد توسيط مربعات الاختيار في كل خلية ، أي فكرة عما سأحتاج إلى تعديله لذلك؟ شكرًا!بواسطة البنفسج[/ quote] لكل Rng في WorkRng مع Ws.CheckBoxes.Add ((Rng.Offset (0، 1). left - Rng.Left) / 2 + Rng.Left - CkBoxSize، Rng.Top، 0.33، Rng.Height ) .Characters.Text = Rng.Value ينتهي بـ
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يستمر في إعطائي خطأ عند فتحه أنه يجب إصلاح الأخطاء؟ اي مساعدة؟ إذا رغب شخص ما في المساعدة ، فسأنشر التقرير الذي أحصل عليه من Microsoft office.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تتحول مربعات الاختيار إلى القليل من المكسرات عند نسخها بخلاياها المرتبطة. اضطررت إلى كتابة شيء ما لإعادة تعيين الارتباط عندما أريد نسخ هذه الخلايا في مكان آخر.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكننا بعد ذلك تصفية مربعات الاختيار هذه؟ عرض أساسا فقط أولئك الذين حضروا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكننا بعد ذلك تصفية مربعات الاختيار هذه؟ عرض أساسا فقط أولئك الذين حضروا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
نعم تماما. مربعات الاختيار هي في الواقع مستقلة عن الخلايا. إنها تطفو بشكل أساسي فوق جدول البيانات وترتبط بخلية عن طريق إدخال قيم True و False عند النقر فوقها (أو N / A إذا قمت بجعلها خانة اختيار ثلاثية الحالات). ولكن عندما تقوم بالتصفية في Excel ، فإنها تخفي صفوفًا معينة. لن يخفي خانات الاختيار. أنا حقًا لا أقترح التصفية باستخدام هذا الماكرو. ستحدث أشياء غريبة وقد لا تدرك وجود العديد من مربعات الاختيار فوق بعضها البعض أو أن مربعي اختيار مرتبطين بخلية واحدة والخلية غير مرتبطة بخانات اختيار. ما أفعله عادةً هو إنشاء قائمة وبدلاً من علامات الاختيار ، سأكتب 1 أو 0 في الخلية المجاورة ثم الإجمالي. يمكنك حتى وضع جدول محوري للشيء إذا أصبحت معلوماتك معقدة. على سبيل المثال ، لنفترض أن لديك عمودًا آخر يحتوي على جنس الحاضرين. يمكنك معرفة عدد الرجال وعدد النساء الذين حضروا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا !، لخانة الاختيار.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك طريقة لجعل نص مربع الاختيار هو نص الخلية المحددة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
نعم. نعم هنالك. هناك دائما وسيلة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
[اقتباس] نعم. نعم هنالك. هناك دائما وسيلة.بواسطة داني[/ اقتباس] حسنا. كيف أنجز هذا. أنا لست ضليعًا في بناء جملة التفوق. لقد جربت نصًا و. قيمة (لـ c في الكود أعلاه). مع نتائج غير صحيحة. لقد جربت عددًا لا يحصى من الأشياء التي من الطبيعي أن تكون النتيجة ولكن لم يحالفني الحظ. ما لدي هو قائمة كبيرة من العناصر التي أود استبدال الرمز النقطي بها بخانة اختيار وتكون قيمة ونص هذا المربع هو النص الأصلي لعنصر التعداد النقطي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا يا شباب ، هذا مفيد جدًا - شكرًا! سؤال سريع ، أنا عديم الخبرة تمامًا في هذا النوع من الأشياء ، آسف جدًا إذا كانت غبية! أرغب فقط في الحصول على مربعات اختيار (بدون صح أو خطأ) وأود أن تكون المربعات صفراء إذا لم يتم وضع علامة عليها ولكن لم يتم ملء المربعات بمجرد وضع علامة عليها ، للإشارة إلى الطلاب الذين لم يسلموا المسودات والتقييمات ، وما إلى ذلك. هل هذا ممكن؟ هل يمكن لشخص ما أن ينشر الرمز الفعلي لهذا ، أو يطلعني عليه؟ شكرا كثيرا مسبقا!!!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيفية تغيير العنوان المرجعي لمربعات اختيار متعددة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي جدول بيانات Excel يحتوي على سؤال ، ثم توجد أعمدة أخرى على اليمين "عناصر التحكم ، والعمود f و G مع مربعات الاختيار التي تم التحقق منها ، والعمود F نعم أو العمود G لا. أريد فقط استخدام عامل التصفية للحصول على كل لفات بها علامة اختيار ، لكن المرشح لا يرى علامة الاختيار
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيفية تغيير عنوان الخلية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Sub RelinkCheckBoxes () 'أنت تحدد الخلايا التي تتضمن مربعات الاختيار التي تعمل بشكل غريب. ثم تقوم بتشغيل الماكرو. إنه يغير مربعات الاختيار هذه بحيث تتوافق الخلايا المرتبطة مع الخلايا الموجودة تحتها. كما أنه يجعل نص مربع الاختيار يتحول إلى نص الخلية. خافت ckbox على شكل خافت للشكل rngLinkedCell كنطاق إذا كان ActiveSheet.CheckBoxes.Count = 0 ثم قم بإنهاء Sub 'اختبار هذا التحديد هو نطاق. إذا كان TypeName (التحديد) "Range" ، فقم بإنهاء Sub لكل ckbox في ActiveSheet.Shapes اختبار أن الشكل هو عنصر تحكم. إذا كان ckbox.Type = msoFormControl ، فاختبر أن عنصر التحكم عبارة عن خانة اختيار إذا كان ckbox.FormControlType = xlCheckBox ثم 'ابحث عن الخلية ضمن مربع الاختيار الموجود ضمن التحديد Set rngLinkedCell = Application.Intersect (ckbox.TopLeftCell، Selection)' عيّن عنوان ارتباط جديد وأعد تسمية خانة الاختيار للمطابقة. إذا لم يكن rngLinkedCell شيئًا فمع ckbox .OLEFormat.Object.LinkedCell = rngLinkedCell.Address .Name = rngLinkedCell.Address .TextFrame.Characters.Text = rngLinkedCell.Text ينتهي بـ End If End If Next If Next
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عمل الكود بشكل رائع. شكرًا لك!
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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