خانات اختيار Excel: إضافة وتحديد وحذف واستخدام خانات الاختيار في Excel

خانة الاختيار هي أداة تفاعلية تُستخدم لتحديد خيار أو إلغاء تحديده. غالبًا ما تجدها في نماذج الويب أو عند ملء الاستبيانات. وفي Excel، يمكنك إضافة وظائف متعددة ببساطة عن طريق تحديد خانة الاختيار أو إلغاء تحديدها، مما يجعل جدولك أكثر ديناميكية وتفاعلًا. على سبيل المثال، يمكنك إنشاء قوائم مراجعة أو إدراج مخططات ديناميكية، وغير ذلك الكثير.

في هذا البرنامج التعليمي، سأوضح لك كيفية إدراج خانات الاختيار وتحديدها وحذفها، مع عرض بعض الأمثلة على استخدامها في Excel.

نوعا خانات الاختيار (مربع اختيار عنصر تحكم النموذج مقابل مربع اختيار عنصر تحكم ActiveX)

لإدراج خانة اختيار، تأكد من ظهور علامة تبويب المطور في الشريط. فهذه العلامة غير نشطة افتراضيًا، ويجب تمكينها أولًا.

1. في مصنف Excel، انقر علىملف > خيارات. في مربع حوارخيارات Excel، انقر علىتخصيص الشريط، ثم فعّل خيارالمطوروانقر على زرموافقلإغلاق هذا المربع.

2. الآن، تظهر علامة التبويبالمطورفي شريط Excel كما هو موضح في لقطة الشاشة أدناه. ويمكنك الوصول إلى مجموعة متنوعة من عناصر التحكم التفاعلية من علامة التبويب هذه حسب الحاجة.

يوفّر Microsoft Excel نوعين من خانات الاختيار:عنصر تحكم النموذج مربع اختياروعنصر تحكم ActiveX مربع اختيار:

يُعد عنصر تحكم النموذج «مربع الاختيار» أبسط بكثير من عنصر تحكم ActiveX «مربع الاختيار»، في حين يتميّز عنصر تحكم ActiveX بمرونة أكبر في التصميم ويُمكن استخدامه ككائنات ضمن الأكواد. ولأغراض أعمالنا اليومية، تكون عناصر تحكم النموذج كافية تمامًا، لذا سنعتمد عليها في معظم الحالات.

مقارنة بين عنصر تحكم النموذج مربع اختيار وعناصر تحكم ActiveX مربع اختيار:

• توفر عناصر تحكم ActiveX خيارات تنسيق أكثر، ويمكنك استخدامها لتصميم متطور ومرن؛
• عناصر تحكم النماذج مضمنة في Excel بينما يتم تحميل عناصر تحكم ActiveX بشكل منفصل، لذا قد تتجمد أحيانًا؛
• بعض الحواسيب لا تثق بعناصر تحكم ActiveX افتراضيًا، لذا تحتاج إلى تمكينها يدويًا من مركز الثقة؛
• مربع اختيار يمكن الوصول إلى عنصر تحكم ActiveX برمجيًا عبر محرر VBA؛
• يتوفر ActiveX حصريًا عبر خيار Windows، ولا يدعمه نظام Mac OS.

ملاحظة: جميع خانات الاختيار التي سأتناولها في الدروس التالية هي من نوععنصر تحكم النموذج مربع اختيار.

إضافة خانة اختيار واحدة أو عدة خانات في Excel

لإدراج خانة اختيار واحدة أو أكثر، قد تفيدك هذه الفقرة.

2.1 إدراج خانة اختيار واحدة

لإدراج خانة اختيار، يُرجى اتباع الخطوات التالية:

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

2. بعد ذلك، مرِّر مؤشر الفأرة فوق حافة مربع التحديد المحيط بخانة الاختيار. وعندما يتغيَّر المؤشر إلى رمز التحريك، انقر واسحب لوضع خانة الاختيار داخل الخلية المطلوبة—كما في لقطات الشاشة التالية:

2.2 إدراج عدة خانات اختيار

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

إدراج خانات اختيار متعددة باستخدام خيار مقبض التعبئة

لإدراج عدة خانات اختيار بسرعة، أضف خانة اختيار واحدة كما ورد أعلاه، ثم استخدم مقبض التعبئة (Fill Handle) لنسخها تلقائيًا إلى الخلايا الأخرى.

1. انقر لتحديد الخلية التي تحتوي على خانة الاختيار.

2. اسحب مقبض التعبئة لأسفل لملء خانات الاختيار كما هو موضح في لقطة الشاشة أدناه:

إدراج خانات اختيار متعددة باستخدام كود VBA

يمكن لرمز VBA التالي مساعدتك أيضًا في إدراج قائمة من خانات الاختيار بسرعة وسهولة. يُرجى اتباع الخطوات التالية:

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

