求教一级下拉菜单内容变更后，自动将二级下拉菜单内容变更为空白内容的设置方法

hheepp

已设置半动态关联的二级下拉菜单（见附件填充为黄色部分），现在的问题是，如果一二级菜单都已选择好后，现在变更一级菜单内容，二级菜单的内容还是没有变，那么其对应关系肯定就是错误的，我想设置为如果变更一级菜单内容，原选定的二级菜单自动提示无效或变更为一个空白格，（意思就是要强制要求填报者再次根据变更后的一级菜单所对应的内容选择二级菜单），这个肿么破？求高人指点（原有数据有效性的公式也是百度来的，不知其所以然....)

交叉点

hheepp.rar (12.21 KB, 下载次数: 548)

2015-6-15 01:01 上传

点击文件名下载附件

sayhi95

简单写一段代码就好了

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address = "$I$2" Then MsgBox ("请相应选择二级下拉菜单内容")
   
3. End Sub
   

复制代码

hheepp

交叉点 发表于 2015-6-15 01:01

谢谢！请问就是增加了VBA指令么

hheepp

交叉点 发表于 2015-6-15 01:01

可是我把为什么把代码复制到我的原表中，就不行了呢...

hheepp

sayhi95 发表于 2015-6-15 08:30
简单写一段代码就好了

大神，请教如果要把你这个提示综合到前一位大神的代码中去该如何修改？

sayhi95

hheepp 发表于 2015-6-15 09:24
大神，请教如果要把你这个提示综合到前一位大神的代码中去该如何修改？

二楼老师是清除原来的选择内容，我做的是提示。

hheepp

sayhi95 发表于 2015-6-15 09:27
二楼老师是清除原来的选择内容，我做的是提示。

是两者有冲突么？可否综合？即清除原来的选择内容后，再给出提示

sayhi95

hheepp 发表于 2015-6-15 09:33
是两者有冲突么？可否综合？即清除原来的选择内容后，再给出提示

不冲突，两段代码合并一下就行了

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address = "$I$2" Then Range("j2").ClearContents
   
3. If Target.Address = "$I$2" Then MsgBox ("请相应选择二级下拉菜单内容")
   
4. End Sub
   

复制代码

hheepp

sayhi95 发表于 2015-6-15 09:38
不冲突，两段代码合并一下就行了

原来可以这样直接合并....小白真是伤不起啊，受教了，不胜感激