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

laterite

窗体文本框输入最大值可以直接调整属性，最小值也可以用Len判断，非数字等也都在论坛或网上找得到相应的代码，但是在一些情况下输入值的首位为0系统会自动忽略，比如在文本框中输入0555时，系统会当555处理，但是我想要的效果是用户首位数输入的值为0时，则msgbox提示输入有误。
另外，窗体文本框控件中小数点后如何限制只能输入两位数，网上看了一圈基本上都是js的正则表达式什么的，有点晕，之前没接触过js，看不懂

所以，真心求教，VBA如何实现窗体的文本框中输入的数值首位不能为0，以及小数点后限定只能输入两位，多输时则提窗提示，谢谢



PS：这个就没必要弄附件了吧

LIUZHU

限制输入两位数，你是指，如果输入小数点的位数超过了两位，仍然按照两位（四舍五入）处理，是吗？

LIUZHU

JSA窗体效果，参考下

LIUZHU

代码请参考

LIUZHU

附件，WPS测试

laterite

LIUZHU 发表于 2023-1-28 17:24
代码请参考

不好意思，你所附的代码应该不是VBA代码吧，JS代码我从未接触过，所以看不懂，也不知道怎么弄，不过还是感谢你的回复

LIUZHU

laterite 发表于 2023-1-28 18:19
不好意思，你所附的代码应该不是VBA代码吧，JS代码我从未接触过，所以看不懂，也不知道怎么弄，不过还是 ...

思路就是这个思路，改成VBA也可以，只是将数字转换数组麻烦点

laterite

LIUZHU 发表于 2023-1-28 18:24
思路就是这个思路，改成VBA也可以，只是将数字转换数组麻烦点

因为不懂JS，所以我也只能望码兴叹了

micch

1. Private Sub TextBox1_Change()
   
2.     x = TextBox1.Value
   
3.     If x Like "0*" Then
   
4.         MsgBox "首位输入了0"
   
5.     ElseIf x Like "*.##?" Then
   
6.         MsgBox "数字小数位只可输入2位"
   
7.     Else
   
8.         Exit Sub
   
9.     End If
   
10.     TextBox1.Value = Left(x, Len(x) - 1)
    
11. End Sub

复制代码

laterite

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

感谢感谢，代码有效，开始用打算截取第一个字符来判断是否为0，结果0值被忽略取的第二个字符的值来判断，再次感谢