כיצד לשנות את צבע תיבת הטקסט בהתבסס על ערך ב-Excel?

ב-Excel, אנו יכולים להחיל את פונקציית Conditional Formatting כדי לשנות את צבע הרקע בהתבסס על ערך התא, אך במאמר זה, אני אדבר על איך לשנות את צבע תיבת הטקסט בהתבסס על ערך התא או הערך בתוך תיבת הטקסט.

שינוי צבע תיבת טקסט בהתבסס על ערך תא עם קוד VBA

שינוי צבע תיבת טקסט בהתבסס על ערך בתיבת הטקסט עם קוד VBA

שינוי צבע תיבת טקסט בהתבסס על ערך תא עם קוד VBA

נניח, אם הערך בתא A1 גדול מהערך בתא B1, אני רוצה שתיבת הטקסט תתמלא בצבע אדום, ולהיפך, תיבת הטקסט צריכה להתמלא בצבע צהוב. אנא בצעו את המשימה הזו עם השלבים הבאים:

1. הוסיפו תיבת טקסט על ידי לחיצה על Developer > Insert > Text Box (ActiveX Control), ולאחר מכן סרטטו תיבת טקסט, ראו צילום מסך:

2. לאחר מכן לחצו ימני על תיבת הטקסט, ובחרו View Code מהתפריט הקונטקסטואלי כדי לפתוח את חלון Microsoft Visual Basic for Applications, ולאחר מכן החליפו את הקוד המקורי עם הקוד הבא של 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. לאחר מכן שמור וסגור את חלון הקוד, וצא מ מצב Design, כעת, אם תא A1 גדול מ-B1, כאשר אתם מקלידים טקסט בתיבת הטקסט, היא תתמלא בצבע אדום, ואם A1 קטן מ-B1, בעת הזנת ערך בתיבת הטקסט, היא תתמלא בצבע צהוב, ראו צילום מסך:

שינוי צבע תיבת טקסט בהתבסס על ערך בתיבת הטקסט עם קוד VBA

אם ברצונכם לשנות את צבע תיבת הטקסט בהתבסס על הערך בתיבת הטקסט, למשל, כאשר הערך בתיבת הטקסט הוא בין 1 ל-10, צבע הרקע של תיבת הטקסט יהיה אדום, צבע תיבת הטקסט יהיה ירוק אם הערך הוא בין 11 ל-20, אם הוא ערכים אחרים, צבע תיבת הטקסט יהיה צהוב. כדי להתמודד עם משימה זו, בבקשה השתמשו בקוד VBA הבא.

1. לאחר הכנסת תיבת טקסט, לחצו עליה ימני, ובחרו View Code מהתפריט הקונטקסטואלי כדי לפתוח את חלון Microsoft Visual Basic for Applications, ולאחר מכן החליפו את הקוד המקורי עם הקוד הבא של 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. לאחר מכן שמור וסגור את חלון הקוד, וצא ממצב Design Mode, כעת, אם תכניסו ערך בין 1 ל-10 לתיבת הטקסט, צבע הרקע שלה יהפוך לאדום, הערך בין 11 ל-20, צבע הרקע של תיבת הטקסט יהפוך לירוק, ערכים אחרים, הוא יהפוך לצהוב כפי שמוצג בצילום המסך הבא:

מאמרים קשורים:

כיצד להכניס תמונה לתוך תיבת טקסט?

כיצד להגדיר ערך ברירת מחדל בתיבת טקסט?

כיצד לאפשר רק מספרים להזנה בתיבת טקסט?

כיצד ליישם בדיקת איות בתיבת טקסט?