excel - 在excel VBA中的字符串中查找数字

Question

我试图在通过 excel vba 中的文本框给出的字符串中查找一个数字，并显示一个错误，指出它无法继续，之后它必须停止加载下面的代码。

fname 是用户给出的全名

If InStr(fname, "0") Then
    MsgBox ("Number Found In Your Name. Please Correct That!!")

 Dim i(0 To 9) As String
    i(0) = "0"
    i(1) = "1"
    i(2) = "2"
    i(3) = "3"
    i(4) = "4"
    i(5) = "5"
    i(6) = "6"
    i(7) = "7"
    i(8) = "8"
    i(9) = "9"


If InStr(fname, "0") Then
    MsgBox ("Number Found In Your Name. Please Correct That!!")

End If

它应该在用户给出的文本中进行搜索，如果它包含数字（数字列表）则显示错误

标签： excelvba

Answer 1

也许是一个简单的答案，但 Cstr() 将整数更改为字符串。

For i = 0 To 9
    If InStr(fname, CStr(i)) Then
        MsgBox ("Number Found In Your Name. Please Correct That!!")
        Exit For
    End If
Next