הגבלה לספרות ( isNumeric(x בקשר לאותיות איני זוכר שיש פונקציה שבודקת אותיות אבל אם לא תמצא תוכל להגביל אותם על ידי ה ASCII שלהם א- ב 224 - 250 a - z 65 - 90 A - Z 97 - 122 בהצלחה אריה
Sub Command1_Click () Dim h h = InputBox(````, ````) If IsNumeric(h) Then MsgBox ``Number`` If Asc(h) > 224 And Asc(h) < 250 Then MsgBox ``Hebrew`` End Sub נראה לי שזה מודפס קצת מבולבל בעיקרון כל ה```` צריכים להיות בצד ימין בהצלחה
שלום שמה של הפונקציה הוא isNumeric ושימושה הוא כך: למקרה של הגבלה לאותיות בלבד If IsNumeric(txtResult.Text) Then lblNum(55).Caption = txtResult.Text end if למקרה של הגבלה לאותיות בלבד If Not IsNumeric(txtResult.Text) Then lblNum(55).Caption = txtResult.Text end if