2. بعد ذلك، انقر علىإدراج > وحدة نمطية (Module)، ثم الصق الرمز التالي في نافذةالوحدة النمطية.

رمز VBA: إدراج عدة خانات اختيار في قائمة من الخلايا

Sub InsertCheckBoxes()
'Update by 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

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

4. بعد ذلك، انقر على زرموافق، وستُدرج خانات الاختيار في الخلايا دفعةً واحدة وبشكلٍ مرتب. انظر لقطة الشاشة:

إدراج خانات اختيار متعددة باستخدام ميزة مفيدة

إذا كنت تمتلكKutools لـ Excel، فيمكنك بفضل ميزةالإدراج الدفعي لمربعات الاختيارإدراج خانات الاختيار فورًا في الخلايا الفارغة أو الخلايا التي تحتوي على بيانات.

1. حدد النطاق الذي تريد إدراج خانات الاختيار فيه.

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

3. بعد ذلك، تمتلئ الخلايا المحددة بخانات الاختيار كما هو موضح في لقطات الشاشة التالية:

إدراج خانات اختيار في الخلايا الفارغة	إدراج خانات اختيار في خلايا البيانات

تغيير اسم خانة الاختيار ونص التسمية التوضيحية

عند استخدام خانة اختيار في Excel، يجب التمييز بين اسم خانة الاختيار واسم التسمية التوضيحية. اسم التسمية التوضيحية هو النص الذي يظهر بجانب خانة الاختيار، بينما اسم خانة الاختيار هو الاسم الذي يظهر في مربع الاسم عند تحديد خانة الاختيار كما هو موضح في لقطات الشاشة أدناه:

اسم خانة الاختيار	نص التسمية التوضيحية

لتغيير اسم التسمية التوضيحية، يُرجى النقر بزر الماوس الأيمن على خانة الاختيار، ثم اختيارتحرير النصمن القائمة السياقية، واكتب اسم جديد الذي تريده، انظر لقطات الشاشة:

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

ربط خانة اختيار واحدة أو عدة خانات بخلايا

عند استخدام خانة الاختيار، غالبًا ما تحتاج إلى ربطها بخلايا. إذا تم تحديد الخانة، تُظهر الخلية القيمة TRUE، وإذا لم تُحدد، تُظهر الخلية القيمة FALSE أو تبقى فارغة. ستعرض هذه الفقرة كيفية ربط خانة اختيار واحدة أو عدة خانات بخلايا في Excel.

4.1 ربط خانة اختيار واحدة بخلية باستخدام خاصية تنسيق التحكم

لربط خانة الاختيار بخلية معينة، يُرجى اتباع الخطوات التالية:

1. انقر بزر الماوس الأيمن على خانة الاختيار، ثم اخترتنسيق التحكممن القائمة السياقية. انظر لقطة الشاشة:

2. في مربع حوارتنسيق الكائن، ضمن علامة التبويبالتحكم، انقر لتحديد الخلية التي تريد ربطها بخانة الاختيار من مربعرابط الخلية، أو اكتب مرجع الخلية يدويًا. انظر لقطة الشاشة:

3. انقر علىموافقلإغلاق مربع الحوار. الآن، أصبحت خانة الاختيار مرتبطة بخلية محددة: فعند تحديدها، تظهر القيمة TRUE، وعند إلغاء تحديدها، تظهر القيمة FALSE، كما هو موضح في العرض التوضيحي أدناه:

4.2 ربط عدة خانات اختيار بخلايا باستخدام رمز VBA

لربط عدة خانات اختيار بخلايا باستخدام خاصية «تنسيق التحكم»، ستحتاج إلى تكرار الخطوات السابقة مرارًا وتكرارًا — وهو أمر مرهق للغاية من حيث الوقت إذا كان لديك مئات أو حتى آلاف خانات الاختيار التي تحتاج إلى ربطها. لحسن الحظ، سأعرض لك الآن كود VBA يتيح لك ربط كل هذه الخانات دفعة واحدة!

1. انتقل إلى ورقة العمل التي تحتوي على خانات الاختيار.

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

3. بعد ذلك، انقر علىإدراج > وحدة نمطية (Module)، ثم الصق الرمز التالي فينافذة الوحدة النمطية.

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

Sub LinkChecks()
'Update by Extendoffice
Dim xCB
Dim xCChar
i = 2
xCChar = "C"
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

ملاحظة: في هذا الكود،i = 2، حيث يُشير العدد2 إلى صف البداية لخانة الاختيار الخاصة بك، وxCChar = «C»، حيث يُمثل الحرفC العمود الذي تريد ربط خانات الاختيار به. يمكنك تعديل هذه القيم بحسب احتياجاتك.

