מספרים ב inputbox

[חנון המרבה]

איך אני יכול לודא שהערך המוחזר מתיבת inputbox (בVBA באקסל) הוא מספר ללא תווים אחרים?!

[avi rz]

@חנון-המרבה
לבדוק עם הפונקציה

IsNumeric()

[חנון המרבה]

@avi-rz תודה
הנה דוגמא

Sub בדיקת_מספר()
Dim i
i = InputBox("הזן מספר")
If IsNumeric(i) = True Then
MsgBox "מספר"
Else
MsgBox "אינו מספר"
End If
End Sub

[nach]

@חנון-המרבה אין צורך לציין == True הרי זה הערך המוחזר ע"י הבדיקה.

Sub check_num()

Dim num

num = InputBox("Enter a number:")

If IsNumeric(num) Then
    MsgBox ("מספר")
Else
    MsgBox ("אינו מספר")
    
End If


End Sub