内容限制

zxcvbnm0000000

liulang0808 发表于 2019-1-18 15:15
楼主用的公式啊，所以给楼主给模拟参考
具体楼主根据需求自己调整吧

看来期末考试要挨板子了

MOY838840554

两位小数这个要求去掉用数据有效性

zxcvbnm0000000

MOY838840554 发表于 2019-1-18 15:23
两位小数这个要求去掉用数据有效性

谢谢小莫啦

zxcvbnm0000000

liulang0808 发表于 2019-1-18 15:15
楼主用的公式啊，所以给楼主给模拟参考
具体楼主根据需求自己调整吧

版主请问，怎么说with后面的是子过程或函数未定义

microyip

zxcvbnm0000000 发表于 2019-1-18 15:21
看来期末考试要挨板子了

拿着5楼代码去交功课，然后老师说，我没教过正则，连我自己都不懂，这个正则是啥意思啊？
哈哈……

爱疯

数据有效性
=AND(a1<=100,MOD(a1*100,1)=0)

lujkhua

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     With CreateObject("Vbscript.Regexp")
   
3.         .Global = True
   
4.         .Pattern = "\d{3}"
   
5.         If .test(Target.Formula) Then
   
6.             MsgBox "输入不符合要求!", 16, "提示"
   
7.             Target = ""
   
8.         Else
   
9.         End If
   
10.     End With
    
11. End Sub

复制代码

zxcvbnm0000000

lujkhua 发表于 2019-1-19 13:36

大神，请问，这么调整为只提示。
现在时提示后录入的数据没了，比如我一般会录入10多个甚至更多，重新录不方便，我只需找出来改了就是
劳烦大神指点哈

zxcvbnm0000000

lujkhua 发表于 2019-1-19 13:36

谢谢你了，调好 了

liulang0808

zxcvbnm0000000 发表于 2019-1-18 15:29
版主请问，怎么说with后面的是子过程或函数未定义

楼主如果还有疑问，就上传带密码的附件吧