内容限制

lujkhua

zxcvbnm0000000 发表于 2019-1-19 17:07
大神，请问，这么调整为只提示。
现在时提示后录入的数据没了，比如我一般会录入10多个甚至更多，重新录 ...

修复多选删除出错
允许不符合要求的数据录入（应楼主要求）
不符合要求的数据用浅红标识单元格（应楼主要求）如果活动单元格为空或录入的数据符合要求则取消标识

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

复制代码

zxcvbnm0000000

lujkhua 发表于 2019-1-19 20:32
修复多选删除出错
允许不符合要求的数据录入（应楼主要求）
不符合要求的数据用浅红标识单元格（应楼主 ...

请教！
1.如果我把最大数有原来的一百调成50或者其他数在哪里修改也
2.可否标记错误数据，不是标识单元格（一次录入几十个数后查找费力）

zxcvbnm0000000

lujkhua 发表于 2019-1-19 20:32
修复多选删除出错
允许不符合要求的数据录入（应楼主要求）
不符合要求的数据用浅红标识单元格（应楼主 ...

请教！
3.第2到33行，最大50。
   第35到66行，最大100。
根据以后需要在添加其他区间及最大数

zxcvbnm0000000

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

Private Sub Worksheet_Change(ByVal Target As Range)
    With CreateObject("Vbscript.Regexp")
        .Global = True
        .Pattern = "\d{3}"
        If .test(Target.Formula) Then
            MsgBox "输入不符合要求!", 16, "提示"
            Target = ""
        Else
        End If
    End With
End Sub
请教！
1.可否标记错误数据（一次录入几十个数后查找费力）
2.第2到33行，最大50。
   第35到66行，最大100。
根据以后需要在添加其他区间及最大数

liulang0808

zxcvbnm0000000 发表于 2019-1-26 08:55
Private Sub Worksheet_Change(ByVal Target As Range)
    With CreateObject("Vbscript.Reg ...

楼主上传模拟附件说明具体需求吧

zxcvbnm0000000

liulang0808 发表于 2019-1-26 09:01
楼主上传模拟附件说明具体需求吧

请版主看看附件

liulang0808

代码见截图。。。。

zxcvbnm0000000

liulang0808 发表于 2019-1-26 11:22
代码见截图。。。。

版主可否在调整调整也

zxcvbnm0000000

zxcvbnm0000000 发表于 2019-1-26 18:16
版主可否在调整调整也

感谢版主！春节快乐

lysfox

设置数据有效性，另外设置为数值并保留2位有效小数