4. اضغطF5 لتشغيل هذا الكود. سيتم ربط جميع خانات الاختيار في ورقة العمل النشطة بالخلايا المحددة دفعةً واحدة. عند تحديد خانة اختيار، تعرض الخلية المرتبطة بها القيمة TRUE، وعند إلغاء التحديد، تعرض الخلية المرتبطة القيمة FALSE. انظر لقطة الشاشة:

حدد خانة اختيار واحدة أو عدة خانات اختيار

لنسخ أو حذف خانات الاختيار في ورقة العمل، يتعيّن عليك أولًا تحديد تلك الخانات. ولتحديد خانة اختيار واحدة أو أكثر، يُرجى اتباع الخطوات التالية:

تحديد خانة اختيار واحدة: (بطريقتين)

• انقر بزر الماوس الأيمن على خانة الاختيار، ثم انقر في أي مكان داخلها.
• أو
• اضغط علىCtrl، ثم انقر على خانة الاختيار.

تحديد عدة خانات اختيار:

اضغط مع الاستمرار على مفتاحCtrl، ثم انقر على خانات الاختيار التي تريد تحديدها واحدةً تلو الأخرى.

حذف خانة اختيار واحدة أو عدة خانات اختيار

حذف خانة اختيار واحدة أمرٌ سهل، إذ يكفي أن تحددها ثم تضغط على مفتاح Delete في لوحة المفاتيح. ولكن عندما يتعلق الأمر بعدة خانات اختيار، كيف يمكنك حذفها دفعةً واحدة في Excel؟

6.1 حذف عدة خانات اختيار باستخدام كود VBA

لحذف جميع خانات الاختيار في ورقة العمل، يمكنك استخدام كود VBA التالي.

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

2. بعد ذلك، انقر علىInsert > Module، ثم الصق الكود التالي في نافذةModule.

كود VBA: حذف جميع خانات الاختيار في ورقة العمل الحالية

Sub RemoveCheckboxes()
'Update by Extendoffice
On Error Resume Next
ActiveSheet.CheckBoxes.Delete
Selection.FormatConditions.Delete
End Sub

3. بعد ذلك، اضغط على مفتاحF5 لتنفيذ الكود. سيتم حذف جميع خانات الاختيار في ورقة العمل المحددة دفعة واحدة.

6.2 حذف عدة خانات اختيار بميزة بسيطة

باستخدام ميزةKutools لـ Excelالرائدةحذف علامات الاختيار بالجملة، يمكنك التخلّص من خانات الاختيار دفعة واحدة من نطاق محدد أو من أوراق العمل بأكملها بنقرات قليلة!

1. حدد نطاق الخلايا أو الورقة بأكملها التي تحتوي على خانات الاختيار التي ترغب في إزالتها.

2. بعد ذلك، انقر علىKutools > Delete > حذف علامات الاختيار بالجملة. انظر لقطة الشاشة:

3. بعد ذلك، سيتم إلغاء تحديد جميع خانات الاختيار دفعة واحدة.

تجميع خانات الاختيار في Excel

عندما تريد نقل أو تغيير حجم عدة خانات اختيار معًا، يُسهّل تجميعها التحكّم بها جميعًا دفعة واحدة. ويشرح هذا القسم كيفية تجميع عدة خانات اختيار في ورقة عمل Excel.

7.1 تجميع خانات الاختيار باستخدام ميزة Group

في Excel، يمكن لميزةGroup مساعدتك في تجميع عدة خانات اختيار معًا. يُرجى اتباع الخطوات التالية:

1. اضغط مع الاستمرار على مفتاحCtrl، ثم انقر لتحديد خانات الاختيار التي ترغب في تجميعها واحدةً تلو الأخرى. انظر لقطة الشاشة:

2. بعد ذلك، انقر بزر الماوس الأيمن واخترGroup > Group من قائمة السياق. انظر لقطة الشاشة:

3. بمجرد تجميع جميع خانات الاختيار المحددة، يمكنك نقلها أو نسخها دفعة واحدة معًا.

7.2 تجميع خانات الاختيار باستخدام أمر Group Box

بالإضافة إلى ذلك، يمكنك استخدامGroup Box لتجميع عدة خانات اختيار معًا. يُرجى اتباع الخطوات التالية:

1. انتقل إلى تبويبDeveloper، ثم انقر علىInsert > Group Box (Form Control). انظر لقطة الشاشة:

2. بعد ذلك، اسحب الماوس لرسم مربع تجميع، ثم غيّر اسم التسمية الخاصة به كما تشاء:

3. الآن، يمكنك إدراج خانات اختيار داخل مربع التجميع: انقر علىDeveloper > Insert > مربع اختيار (Form Control). انظر لقطة الشاشة:

4. بعد ذلك، اسحب الماوس لرسم خانة اختيار، وغيّر اسم التسمية حسب حاجتك. انظر لقطات الشاشة.

