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

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

הגדרת ערך ברירת מחדל בתיבת טקסט עם קוד VBA

הגדרת ערך ברירת מחדל בתיבת טקסט עם קוד VBA

כדי להגדיר ערך ברירת מחדל בתיבת טקסט, הקוד הבא של VBA יכול לעזור לך:

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

2. לאחר מכן, לחץ ימני על תיבת הטקסט, ובחר תצוגה קוד מהתפריט הקונטקסטואלי, העתק והדבק את הקוד הבא של VBA כדי להחליף את הקוד המקורי לחלון Microsoft Visual Basic for Applications:

קוד VBA: הגדר ערך ברירת מחדל בתיבת טקסט:

Private Sub TextBox1_GotFocus()
If Me.TextBox1.Value = "" Then
  Me.TextBox1.Value = "Your name, please!"
End If
End Sub

הערה: בקוד לעיל, Textbox1 הוא שם תיבת הטקסט שהוספת, אתה יכול לשנות את ערך ברירת המחדל “Your name, please!” לטקסט שלך.

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

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

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

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

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

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