VBA Userform文本框强制输入前置正负号及格式校验实现问题

原有代码的bug根源 #

• 失焦绕过的本质：仅在Change事件做输入校验，控件即将失去焦点的阶段没有强制拦截，用户不修改内容直接切走时，校验逻辑完全不会触发。
• 输入0时负号变正的本质：在Change事件中实时调用Format做格式转换，当输入内容为-0时，Format会将数值0自动匹配为正号格式，覆盖掉用户输入的负号。

优化实现逻辑 #

不需要为每个文本框重复写代码，先把所有需要遵循输入规则的文本框，在属性窗口把Tag属性设为SignedDecimal，统一关联以下两个事件逻辑即可：

1. 输入阶段的按键拦截（优化KeyPress逻辑） #

从输入源头限制非法字符，禁止在非首位位置输入正负号、禁止输入多个小数点：

Private Sub AllSignedDec_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger, ByVal Cancel As MSForms.ReturnInteger)
    Dim tb As MSForms.TextBox
    Set tb = Me.ActiveControl
    If tb.Tag <> "SignedDecimal" Then Exit Sub
    
    ' 限制正负号只能在第一个输入位置生效
    If Chr(KeyAscii) = "+" Or Chr(KeyAscii) = "-" Then
        ' 非首位位置输入正负号直接拦截
        If tb.SelStart <> 0 Then
            KeyAscii = 0
            Beep
            Exit Sub
        End If
        ' 首位已有正负号时，直接替换原有符号不重复新增
        If tb.SelLength = Len(tb.Text) And (Left(tb.Text, 1) = "+" Or Left(tb.Text, 1) = "-") Then
            KeyAscii = 0
        End If
        Exit Sub
    End If
    
    ' 仅放行数字、小数点、退格、删除、回车按键
    Select Case KeyAscii
        Case vbKey0 To vbKey9, vbKeyDecimal, vbKeyBack, vbKeyDelete, vbKeyReturn
            ' 禁止输入多个小数点
            If KeyAscii = vbKeyDecimal And InStr(tb.Text, ".") > 0 Then
                KeyAscii = 0
                Beep
            End If
        Case Else
            KeyAscii = 0
            Beep
    End Select
End Sub

2. 失焦阶段的强制校验（堵绕过漏洞） #

利用BeforeUpdate事件在控件即将失去焦点的节点做校验，不通过就取消焦点切换，从根源上杜绝Tab、点击其他控件绕过规则的可能：

Private Sub AllSignedDec_BeforeUpdate(ByVal Cancel As MSForms.ReturnInteger)
    Dim tb As MSForms.TextBox
    Set tb = Me.ActiveControl
    If tb.Tag <> "SignedDecimal" Then Exit Sub
    
    ' 空值直接放行，不强制要求必填
    If tb.Text = "" Then Exit Sub
    
    Dim isValid As Boolean
    ' 校验规则：开头必须为+/-，后续内容为合法十进制数字
    If Left(tb.Text, 1) Like "[+-]" Then
        Dim numPart As String
        numPart = Mid(tb.Text, 2)
        ' 排除空数值、多小数点、非数字字符的非法情况
        If IsNumeric(numPart) And Not numPart Like "*[!0-9.]*" Then
            isValid = True
        End If
    End If
    
    If Not isValid Then
        MsgBox "请输入带正负号的合法十进制数字，格式示例：+1.25、-0.75", vbExclamation, "输入无效"
        Cancel = True ' 阻止焦点切换，留在当前文本框
        tb.SelStart = 0
        tb.SelLength = Len(tb.Text)
    Else
        ' 仅在校验通过、即将失焦时统一做格式规整，不打断输入流程
        tb.Value = Format(Val(tb.Text), "+0.##;-0.##")
    End If
End Sub

方案效果说明 #

• 彻底堵住绕过漏洞：只要文本框内容非空，必须满足“带前置正负号的合法小数”要求，否则焦点不会离开当前文本框，无论用户按Tab、点击其他控件都无法跳过校验。
• 消除输入过程的格式错乱：格式转换逻辑从输入中途转移到失焦校验通过后执行，输入时不会自动替换用户输入的负号，不会出现输0就把负号变正的问题，完全匹配示例输入格式要求。

内容的提问来源于stack exchange，提问作者Hellzing