5. وبالمثل، أضف خانات اختيار أخرى إلى مربع التجميع وستحصل على النتيجة الموضَّحة في لقطة الشاشة أدناه:

أمثلة: كيفية استخدام خانات الاختيار في Excel

من المعلومات السابقة، تعرّفنا على بعض الأساسيات المتعلقة بخانات الاختيار. وفي هذا القسم، سأوضح لك كيفية استخدام خانات الاختيار لتنفيذ عمليات تفاعلية وديناميكية في Excel.

مثال 1: إنشاء قائمة مهام باستخدام خانات الاختيار

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

لإنشاء قائمة مهام باستخدام خانات الاختيار، يُرجى اتباع الخطوات التالية:

1. يُرجى إدراج خانات الاختيار في قائمة الخلايا التي ترغب في استخدامها، كما هو موضح في لقطة الشاشة التالية: ()انقر لمعرفة كيفية إدراج عدة خانات اختيار)

2. بعد إدراج خانات الاختيار، اربط كل خانة بخلية منفصلة.

3. بعد ربط خانات الاختيار بالخلايا، ستُعرض القيمةTRUE إذا كانت خانة الاختيار محددة، وFALSE إذا لم تكن محددة. انظر لقطة الشاشة:

4. بعد ذلك، طبّق ميزةاستخدم تنسيق الشروطواتبع الخطوات التالية: حدد نطاق الخلايا A2:C8 الذي تريد إنشاء قائمة مهام له، ثم انقر علىHome > استخدم تنسيق الشروط > New Rule للانتقال إلى مربع حوارNew Formatting Rule.

5. في مربع حوارNew Formatting Rule، انقر علىUse a formula to determine which cells to format في قائمةSelect a Rule Type، ثم أدخل الصيغة التالية=C2=TRUE في مربع النصFormat values where this formula is true. انظر لقطة الشاشة:

ملاحظة: C2 هي الخلية المرتبطة بخانة الاختيار.

6. بعد ذلك، انقر باستمرار على زرتنسيقللانتقال إلى مربع حوارتعيين تنسيق الخلية. ضمن علامة التبويبالخط، فعّل خياريتوسطه خطمن قسمالتأثيرات، وحدّد اللون الذي تريده لعنصر قائمة المهام المكتمل. انظر لقطة الشاشة:

7. بعد ذلك، انقرموافق>موافقلإغلاق مربعات الحوار. الآن، عند تحديدك مربع اختيار، سيتم تنسيق العنصر المرتبط به ليتوسطه خط، كما في العرض التوضيحي أدناه:

مثال 2: إنشاء مخطط ديناميكي باستخدام خانات الاختيار

قد تحتاج أحيانًا إلى عرض كمية كبيرة من البيانات والمعلومات في مخطط واحد، مما يؤدي إلى ازدحام المخطط. في هذه الحالة، يمكنك استخدام خانات الاختيار لإنشاء مخطط ديناميكي في ورقتك. فعند تحديد خانة اختيار، سيظهر خط البيانات المرتبط بها؛ وإذا ألغيت تحديدها، فسيُخفى خط البيانات، كما هو موضح في العرض التوضيحي أدناه.

سيتناول هذا القسم طريقتين سريعتين لإنشاء هذا النوع من المخططات في Excel.

إنشاء مخطط تفاعلي مع خانات اختيار في Excel

بشكلٍ عام، يمكنك في Excel إنشاء مخطط ديناميكي باستخدام خانات الاختيار باتباع الخطوات التالية:

1. أدخل بعض خانات الاختيار وأعد تسميتها. في هذا المثال، سأُدخل ثلاث خانات اختيار وأُعيد تسميتها إلى تفاح، برتقال، وخوخ، كما هو موضح في لقطة الشاشة:

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

3. كرّر الخطوة السابقة لربط الخانتين الأخريين بخلايا مختلفة. الآن، عند تحديد خانة الاختيار، ستظهر القيمة TRUE، وعندما تكون غير محددة، ستظهر القيمة FALSE، كما في العرض التوضيحي أدناه:

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

5. بعد ذلك، طبِّق الصيغ التالية:

• في الخليةB13:=IF($B$6,B2,NA())، واسحب مقبض التعبئة لتعبئة الصف من B13 إلى G13؛
• في الخليةB14:=IF($B$7,B3,NA())، واسحب مقبض التعبئة لتعبئة الصف من B14 إلى G14؛
• في الخليةB15: =IF($B$8,B4,NA())، اسحب مقبض التعبئة لتعبئة الصف من B15 إلى G15.
• تستخرج هذه الصيغ قيمة العودة من البيانات الأصلية إذا كانت خانة الاختيار الخاصة بذلك المنتج محددة، وتعطي #N/A إذا لم تكن محددة. انظر لقطة الشاشة:

6. بعد ذلك، يرجى تحديد نطاق البيانات الجديدة من A12 إلى G15، ثم انقرإدراج > إدراج مخطط خطي أو مساحي > خطيلإدراج مخطط خطي.

