VBA isnumber istext函数问题

Question

即时尝试检查一个数字是否是银行系统中的文本或数字。如果值不正确，它应该清除并发送一条错误消息，但是我的代码根本无法工作......有人可以帮我吗？这里是代码：

Private Sub TextBox1_Change() 

    name = TextBox1 

    If Application.IsText(name) = True Then 
     IsText = True 
    Else 
     MsgBox "Insert only words" 
     Selection.name.Delete 
    End If 

End Sub 

Answer 1

我认为你应该使用name = TextBox1.Text来代替。这可能会给你在这条线上的错误。另外，您可能要等到用户输入完响应后，我相信每次按下某个字符时都会运行更改后的事件。 AfterUpdate将在您选中或点击文本框后运行。

真的，而不是删除响应（我不认为会起作用），您应该简单地将文本框设置为空白字符串。

Private Sub TextBox1_AfterUpdate() 
    If Not MyIsANumber(TextBox1.Text) Then 
     MsgBox ("It's Text") 
    Else 
     TextBox1.Text = "" 
    End If 
End Sub 

Function MyIsANumber(str As String) As Boolean 
    For i = 1 To Len(str) 
     If IsNumeric(Mid(str, i, 1)) Then 
      MyIsANumber = True 
      Exit Function 
     End If 
    Next 
     MyIsANumber = False 
End Function 

我确定代码可以更好地构造，但是有一些东西需要你做。在这种情况下，如果输入了一个数字，它就会擦除文本框。显然，事情需要与你想要包含数字的文本框相反。