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

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

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

ربط مربعات الاختيار بخلايا متعددة مع صيغة واحدة تلو الأخرى

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


السهم الأزرق الحق فقاعة ربط مربعات الاختيار بخلايا متعددة مع صيغة واحدة تلو الأخرى

لربط خانة الاختيار بخلية معينة ، في الواقع ، يمكنك تطبيق صيغة بسيطة لربطها يدويًا.

1. بعد إدخال مربعات الاختيار في ورقة العمل الخاصة بك ، لتحديد خانة الاختيار ، يرجى الضغط CTRL مفتاح ، ثم انقر فوق مربع الاختيار الأول الذي تريد ربطه بخلية أخرى.

2. ثم في شريط الصيغة ، اكتب علامة التساوي =، ثم انقر فوق خلية واحدة تريد ربط مربع الاختيار بها ، B2 على سبيل المثال ، انظر لقطة الشاشة:

doc-link-multi-checkboxes-1

3. ثم اضغط أدخل على لوحة المفاتيح ، الآن ، عند تحديد مربع الاختيار هذا ، سيتم عرض الخلية المرتبطة الحقيقة، إذا ألغِ تحديده ، فسيتم عرضه خاطئة، انظر لقطة الشاشة:

doc-link-multi-checkboxes-2

4. كرر الخطوات المذكورة أعلاه لربط مربعات الاختيار الأخرى واحدة تلو الأخرى.


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

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

1. انتقل إلى ورقة العمل الخاصة بك مع قائمة مربعات الاختيار.

2. اضغط باستمرار على ALT + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

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

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

Sub LinkChecks()
'Update by Extendoffice
Dim xCB
Dim xCChar
i = 2
xCChar = "B"
For Each xCB In ActiveSheet.CheckBoxes
If xCB.Value = 1 Then
    Cells(i, xCChar).Value = True
Else
    Cells(i, xCChar).Value = False
End If
xCB.LinkedCell = Cells(i, xCChar).Address
i = i + 1
Next xCB
End Sub

4. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، تم ربط جميع مربعات الاختيار في ورقة العمل النشطة بالخلايا ، عند تحديد خانة الاختيار ، ستظهر الخلية النسبية الخاصة بها الحقيقة، إذا قمت بإلغاء تحديد خانة اختيار ، فيجب أن تظهر الخلية المرتبطة خاطئة، انظر لقطة الشاشة:

doc-link-multi-checkboxes-3

ملاحظة: في الكود أعلاه ، I = 2، الرقم 2 هو صف البداية من مربع الاختيار الخاص بك ، والحرف B هو موقع العمود حيث تريد ربط مربعات الاختيار به. يمكنك تغييرها حسب حاجتك.


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

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

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

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


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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (16)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي أكثر من 40000 خلية بها خانة اختيار. عندما أستخدم هذا الرمز ، يستغرق الأمر أكثر من 5 ثوانٍ للمعالجة ، وأنا أعرّف وحدات ماكرو مختلفة لخلايا مختلفة ولكن لا تزال لدي المشكلة ، فماذا أفعل؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، في كود VBA الخاص بك: ربط مربعات الاختيار بخلايا متعددة في وقت واحد ، تم إعداد الكود لربط الخلية الموجودة أسفلها. كيف يكون الرمز إذا أردت ربط الخلية إلى يسار الأولى؟ شكرًا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكنني فعل ذلك وبرمجة الصناديق لتقول شيئًا آخر غير الصواب والخطأ؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا! منشور لطيف حول VBA ... ولكن ماذا لو كان هناك 3 أعمدة بها مربعات اختيار يجب ربطها في ثلاثة أعمدة أخرى أيضًا؟ لنفترض أن الأعمدة B و C و D بها مربعات اختيار ويجب ربطها بالأعمدة H و I و J على التوالي.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لدي نفس المشكلة - هل اكتشفت كيفية التغلب على هذا؟ شكرا بول
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مهلا،

جرب هذا:

رابط فرعي
خافت chk باسم CheckBox
خافت lCol طويل
lCol = 2 'عدد الأعمدة الموجودة على يمين الارتباط

لكل chk في ActiveSheet.CheckBoxes
مع chk
.LinkedCell = _
. TopLeftCell.Offset (0، lCol). العنوان
انتهت ب
الفصل التالي

نهاية الفرعية



إذا كان لديك على سبيل المثال ، فإن مربعات الاختيار في D و E و F تغير "Icol" إلى 1 ، لذلك فهي ترتبط بـ G و H و I على التوالي.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكنك مساعدتي في حل هذه المشكلة نفسها؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لدي نفس المشكلة ولكن لم أعمل من أجلي ، هل يمكنك المساعدة من فضلك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
رابط فرعي

خافت chk باسم CheckBox

خافت lCol طويل

lCol = 1 'عدد الأعمدة الموجودة على يمين الارتباط



لكل chk في ActiveSheet.CheckBoxes

مع chk

.LinkedCell = _

. TopLeftCell.Offset (0، lCol). العنوان

انتهت ب

الفصل التالي



نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ماذا لو كان لديك بعض الصفوف الفارغة في ColumnA (وفقًا لمثالك) بين مربعات الاختيار؟ باستخدام الكود أعلاه ، يجعل الخلايا المرتبطة خاطئة إذا كانت هناك صفوف فارغة لأنه لا يتخطىها. مهتم برؤية الحل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل وجدت أي حل لهذا؟ نفس المشكلة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
موضوع رائع ويعمل بالنسبة لي.
ولكن ، أحتاج إلى حفظ بيانات TRUE / FALSE في ورقة أخرى. ما هو VBA لحفظه في ورقة أخرى غير النشطة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا
Подскажите. озможно ли суммирование исел в ячейках по установке флажка؟

https://drive.google.com/file/d/1qmEnngPDdgWTISJETJ44IkxG-MABfqhh/view?usp=sharing[/ img] [/ b] [/ u] [/ b

В ячейке F3 скрыто число 2 а в ячейке G3 крыто исло 0,3،3 ، можно ли сделать так чтоб при установки кистановки.
Сумма вычислений только на строку в диапазоне F3-P3
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مشكلتي هي: أقوم بإنشاء قائمة مهام بالعادات اليومية. أريد أن أكون قادرًا على عمل إحصائيات منه باستخدام الصواب والخطأ من تحديد المربع المرتبط بخلية ولكن لا أريد أن أفعل ذلك بشكل فردي ، لكن عندما أستخدم الكود ، لا يحدث شيء؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا جريجور
يعمل رمز VBA جيدًا في المصنف الخاص بي.
يمكنك تحميل ملفك هنا ، حتى نتمكن من التحقق من مكان المشكلة.
شكرا!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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