vba设置数据有效性、工作表事件

scl2003921

请教各位高手：

       我用vba工作表事件设置数据有效性，主要实现几个功能：
       1、禁止复制粘贴；
       2、禁止越过左侧列表直接填右侧列表，即必须自左向右逐一选择，不能跳、不能空；
       3、当删除左侧已选项时，自动删除同一行的右侧已选项；
       4、当同一行右侧有内容而左侧某列为空值时，该行3列内容全部清空，禁止不选左侧直接手工填入右侧内容，以防数据有效性失效。
       说明：“省市县名单”为数据源，“下拉表”中ABC共3列为实际操作区域。

      但是，实际执行中主要存在2个问题，全部集中在附件的第一段程序中：
      1、ABC 3列全部选择填充后，若删除A列单元格内容，如果不使用On Error Resume Next，会报错，但也能得到想要的结果（即BC列的内容自动清空）；
      2、本来觉得这个程序运行的还可以，但在部分语句的后面加了msgbox提示后，才发现其实运行过程中浪费了很多时间，有时候要对msgbox信息点击50多次。
      3、意外发现的一个小问题，本来我设计的操作区是ABC列，但第5行的D列及以后不知为什么也出现了数据有效性选项，而且删除此行后不知什么时候又出现了。

      请帮我看看，如何解决这2个问题。

scl2003921

感觉home论坛的活跃度比原来差很多了，为什么我的帖子没有大佬回复啊？

feilanga

因为事件本身调试就麻烦。

feilanga

1. Application.EnableEvents = False  '事件关闭
   
2. Application.EnableEvents = True  '事件开启

复制代码

代码很简单，自己调试把。为了避免重复触发事件，可以加以限制。具体逻辑没有看，自己慢慢调试检查逻辑把

feilanga

关于第三个问题，If Target.Column > 3 Then Exit Sub ，则要对事件代码的触动范围做限制。总之，事件代码，尽量避免重复触发以及做好区域的限制，以及逻辑的正确，自己慢慢调试把

feilanga

如果后续还有问题，那你就要自己缕一下语句的逻辑是否有问题。事件就是比较麻烦。所以只能自己慢慢检查

feilanga

关于第二个问题，做好事件触发区域的限制就可以了

feilanga

If Target.Address Like "*:*" Then Exit Sub  '多选退出

feilanga

If Not IsArray(arr) Then Exit Sub   '检查arr不是数组,退出

feilanga

   If Intersect([a:a], Target) Is Nothing Then Exit Sub

    '如果选择的单元格不存在于A列，则退出。A列是设置数据验证的区域
If Target.Rows.Count > 1 Then Exit Sub '不允许选择多行