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

sayhi95

hheepp 发表于 2015-6-15 10:44
原来可以这样直接合并....小白真是伤不起啊，受教了，不胜感激

哈哈，我也是VBA小白。

hheepp

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

再请教一下，如图所示，T列如果显示“未超时”，或从“已超时”变更为“未超时”，U列也要变回空格和出现提示的话，该怎么改？

sayhi95

hheepp 发表于 2015-6-15 14:19
再请教一下，如图所示，T列如果显示“未超时”，或从“已超时”变更为“未超时”，U列也要变回空格和出现 ...

上VBA版块提问吧，我是VBA小白。

hheepp

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

大神，我把一二级菜单下拉以后，就没用了啊，能不能设置整列啊？

sayhi95

hheepp 发表于 2015-6-15 17:47
大神，我把一二级菜单下拉以后，就没用了啊，能不能设置整列啊？

代码这样改一下：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Cells.Column = 9 Then Target.Cells.Offset(, 1).ClearContents
   
3. If Target.Cells.Column = 9 Then MsgBox ("请相应选择二级下拉菜单内容")
   
4. End Sub

复制代码

hheepp

sayhi95 发表于 2015-6-16 08:55
代码这样改一下：

牛！！！！！

sayhi95

hheepp 发表于 2015-6-16 17:32
牛！！！！！

呵呵，过奖了，瞎对付的。

yuhy003

又学到了新知识。非常感谢！

Mao小琴

hheepp 发表于 2015-6-15 10:44
原来可以这样直接合并....小白真是伤不起啊，受教了，不胜感激

必须代码才能实现吗？

小宝211

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

这是改变的是一个单元格。如果我想对一列数据修改，难道还要将2改成3 4 5 6...这样一点点改麻烦，有没有通用的公式呢