Skip to main content

كيفية تغيير قيمة أو لون خلية محددة عند تحديد خانة اختيار في Excel؟

Author: Siluvia Last Modified: 2025-05-30

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

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


تغيير قيمة خلية محددة عند تحديد خانة الاختيار باستخدام صيغة

لنفترض أنك تحتاج إلى ملء الخلية A1 بالقيمة “test” عند تحديد خانة الاختيار 1. وتفريغ الخلية عند إلغاء تحديد خانة الاختيار. يرجى القيام بما يلي.

تحتاج أولاً إلى ربط خانة الاختيار بخلية معينة، ثم تطبيق الصيغة لتحقيق ذلك.

1. لربط خانة الاختيار بخلية معينة، يرجى تحديدها، ثم إدخال = مرجع الخلية في شريط الصيغة والضغط على مفتاح Enter. هنا قمت بربط خانة الاختيار 1 بالخلية C2 بإدخال =C2 في شريط الصيغة بعد تحديد خانة الاختيار.

enter a formula into the Formula Bar after selecting the checkbox

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

select Properties and set options

2. حدد الخلية التي تحتاج إلى تغيير قيمتها (هنا أختار A1)، ثم أدخل الصيغة =IF(C2,"Test","") في شريط الصيغة واضغط على مفتاح Enter. انظر لقطة الشاشة:

Select the cell to change its value and enter a formula

ملاحظة: في الصيغة، C2 هي الخلية المرتبطة بخانة الاختيار 1، و“Test” هي القيمة التي تحتاج إلى عرضها في الخلية A1 عند تحديد خانة الاختيار.

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

the value is changed based on the checkbox is checked or unchecked

a screenshot of kutools for excel ai

اكتشف سحر Excel مع Kutools AI

  • التنفيذ الذكي: قم بعمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك يتم من خلال أوامر بسيطة.
  • الصيغ المخصصة: قم بإنشاء صيغ مصممة خصيصًا لتسهيل سير عملك.
  • برمجة VBA: كتابة وتطبيق أكواد VBA بسهولة.
  • تفسير الصيغ: فهم الصيغ المعقدة بسهولة.
  • ترجمة النصوص: تجاوز الحواجز اللغوية داخل جداول البيانات الخاصة بك.
عزز قدرات Excel لديك باستخدام أدوات تعمل بالذكاء الاصطناعي. قم بالتنزيل الآن وعش تجربة الكفاءة كما لم يحدث من قبل!

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

يمكنك أيضًا تغيير قيمة خلية محددة عند تحديد خانة الاختيار باستخدام كود VBA. يرجى القيام بما يلي.

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

2. في نافذة Microsoft Visual Basic for Applications، يرجى نسخ ولصق كود VBA أدناه في نافذة الكود.

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

Private Sub CheckBox1_Click()
Dim xRng As Range
Dim xCell As Range, xStr As String
Set xRng = Selection
If CheckBox1.Value = True Then
    xStr = InputBox("Please enter a value:", "Kutools for Excel")
    xRng.Value = xStr
    If xStr = "" Then CheckBox1.Value = False
Else
    xRng.Value = ""
End If
End Sub

click View Code and insert the code into the sheet module

ملاحظة: في الكود، ChekBox1 هو اسم خانة الاختيار (ActiveX Controls). يمكنك تغييره حسب الحاجة.

3. اضغط على مفتاحي Alt + Q معًا لإغلاق نافذة Microsoft Visual Basic for Applications.

4. حدد خلية فارغة (A1) تريد تغيير قيمتها بناءً على خانة الاختيار، وتحقق من خانة الاختيار 1 في ورقة العمل الخاصة بك. الآن سيظهر مربع حوار Kutools لـ Excel، يرجى إدخال القيمة التي تريد ملئها في الخلية الفارغة المحددة، ثم انقر فوق الزر موافق. انظر لقطة الشاشة:

enter the value you want to be populated in the selected blank cell

ثم يتم عرض القيمة المحددة في الخلية المحددة فورًا. وعند إلغاء تحديد خانة الاختيار، ستكون الخلية فارغة.

the specified value is displayed if check the checkbox, otherwise, blank shown

ملاحظة: سيذكرك هذا الكود بإدخال القيمة النصية بشكل دائري كلما قمت بتحديد خانة الاختيار في كل مرة.


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

سيوضح لك هذا القسم كيفية تغيير لون خلية محددة عند تحديد خانة الاختيار باستخدام كود VBA.

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

2. في نافذة Microsoft Visual Basic for Applications، يرجى نسخ ولصق كود VBA أدناه في نافذة الكود.

كود VBA: تغيير لون خلية محددة عند تحديد خانة الاختيار

Sub CheckBox1_Click()
Dim xRng As Range
Set xRng = Selection
If CheckBox1.Value = True Then
    xRng.Interior.Color = vbRed
Else
    xRng.Interior.Color = xlNone
End If
End Sub

click View Code and inser the code into the sheet module

ملاحظة: في الكود، ChekBox1 هو اسم خانة الاختيار (ActiveX Controls). يمكنك تغييره حسب الحاجة.

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

fill color of the selected cell is change if check the chekbox, otherwise, no fill color


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

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

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

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


Office Tab يقدم واجهة التبويب لـ Office، ويجعل عملك أسهل بكثير

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