以上的代码可以只能入字母和空格，请问怎么更改才可以也允许入数字(标签-ar|关键词-For)

Question

Private Sub TextBox1_Exit(ByVal Cancel As MSF
orms.ReturnBoolean)
Dim text As String
text = TextBox1.Value
Dim i As Integer
Dim invalidCharFound As Boolean
invalidCharFound = False
' 检查文本框中的字符是否为非允许的字符或空格
For i = 1 To Len(text)
    If Not (Asc(Mid(text, i, 1)) >= 65 And Asc(Mid(text, i, 1)) <= 90) And Asc(Mid(text, i, 1)) <> 32 Then
        invalidCharFound = True
        Exit For
    End If
Next i
 
' 如果存在非允许的字符，则给出提示并清空文本框
If invalidCharFound Then
    MsgBox "文本框中存在非允许的字符！", vbExclamation, "警告"
    TextBox1.Value = ""
End If
End Sub

以上的代码可以只能入字母和空格，但入数字就会不允许，请问怎么更改才可以也允许入数字 ？

Answer 1

该回答通过自己思路及引用到GPTᴼᴾᴱᴺᴬᴵ搜索,得到内容具体如下：
要允许输入数字，可以将代码中的条件判断语句进行修改。将原来的条件判断语句改为：

If Not (Asc(Mid(text, i, 1)) >= 65 And Asc(Mid(text, i, 1)) <= 90) And Asc(Mid(text, i, 1)) <> 32 And Asc(Mid(text, i, 1)) <> 48 And Asc(Mid(text, i, 1)) <> 49 And Asc(Mid(text, i, 1)) <> 50 And Asc(Mid(text, i, 1)) <> 51 And Asc(Mid(text, i, 1)) <> 52 And Asc(Mid(text, i, 1)) <> 53 And Asc(Mid(text, i, 1)) <> 54 And Asc(Mid(text, i, 1)) <> 55 And Asc(Mid(text, i, 1)) <> 56 And Asc(Mid(text, i, 1)) <> 57 Then

这样就可以允许输入数字了。

---

如果以上回答对您有所帮助，点击一下采纳该答案～谢谢