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

我有简单的文本框，我想验证其输入，包括“+”、“-”和“。”这是我尝试过的

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

      End If
End Sub

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

进一步我的评论：

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

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

您需要的是使用另一个事件，例如_AfterUpdate() or _Exit()在第二个上加强调号，因为您可以取消该活动:)

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

您可以在这里找到活动：