7. الآن، عند تحديد خانة اختيار المنتج، سيظهر خط بياناته، وعند إلغاء التحديد، سيختفي — كما في العرض التوضيحي أدناه:

8. بعد إنشاء المخطط، يمكنك وضع خانات الاختيار فوقه لجعله يبدو أكثر تنظيمًا. انقر لتحديد منطقة الرسم، ثم اسحب لتقليل حجمها—كما في لقطة الشاشة التالية:

9. اضغط مفتاحCtrl لتحديد الخانات الثلاث، ثم اسحبها فوق المخطط. بعد ذلك، انقر بزر الماوس الأيمن واخترإحضار إلى المقدمة > إحضار إلى المقدمة. انظر لقطة الشاشة:

10. وبذلك تظهر خانات الاختيار فوق المخطط. استمر في الضغط على مفتاحCtrl لتحديد الخانات والمخطط واحدًا تلو الآخر، ثم انقر بزر الماوس الأيمن واخترتجميع > تجميع. انظر لقطة الشاشة:

11. أصبحت خانات الاختيار الآن مرتبطة بالمخطط الخطي، وعند نقل المخطط، ستتحرك الخانات معه تلقائيًا.

إنشاء مخطط تفاعلي مع خانات اختيار باستخدام ميزة سهلة

قد تكون الطريقة السابقة صعبة نوعًا ما، لذا سنعرض لك طريقة أسهل لإنجاز هذه المهمة. باستخدام ميزةKutools لـ Excel’s رسم بياني خطي بخانات اختيار، يمكنك إنشاء مخطط ديناميكي مع خانات اختيار بسهولة.

1. حدد نطاق البيانات الذي تريد إنشاء المخطط منه، ثم انقرKutools > المخططات > مقارنة الفئات > رسم بياني خطي بخانات اختيار. انظر لقطة الشاشة:

2. بعد ذلك، يظهر تلقائيًا مربع حواررسم بياني خطي بخانات اختيار، ويتم ملء بيانات التحديد تلقائيًا في مربعات النص المنفصلة. انظر لقطة الشاشة:

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

4. وبذلك، تم إنشاء مخطط خطي مع خانات اختيار بنجاح. انظر لقطة الشاشة:

مثال 3: إنشاء قائمة منسدلة باستخدام خانات الاختيار

يُعد تحديد عناصر متعددة من قائمة منسدلة مهمة شائعة لدى العديد من المستخدمين. يحاول بعض المستخدمين إنشاء قائمة منسدلة باستخدام خانات اختيار لتمكين التحديد المتعدد كما في العرض التوضيحي أدناه. وللأسف، لا يدعم Excel بشكلٍ أصلي إنشاء قائمة منسدلة باستخدام خانات اختيار. لكن هنا، سأعرض طريقتين للاختيار المتعدد باستخدام خانات الاختيار في Excel. الأولى هي مربع قائمة مع خانات اختيار، والثانية هي قائمة منسدلة مع خانات اختيار.

إنشاء قائمة منسدلة باستخدام خانات الاختيار عبر مربع القائمة

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

1. أولًا، لإدراج مربع قائمة، انتقل إلىالمطور > إدراج > مربع القائمة (عنصر تحكم ActiveX)، ثم انقر. انظر لقطة الشاشة:

2. اسحب المؤشر لرسم مربع القائمة، ثم انقر بزر الماوس الأيمن واخترخصائصمن القائمة السياقية. انظر لقطة الشاشة:

3. في لوحةالخصائص، قم بضبط الإعدادات كما يلي:

• في مربعListFillRange، أدخل نطاق البيانات الذي تريد عرضه في مربع القائمة؛
• في مربعListStyle، اختر1 - fmList StyleOptionمن القائمة المنسدلة؛
• في مربعMultiSelect، اختر1 – fmMultiSelectMultiمن القائمة المنسدلة؛
• أخيرًا، انقر على زر الإغلاق لإغلاقه.

4.بعد ذلك، انقر على الخلية التي تريد إخراج عناصر القائمة المحددة إليها، ثم أعطِها اسمًا. اكتب الاسم “Outputitem” في مربعالاسم، واضغط مفتاحEnter. انظر لقطة الشاشة:

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

6. انقر بزر الماوس الأيمن على المستطيل، ثم اخترتعيين ماكرومن القائمة السياقية. انظر لقطة الشاشة:

7. في مربع حوارتعيين ماكرو، انقر على زرجديد. انظر لقطة الشاشة:

8.في نافذةمايكروسوفت فيجوال بيسك للتطبيقاتالمفتوحة، استبدل الكود الأصلي في نافذة الوحدة النمطية بالكود التالي من نوع VBA:

