كيف يمكن تغيير لون مربع النص في Excel استنادًا إلى القيمة؟
في Excel، يمكننا تطبيق دالة استخدم تنسيق الشروط لتغيير لون الخلفية استنادًا إلى قيمة الخلية، ولكن في هذه المقالة، سأتحدث عن كيفية تغيير لون مربع النص استنادًا إلى قيمة الخلية أو القيمة الموجودة في مربع النص.
تغيير لون مربع النص استنادًا إلى قيمة الخلية باستخدام كود VBA
تغيير لون مربع النص استنادًا إلى القيمة الموجودة في مربع النص باستخدام كود VBA
تغيير لون مربع النص استنادًا إلى قيمة الخلية باستخدام كود VBA
لنفترض أنه إذا كانت قيمة الخلية A1 أكبر من قيمة الخلية B1، فسيتم تعبئة مربع النص باللون الأحمر؛ أما في الحالة المعاكسة، فسيتم تعبئته باللون الأصفر. يُرجى تنفيذ هذه المهمة باتباع الخطوات التالية:
1. أدرج مربع نص بالنقر علىالمطور > إدراج > مربع نص (عنصر تحكم ActiveX)، ثم ارسم مربع النص. انظر لقطة الشاشة:
2. بعد ذلك، انقر بزر الماوس الأيمن على مربع النص، ثم اخترعرض الكودمن القائمة السياقية لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات، واستبدل الكود الأصلي بالكود التالي من VBA في الوحدة الفارغة:
كود VBA: تغيير لون مربع النص استنادًا إلى قيم الخلايا:
Private Sub TextBox1_Change()
If ActiveSheet.Range("A1").Value > ActiveSheet.Range("B1").Value Then
Me.TextBox1.BackColor = vbRed
Else
Me.TextBox1.BackColor = vbYellow
End If
End Sub
ملاحظة: في الكود أعلاه،TextBox1 هو اسم مربع النص الذي أدرجته، وA1 وB1 هما الخليتان اللتان تريد تغيير لون مربع النص استنادًا إليهما. يُرجى تعديلها حسب احتياجاتك.
3. بعد ذلك، احفظ وأغلق نافذة الكود، ثم اخرج منوضع التصميم. الآن، إذا كانت الخلية A1 أكبر من B1، فعند كتابة نص في مربع النص، سيتم ملؤه باللون الأحمر؛ وإذا كانت A1 أقل من B1، فعند إدخال قيمة في مربع النص، سيتم ملؤه باللون الأصفر. انظر لقطة الشاشة:
تغيير لون مربع النص استنادًا إلى القيمة الموجودة في مربع النص باستخدام كود VBA
إذا كنت ترغب في تغيير لون مربع النص بناءً على القيمة الموجودة بداخله — فمثلاً، يصبح لون التعبئة أحمر إذا كانت القيمة بين 1 و10، وأخضر إذا كانت بين 11 و20، وأصفر لجميع القيم الأخرى — فما عليك سوى تطبيق كود VBA أدناه لإنجاز هذه المهمة.
1. بعد إدراج مربع نص، انقر بزر الماوس الأيمن عليه، ثم اخترعرض الكودمن القائمة السياقية لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات، واستبدل الكود الأصلي بالكود التالي من VBA في الوحدة الفارغة:
كود VBA: تغيير لون مربع النص استنادًا إلى القيمة الموجودة في مربع النص:
Private Sub TextBox1_Change()
On Error Resume Next
Select Case TextBox1.Value
Case 1 To 10:
TextBox1.BackColor = vbRed
Case 11 To 20:
TextBox1.BackColor = vbGreen
Case Else:
TextBox1.BackColor = vbYellow
End Select
End Sub
ملاحظة: في الكود أعلاه،Textbox1 هو اسم مربع النص الذي أدرجته، ويمكنك تخصيص القيم ولون الخلفية داخل الكود بما يناسب احتياجاتك.
2. بعد ذلك، احفظ وأغلق نافذة الكود، ثم اخرج منوضع التصميم. الآن، إذا أدخلتَ قيمةً بين 1 و10 في مربع النص، سيصبح لون خلفيته أحمر؛ وإذا كانت القيمة بين 11 و20، يصبح لون خلفية مربع النص أخضر؛ أما بالنسبة للقيم الأخرى، فيصبح لون الخلفية أصفر، كما هو موضح في لقطة الشاشة التالية:
<
مقالات ذات صلة:
كيف يمكن تعيين قيمة افتراضية في مربع النص؟
كيف يمكن السماح بإدخال الأرقام فقط في مربع النص؟
كيف يمكن تطبيق التدقيق الإملائي داخل مربع نص؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل