[已解决]字符输入限制问题~~~~~~~~~~~~~》》》》》》

js5

Book1.rar (16.73 KB, 下载次数: 5)

2017-9-15 14:03 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

苏子龙

2017-9-15 16:17

1. Private Sub ComboBox1_Change()
   
2. '    Dim sr
   
3. '    sr = ""
   
4.     With ComboBox1    '
   
5.         If Not (IsNumeric(.Value) Or .Value = ""  Or .Value = "-") Then
   
6.             MsgBox "请输入数值"
   
7.             .Value = ""
   
8.         End If
   
9.     End With
   
10. End Sub

复制代码

是否这样？

跳转到最佳答案楼层

大灰狼1976

If str Like "[0-9.]" Then

js5

大灰狼1976 发表于 2017-9-15 14:06
If str Like "[0-9.]" Then

如何才能让 点号 只能出现1次呢，比如在 （-1）或（1）后面可以输入点号
效果：  1.235
            -12.9

而不是下面这样。
1.2.3
-.12.56

苏子龙

1. Private Sub ComboBox1_Change()
   
2. '    Dim sr
   
3. '    sr = ""
   
4.     With ComboBox1    '
   
5.         If Not (IsNumeric(.Value) Or .Value = ""  Or .Value = "-") Then
   
6.             MsgBox "请输入数值"
   
7.             .Value = ""
   
8.         End If
   
9.     End With
   
10. End Sub

复制代码

是否这样？

砂海

Private Sub ComboBox1_Change()

    If IsNumeric(ComboBox1.Value) + (ComboBox1.Value = "-") Then
        sr = ComboBox1.Value
    Else
        ComboBox1.Value = sr
    End If

End Sub
=======================
另:

在模块内    Public sr==============================
-----------------------------------------------------------
讲究一点 , 窗口退出时 , 将 sr=""

大灰狼1976

js5 发表于 2017-9-15 14:39
如何才能让 点号 只能出现1次呢，比如在 （-1）或（1）后面可以输入点号
效果：  1.235
            - ...

跟你加负号相同，做一些判断就行，不过这个比加负号要麻烦一点，因为位置不确定，所以必须判断前面的内容是否是数字，再判断出现一个.号后面就不允许再输入。