Sub Rectangle1_Click()
'Updated by Extendoffice
Dim xSelShp As Shape, xSelLst As Variant, I, J As Integer
Dim xV As String
Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Set xLstBox = ActiveSheet.ListBox1
If xLstBox.Visible = False Then
    xLstBox.Visible = True
    xSelShp.TextFrame2.TextRange.Characters.Text = "Pickup Options"
    xStr = ""
    xStr = Range("Outputitem").Value
    
    If xStr <> "" Then
         xArr = Split(xStr, ";")
    For I = xLstBox.ListCount - 1 To 0 Step -1
        xV = xLstBox.List(I)
        For J = 0 To UBound(xArr)
            If xArr(J) = xV Then
              xLstBox.Selected(I) = True
              Exit For
            End If
        Next
    Next I
    End If
Else
    xLstBox.Visible = False
    xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
    For I = xLstBox.ListCount - 1 To 0 Step -1
        If xLstBox.Selected(I) = True Then
        xSelLst = xLstBox.List(I) & ";" & xSelLst
        End If
    Next I
    If xSelLst <> "" Then
        Range("Outputitem") = Mid(xSelLst, 1, Len(xSelLst) - 1)
    Else
        Range("Outputitem") = ""
    End If
End If
End Sub

ملاحظة: في الكود أعلاه،Rectangle1 هو اسم الشكل، وListBox1 هو اسم مربع القائمة، وOutputitem هو اسم الخلية المخصصة للإخراج. يمكنك تعديل هذه الأسماء بحسب احتياجاتك.

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

إنشاء قائمة منسدلة مع خانات تحديد باستخدام ميزة رائعة

يمكنك استخدام Kutools لـ Excel القوي لإدراج خانات التحديد بسهولة في قائمة منسدلة حقيقي. وبفضل ميزة إضافة خانات الاختيار إلى قائمة منسدلة، يتيح لك Kutools إنشاء قوائم منسدلة تدعم تحديدات متعددة باستخدام خانات التحديد—وهو أمر لا يدعمه Excel بشكلٍ أصلي. هذا لا يعزز فقط وظائف قوائمك، بل يحسّن الكفاءة وتجربة المستخدم بشكلٍ كبير أيضًا.

1. أولًا، يُرجى إدراج قائمة منسدلة عادية في الخلايا المحددة، كما هو موضح في لقطة الشاشة:

2. انقر فوقKutools > قائمة منسدلة > تمكين قائمة منسدلة متقدمة. بعد ذلك، انقر مرة أخرى علىإضافة خانات الاختيار إلى قائمة منسدلةمن القائمة المنسدلة. راجع لقطة الشاشة:

3. في مربع الحوار «إضافة خانات تحديد إلى القائمة المنسدلة»، يُرجى التهيئة كما يلي:

• 2.1) حدد الخلايا التي تحتوي على قائمة منسدلة؛
• 2.2) في مربع الفاصل، أدخل محرف فصل ستستخدمه لفصل العناصر المتعددة؛
• 2.4) انقر على زر موافق.
  

ابتداءً من الآن، عند النقر على خلية تحتوي على قائمة منسدلة، ستظهر قائمة تحتوي على مربع اختيار، ثم حدد العناصر بوضع علامة في خانات التحديد لإخراج العناصر إلى الخلية كما هو موضح في العرض التوضيحي أدناه:

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

مثال 4: وضع علامة في خانة التحديد لتغيير لون الصف

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

وضع علامة في خانة التحديد لتغيير لون الخلية باستخدام استخدم تنسيق الشروط

لتغيير لون الصف تلقائيًا عند تحديد خانة الاختيار أو إلغاء تحديدها، استخدم ميزةتنسيق الشروطفي Excel! اتبع الخطوات التالية:

1. أولًا، أضف خانات التحديد إلى قائمة الخلايا حسب احتياجاتك، كما في لقطة الشاشة:

2. بعد ذلك، اربط كل خانة بالخلايا المجاورة لها بشكل منفصل، كما هو موضح في لقطة الشاشة:

3. بعد ذلك، حدد نطاق البيانات الذي تريد تغيير لون صفه، ثم انقر فوقالصفحة الرئيسية > استخدم تنسيق الشروط > قاعدة جديدة. راجع لقطة الشاشة:

4. في مربع الحوارقاعدة تنسيق جديدة، قم بالعمليات التالية:

• حدد الخياراستخدم صيغة لتحديد الخلايا التي سيتم تنسيقهافي مربعحدد نوع القاعدة؛
• أدخل هذه الصيغة=IF($F2=TRUE,TRUE,FALSE)في مربعتنسيق القيم حيث تكون هذه الصيغة صحيحة؛
• انقر على زرالتنسيقلتحديد اللون الذي تفضّله للصفوف.

ملاحظة: في الصيغة،$F2 هي الخلية المرتبطة الأولى لخانة التحديد.

