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

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

חלוקת טווח תאים במספר באמצעות פונקציית הדבקה מיוחדת

חלוקת טווח תאים במספר באמצעות פונקציית הדבקה מיוחדת

קוד ה-VBA הבא יכול לעזור לכם להזין מספרים, נקודה (.) וסימן שלילי בלבד לתוך תיבת טקסט, אנא עשו כך:

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

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

קוד VBA: לאפשר הזנת מספרים בלבד לתוך תיבת הטקסט:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then
        If KeyAscii = Asc("-") Then
            If InStr(1, Me.TextBox1.Text, "-") > 0 Or _
               Me.TextBox1.SelStart > 0 Then KeyAscii = 0
        ElseIf KeyAscii = Asc(".") Then
            If InStr(1, Me.TextBox1.Text, ".") > 0 Then KeyAscii = 0
        Else
            KeyAscii = 0
        End If
    End If
End Sub

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

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

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

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

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

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