vba - 始终相同的自定义错误消息 - VBA 字 64 位

Question

我正在为 Word 2016 64 位的 VBA 创建一个程序。

如果有人在格式化为整数的文本框中输入字母，则会显示错误消息。

如何使它不允许用户输入除整数以外的任何内容？当用户单击提交按钮时，我可以让它检查吗？下面是一个TextBox的代码示例：

Private Sub CurrentRate_AfterUpdate()
    If CurrentRate.Text - CurrentRate.Text > 0 Then
        CurrentRate.Value = Format(CurrentRate.Value, "Percent")

    Else
        CurrentRate.Text = CurrentRate.Text / 100
        CurrentRate.Value = Format(CurrentRate.Value, "Percent")
    End If
End Sub

基本上它是取值currentRate并进行数学运算，然后将其格式化为百分比。如果它不是整数，则无法进行数学运算或将其格式化为导致错误的百分比。

在此先感谢您的帮助！

Answer 1

脱离 Andy G 所说的，我发现我应该检查该值是否是数字，如果是做公式，如果不是做一个消息框。

Private Sub CurrentRate_AfterUpdate()
    If IsNumeric(CurrentRate.Text) Then

        If CurrentRate.Text - CurrentRate.Text > 0 Then
            CurrentRate.Value = Format(CurrentRate.Value, "Percent")

        Else
            CurrentRate.Text = CurrentRate.Text / 100
            CurrentRate.Value = Format(CurrentRate.Value, "Percent")
        End If

    Else
        MsgBox("Invalid Entry, Please Try Again")
        CurrentRate.Text = ""

    End If
End Sub