5. بعد اختيار اللون، انقر فوقموافق>موافقلإغلاق مربعات الحوار. والآن، عند وضع علامة في مربع الاختيار، سيتم تمييز الصف المقابل تلقائيًا كما هو موضح في العرض التوضيحي أدناه:

تحديد خانة الاختيار لتغيير لون الصف باستخدام كود VBA

يمكن لرمز VBA التالي أيضًا مساعدتك في تغيير لون الصف بناءً على خانة التحديد المعلّمة، يُرجى استخدام الكود أدناه:

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

2. انسخ الكود أدناه والصقه في نافذةمايكروسوفت فيجوال بيسك للتطبيقاتالمفتوحة:

رمز VBA: نطاق الصف المميز عند وضع علامة في خانة التحديد

Sub AddCheckBox()
Dim xCell As Range
Dim xRng As Range
Dim I As Integer
Dim xChk As CheckBox
On Error Resume Next
InputC:
    Set xRng = Application.InputBox("Please select the column range to insert checkboxes:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
If xRng.Columns.Count > 1 Then
    MsgBox "The selected range should be a single column", vbInformation, "Kutools fro Excel"
    GoTo InputC
Else
    If xRng.Columns.Count = 1 Then
        For Each xCell In xRng
            With ActiveSheet.CheckBoxes.Add(xCell.Left, _
               xCell.Top, xCell.Width = 15, xCell.Height = 12)
               .LinkedCell = xCell.Offset(, 1).Address(External:=False)
               .Interior.ColorIndex = xlNone
               .Caption = ""
               .Name = "Check Box " & xCell.Row
            End With
            xRng.Rows(xCell.Row).Interior.ColorIndex = xlNone
        Next
    End If
    With xRng
     .Rows.RowHeight = 16
    End With
    xRng.ColumnWidth = 5#
    xRng.Cells(1, 1).Offset(0, 1).Select
    For Each xChk In ActiveSheet.CheckBoxes
      xChk.OnAction = "Sheet2.InsertBgColor"
    Next
End If
End Sub

Sub InsertBgColor()
Dim xName As Integer
Dim xChk As CheckBox
For Each xChk In ActiveSheet.CheckBoxes
  xName = Right(xChk.Name, Len(xChk.Name) - 10)
  If (xName = Range(xChk.LinkedCell).Row) Then
   If (Range(xChk.LinkedCell) = "True") Then
    Range("A" & xName, Range(xChk.LinkedCell).Offset(0, -2)).Interior.ColorIndex = 6
   Else
    Range("A" & xName, Range(xChk.LinkedCell).Offset(0, -2)).Interior.ColorIndex = xlNone
   End If
  End If
Next
End Sub

ملاحظة:في الكود أعلاه، في هذا السكربتxChk.OnAction = "Sheet2.InsertBgColor"، يجب عليك تغيير اسم الورقة—Sheet2—إلى الاسم الخاص بك ()Sheet2 هو الاسم الفعلي لورقة العمل، ويمكنك الحصول عليه من لوحة نافذة الكود على اليسار). راجع لقطة الشاشة:

3. بعد ذلك، ضع المؤشر في الجزء الأول من الكود، ثم اضغط على مفتاحF5 لتشغيله. بعد ظهور مربع الحوارKutools لـ Excel، يُرجى تحديد النطاق الذي تريد إدراج خانات التحديد فيه، كما هو موضح في لقطة الشاشة:

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

5. ابتداءً من الآن، بمجرد وضع علامة في خانة التحديد، سيتم تلوين الصف المقابل تلقائيًا كما هو موضح في لقطة الشاشة أدناه:

مثال 5: عدّ أو جمع قيم الخلايا إذا كانت خانة التحديد معلّمة

إذا كان لديك نطاق من البيانات يحتوي على قائمة خانات تحديد، وترغب في عدّ عدد الخانات المعلَّمة أو جمع القيم المرتبطة بها بناءً على حالة التحديد كما في لقطة الشاشة أدناه، فكيف يمكنك تنفيذ هذه المهمة في Excel؟

لحل هذه المهمة، تكمن الخطوة الأساسية في ربط خانات التحديد بالخلايا المجاورة للبيانات؛ حيث تعرض خانة التحديد المعلَّمة القيمة TRUE في الخلية المرتبطة بها، وخلاف ذلك تُعرض القيمة FALSE. بعد ذلك، يمكنك استخدام دالة العد أو الجمع للحصول على النتيجة بناءً على القيم TRUE أو FALSE.

1. أولًا، يجب ربط خانات التحديد بالخلايا بشكلٍ منفصل: فعند تأشير خانة التحديد، تظهر القيمة TRUE، وعند عدم تأشيرها، تظهر القيمة FALSE. راجع لقطة الشاشة:

2. بعد ذلك، طبّق الصيغ التالية لعدّ أو جمع القيم بناءً على خانات التحديد المُعلَّمة:

