KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

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

المؤلفSiluviaتاريخ التعديل

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

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


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

افترض أنك تريد ملء الخلية A1 بالقيمة «test» عند تحديد مربع الاختيار 1، وتفريغها فور إلغاء التحديد. يُرجى اتباع الخطوات التالية.

أولًا، اربط مربع الاختيار بخلية محددة، ثم طبّق الصيغة لتحقيق ذلك.

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

أدخل صيغة في شريط الصيغ بعد تحديد خانة الاختيار

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

حدد الخصائص وعيّن الخيارات

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

اختر الخلية لتغيير قيمتها وأدخل صيغة

ملاحظة: في الصيغة، تمثّل الخلية C2 الخلية المرتبطة بمربع الاختيار 1، و«Test» هي القيمة التي ستظهر في الخلية A1 عند تحديد مربع الاختيار.

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

تتغير القيمة بناءً على ما إذا كانت خانة الاختيار محددة أو غير محددة

لقطة شاشة لـ kutools for excel ai

افتح سحر إكسل مع KUTOOLS AI

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

تغيير قيمة خلية معيّنة عند تحديد مربع اختيار باستخدام كود 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

انقر عرض الكود وأدرج الكود في وحدة النموذج الخاصة بالورقة

ملاحظة: في الكود، يُشيرChekBox1 إلى اسممربع الاختيار (عناصر تحكم ActiveX). يمكنك تغييره حسب احتياجاتك.

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

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

أدخل القيمة التي ترغب في ملئها في الخلية الفارغة المحددة

بعد ذلك، تظهر القيمة المحددة فورًا في الخلية المختارة. وعند إلغاء تحديد مربع الاختيار، تصبح الخلية فارغة.

تُعرض القيمة المحددة إذا تم تحديد خانة الاختيار، وإلا فسيتم عرض خلية فارغة

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


تغيير لون خلية معيّنة عند تحديد مربع اختيار باستخدام كود 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

انقر عرض الكود وأدرج الكود في وحدة النموذج الخاصة بالورقة

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

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

يتغير لون تعبئة الخلية المحددة إذا تم تحديد خانة الاختيار، وإلا فلا يتم تطبيق أي لون تعبئة


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

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

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

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


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

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

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

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

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