使 VBA 表单文本框仅接受数字（包括、-和）。

Question

我有一个简单的文本框，我想验证它的输入，包括“”、“-”和“。”

Private Sub DisplayValue_TextBox_Change()
If Not IsNumeric(DisplayValue_TextBox.Value) Then
               MsgBox "Only numbers allowed"

      End If
End Sub

但这只接受数字0-9，不接受负值、正值或浮点值..

Answer 1

到目前为止，我一直依赖字符串解析来完成这项工作，我很高兴我决定检查并看看其他人是如何做的，并发现了这个问题。

我已经完善了鲁本·阿尔瓦雷斯的精彩答案。下面只允许数字输入，并且只允许一个小数点后。

Private Sub txtShift1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    Select Case KeyAscii
        Case 46
            If InStr(1, txtShift1, ".") > 0 Then KeyAscii = 0
        Case 48 To 57
        Case Else
            KeyAscii = 0
    End Select

End Sub

这可以进一步细化，以便在必要时只允许单个“”、“-”等。

Answer 2

使用 KeyPress 事件，并丢弃任何非数字条目：

Private Sub txtShift1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Debug.Print KeyAscii
If KeyAscii >= 48 And KeyAscii <= 57 Then
    Debug.Print "number"
Else
    Debug.Print "other"
    KeyAscii = 0
End If
End Sub

Answer 3

除了我的评论：

考虑一个带有Textbox1和CommandButton1的示例Userform1

当您在< code>TextBox1中输入任何内容时，change事件将触发- ie。键入一个字符将触发< code>Change()事件，并传递当前值，因此即使您键入负号，当前逻辑也会失败。

您需要的是使用另一个事件，如 _AfterUpdate（） 或 _Exit（），并在第二个事件上使用 amphasis，因为您可以取消事件:)

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Not IsNumeric(TextBox1.Value) Then
        MsgBox "only numbers allowed"
        Cancel = True
    End If
End Sub

您可以在此找到活动: