[已解决]求VBA代码

安全网 · 发表于 2015-7-10 08:43

求助：用VBA设置L1-L6单元格的数据录入只能是12位，且单元格的数据最后一位必须是Z或者Y才可以录入，在L1-L7之间是不断的插入和删除单元格都在录入控制范围

最佳答案

爱疯

2015-7-10 09:48

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < Range("a:a").Find("序号").Row And Target.Column = Range("L:L").Column Then
      Application.EnableEvents = False
      If Len(Target) = 12 Then
         If Right(Target, 1) = "Y" Or Right(Target, 1) = "Z" Then
            MsgBox "ok"
         Else
            MsgBox "最后一个字符不是Y，或不是Z。"
            Target = ""
         End If
      Else
         MsgBox "字符长度不是12。"
         Target = ""
      End If
      Application.EnableEvents = True
End If
End Sub

录入位数限制2.rar (8.88 KB, 下载次数: 7)

爱疯 · 发表于 2015-7-10 09:48

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < Range("a:a").Find("序号").Row And Target.Column = Range("L:L").Column Then
      Application.EnableEvents = False
      If Len(Target) = 12 Then
         If Right(Target, 1) = "Y" Or Right(Target, 1) = "Z" Then
            MsgBox "ok"
         Else
            MsgBox "最后一个字符不是Y，或不是Z。"
            Target = ""
         End If
      Else
         MsgBox "字符长度不是12。"
         Target = ""
      End If
      Application.EnableEvents = True
End If
End Sub

录入位数限制2.rar (8.88 KB, 下载次数: 7)

安全网 · 发表于 2015-7-10 14:19

If Len(Target) = 12 Then这句总是跳出运行错误

爱疯 · 发表于 2015-7-10 17:44

录入位数限制3.rar (9.77 KB, 下载次数: 3)

安全网 · 发表于 2015-7-11 08:26

还是在那个位置运行出错！

		自动登录	找回密码
密码			注册