نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية تغيير لون مربع النص استنادا إلى القيمة في إكسيل؟

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

تغيير لون مربع النص استنادا إلى قيمة الخلية مع التعليمات البرمجية فبا

تغيير لون مربع النص استنادا إلى القيمة في مربع النص مع التعليمات البرمجية فبا


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


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

1. أدخل مربع نص بالنقر المطور > إدراج > مربع نص (تحكم أكتيفكس)، ثم رسم مربع نص، انظر الصورة:

دوك تكستبوكس اللون على أساس قيمة شنومكس

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

رمز فبا: تغيير لون مربع النص استنادا إلى قيم الخلايا:

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. ثم حفظ وإغلاق إطار التعليمات البرمجية، والخروج من وضع التصميم، الآن، إذا كان أكسنومكس الخلية أكبر من بكسنومك، عند كتابة النص في مربع النص، وسوف تكون مليئة اللون الأحمر، وإذا كان أكسنومك هو أقل من بكسنومك، عند إدخال قيمة في مربع النص، وسوف تكون مليئة اللون الأصفر، انظر الصورة:

دوك تكستبوكس اللون على أساس قيمة شنومكس


السهم الأزرق الفقاعة اليمنى تغيير لون مربع النص استنادا إلى القيمة في مربع النص مع التعليمات البرمجية فبا

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

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

رمز فبا: تغيير لون مربع النص استنادا إلى القيمة في مربع النص:

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. ثم حفظ وإغلاق إطار التعليمات البرمجية، والخروج من وضع التصميم، والآن، إذا قمت بإدخال القيمة بين شنومكس و شنومكس في مربع النص، لون الخلفية سوف تصبح حمراء، والقيمة بين شنومكس و شنومكس، لون الخلفية مربع النص سوف تصبح خضراء، وقيم أخرى، وسوف تصبح صفراء كما يلي تظهر الصورة:

دوك تكستبوكس اللون على أساس قيمة شنومكس


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

كيفية إدراج صورة في مربع النص؟

كيفية تعيين قيمة افتراضية في مربع نص؟

كيفية السماح فقط الأرقام لتكون المدخلات في مربع النص؟

كيفية تطبيق التدقيق الإملائي في مربع النص؟


Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 30.
علامة التبويب kte 201905

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

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Stefan · 1 years ago
    Nevermind, I figured it out. Instead of making the event which triggers the change "Textbox1_GotFocus()", I made it "Worksheet_SelectionChange(ByVal Target As Range)". Now any time the value in one of the cells changes, the textbox color changes automatically.
  • To post as a guest, your comment is unpublished.
    Stefan · 1 years ago
    For me, when trying to change the textbox color value based on two cell values, the textbox only updates if you type something into the textbox. I need it to update automatically. Guess I'll just have to learn VBA to figure out why.
  • To post as a guest, your comment is unpublished.
    Justin · 2 years ago
    Can someone provide an example workbook so I can see this working? I keep trying but to no avail. Thanks