老师们帮忙 如何实现 a b列满足条件c列才能录入数字和字符

hylyq63

老师们好   请帮忙做个vba
a列需要输入11位数手机号码   b列需要输入18位身份证号码   a  b列满足条件c列才能输入数字或字符
需要vba

liulang0808

没有附件，可能表格事件能满足要求吧，供参考
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count <> 1 Then Exit Sub
    If Target.Column <> 3 Then Exit Sub
    If Not (VBA.IsNumeric(Target.Offset(0, -2)) And Len(Target.Offset(0, -2)) = 11 And Len(Target.Offset(0, -1)) = 18) Then
        Target.Offset(0, -1).Select
    End If
End Sub

hylyq63

liulang0808 发表于 2018-9-13 18:53
没有附件，可能表格事件能满足要求吧，供参考
Private Sub Worksheet_SelectionChange(ByVal Target As Ra ...

老师好 我没有表达清楚 谢谢您 Book2.rar (4.87 KB, 下载次数: 2)

2018-9-13 20:41 上传

点击文件名下载附件

liulang0808

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Count <> 1 Then Exit Sub
   
3.     If Target.Column <> 3 Then Exit Sub
   
4.     If Not (VBA.IsNumeric(Target.Offset(0, -2)) And Len(Target.Offset(0, -2)) = 11 And Len(Target.Offset(0, -1)) = 18) Then
   
5.         MsgBox "请确认：a或b列是否正确"
   
6.     End If
   
7. End Sub
   

复制代码

liulang0808

附件内容供参考。。。。。

hylyq63

liulang0808 发表于 2018-9-13 20:48
附件内容供参考。。。。。

谢谢  谢谢

hylyq63

liulang0808老师   谢谢  谢谢

hylyq63

liulang0808 发表于 2018-9-13 20:47

liulang0808老师 您好  请给改一个在工作簿中每个工资表都能实现这个功能 的vba吧

hylyq63

liulang0808 发表于 2018-9-13 20:48
附件内容供参考。。。。。

liulang0808老师  您好  请给改个整个工作簿的工作表都能实现这个功能的vba  行吗  谢谢

liulang0808

可以 在每个工作表对应的区域放同样的代码
另外就是工作薄里SheetSelectionChange