求教，VBA实现窗体文本框输入的数值首位不为0，且小数点后只能输入两位

LIUZHU

micch 发表于 2023-1-28 18:59

首位是0，要排除0.*这种，这种是有效的

micch

micch 发表于 2023-1-28 18:59

Private Sub TextBox1_Change()
    x = TextBox1.Value
    If x Like "0#*" Then
        MsgBox "首位输入了0"
        TextBox1.Value = mid(x, 2)
    ElseIf x Like "*.##?" Then
        MsgBox "数字小数位只可输入2位"
        TextBox1.Value = Left(x, Len(x) - 1)
    End If
   
End Sub

micch

micch 发表于 2023-1-28 18:59

Private Sub TextBox1_Change()
    x = TextBox1.Value
    If x Like "0#*" Then
        MsgBox "首位输入了0"
        TextBox1.Value = mid(x, 2)
    ElseIf x Like "*.##?" Then
        MsgBox "数字小数位只可输入2位"
        TextBox1.Value = Left(x, Len(x) - 1)
    End If
End Sub

laterite

学习了，受教了，感谢

准提部林

一輸入首位0, 即提出訊息, 不會有機會再輸入第2個數字,
If x Like "0#*" Then...輸入00提出訊息, 去掉首0, 還是留了一個0

ElseIf x Like "*.##?" Then...如果輸入2.2.3 或 2.3A 就不會有訊息

若是只能輸入數字及小數點(2位數), 才須其它判斷~~

laterite

准提部林 发表于 2023-1-29 00:45
一輸入首位0, 即提出訊息, 不會有機會再輸入第2個數字,
If x Like "0#*" Then...輸入00提出訊息, 去掉首0 ...

值得参考的建议

准提部林

laterite 发表于 2023-2-1 11:26
值得参考的建议

Private Sub TextBox1_Change()
Dim X$, V%, S%
X = TextBox1.Text: V = Len(X)
If Not Right(X, 1) Like "[0-9.]" Then S = V
If X Like "*.##?" Then S = V
If InStr(".0", Left(X, 1)) Then S = 1
If S > 0 Then TextBox1 = Left(X, S - 1)
End Sub

反正輸入不符合的, 都會自動調整, 那msgbox多餘

laterite

准提部林 发表于 2023-2-1 16:52
Private Sub TextBox1_Change()
Dim X$, V%, S%
X = TextBox1.Text: V = Len(X)

好的，非常感谢