כיצד לעצב מספרים בתיבת טקסט כמטבע ב-Excel?

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

עיצוב מספרים בתיבת טקסט כמטבע באמצעות קוד VBA

עיצוב תיבת טקסט כמטבע באמצעות קוד VBA

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

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

2. לחץ באמצעות לחצן ימני על תיבת הטקסט, ואז בחר באפשרות תצוגת קוד מהתפריט הנפתח.

3. בחלון Microsoft Visual Basic for Applications שנפתח, החלף את הקוד המקורי בחלון הקוד בקוד ה-VBA שלמטה.

קוד VBA: עיצוב תיבת טקסט כמטבע ב-Excel

Private Sub TextBox1_Change()
    TextBox1.Value = Format(TextBox1.Value, "$###,##")
End Sub

הערה: בקוד, TextBox1 הוא שם תיבת הטקסט שבה תעצב את המספרים כמטבע. החלף אותו בשם תיבת הטקסט שלך.

4. לחץ על המקשים Alt + Q יחד כדי לסגור את חלון Microsoft Visual Basic for Applications.

5. כבה את מצב העיצוב.

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

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

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