عدّ القيم بواسطة خانات التحديد المعلّمة:

=COUNTIF(D2:D10,TRUE)

ملاحظة: في هذه الصيغة،D2:D10 هو نطاق الخلايا المرتبطة التي قمت بتحديدها لخانات التحديد.

جمع القيم بواسطة خانات التحديد المعلّمة:

=SUMPRODUCT(($D$2:$D$10=TRUE)*$C$2:$C$10)

ملاحظة: في هذه الصيغة، يُشيرD2:D10 إلى نطاق الخلايا المرتبطة التي حددتها لخانات التحديد، بينما تمثّلC2:C10 قائمة الخلايا التي تريد جمعها.

مثال 6: إذا كانت خانة التحديد معلّمة، فقم بإرجاع قيمة معيّنة

إذا كانت لديك خانة تحديد، وعند وضع علامة فيها يجب أن تظهر قيمة معيّنة في خلية، وعند إزالة العلامة يجب أن تظهر الخلية فارغة كما هو موضح في العرض التوضيحي أدناه:

لإكمال هذه المهمة، يُرجى اتباع الخطوات التالية:

1. أولًا، يجب ربط خانة التحديد هذه بخلية. انقر بزر الماوس الأيمن على خانة التحديد، ثم اخترتنسيق التحكم. في مربع الحوار المنبثقتنسيق الكائن، ضمن تبويبالتحكم، انقر لتحديد الخلية التي تريد ربطها بخانة التحديد من مربعربط الخلية. راجع لقطة الشاشة:

2. بعد ذلك، انقر فوق زرموافقلإغلاق مربع الحوار. الآن، اكتب هذه الصيغة: =IF(A5=TRUE,«[[PH_1]]»,«») في الخلية التي تريد إخراج النتيجة فيها، ثم اضغط على مفتاحEnter.

ملاحظة: في هذه الصيغة،A5 هي الخلية المرتبطة بخانة التحديد، و"Extendoffice" هو النص المعيَّن، ويمكنك تعديله حسب حاجتك.

3. الآن، عند تحديد خانة الاختيار، سيظهر النص المعيّن، وعند إلغاء التحديد، ستظهر خلية فارغة. راجع العرض التوضيحي أدناه:

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

🤖	KUTOOLS AI مساعد: ثوّر تحليل البيانات استنادًا إلى:التنفيذ الذكي   |  إنشاء الكود|  إنشاء الصيغ المخصصة  |  تحليل البيانات وإنشاء المخططات البيانية|  استدعاء الوظائف المحسنة…
	الميزات الشائعة:البحث، التمييز أو وضع علامة على المكررات   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |  التقريب بدون استخدام الصيغة...
	بحث متقدم:VLookup متعدد المعايير  |  VLookup متعدد القيم  |   VLookup عبر أوراق متعددة   |   مطابقة غامضة....
	قائمة منسدلة متقدمة:إنشاء قائمة منسدلة بسرعة   |  قائمة منسدلة تابعة   |  قائمة منسدلة متعددة الاختيار....
	مدير الأعمدة:إضافة عدد محدد من الأعمدة|نقل الأعمدة|تبديل حالة ظهور الأعمدة المخفية|مقارنة النطاقات والأعمدة...
	ميزات مميزة:التركيز على الشبكة   |  عرض التصميم   |شريط الصيغ المحسن   | مدير الدفتر والورقة   |  مكتبة الموارد(نص تلقائي)|  أداة اختيار التاريخ   |  تجميع ورقات العمل  |  تشفير/فك تشفير الخلايا   | إرسال رسائل البريد الإلكتروني حسب القائمة   |  مرشح متقدم   |   تصفية خاصة(تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
	أفضل 15 مجموعات الأدوات:12 أدواتالنصوص(إضافة نص،حذف الأحرف المحددة، ...)|   50+أنواعالمخططات البيانية(مخطط جانت، ...)|   40+ صيغعملية(حساب العمر بناءً على تاريخ الميلاد، ...)|   19 أدواتالإدراج(إدراج رمز QR،إدراج صورة من المسار، ...)|   12 أدواتالتحويل(تحويل إلى كلمات،تحويل العملة، ...)|   7 أدواتدمج وتقسيم(دمج متقدم للصفوف،تقسيم الخلايا، ...)|... وأكثر من ذلك

استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...

مزيد من التفاصيل حول Kutools لـ Excel...تنزيل مجاني...

---

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

• تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
• افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
• يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!

مزيد من التفاصيل حول Office Tab...تنزيل مجاني...

---

جميع الإضافات من Kutools في برنامج تثبيت واحد!

Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.

• حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
• برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
• يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
• تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
• أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل

مزيد من التفاصيل حول Kutools for Office...تنزيل مجاني...