联动菜单，一级变化，二级三级清空

wjq6421 · 发表于 2018-10-30 23:04

各位晚上好，作为VBA的菜鸟，我已经走上学习VBA的荆棘之路，但是来不及使用我学习的成果，我得先做一个表单，请各位帮忙写一段代码（其实我已经搜索到几个帖子，但是我对修改其中的任何字段都无能为力，所以另外开贴求救，抱歉）

C4是一级菜单，
C5是二级，
C6是三级，
当按照C4-C5选择完毕后，再次选择C4时，C5和C6还保持在上一个作业的界面，我的需求是，再次选择C4时，C5和C6清空，让操作的人完成整个选择才可以。

wjq6421 · 发表于 2018-10-30 23:15

是谁在这么晚还在审核，辛苦了。我发年终奖请你吃饭。

不知道为什么 · 发表于 2018-10-30 23:33

wjq6421 发表于 2018-10-30 23:15
是谁在这么晚还在审核，辛苦了。我发年终奖请你吃饭。

如图，你要的是类似这么的效果？

wjq6421 · 发表于 2018-10-31 07:54

不知道为什么发表于 2018-10-30 23:33
如图，你要的是类似这么的效果？

这是我想要的结果的一种，是满足要求的，请问如何操作？

erlia2004 · 发表于 2018-10-31 11:41

本帖最后由 erlia2004 于 2018-10-31 12:40 编辑

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$C$4" Then
Range("c5").Value = ""
Range("c6").Value = ""
ElseIf Target.Address = "$C$5" Then
Range("C6").Value = ""
End If
End Sub

wjq6421 · 发表于 2018-10-31 12:45

erlia2004 发表于 2018-10-31 11:41
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Ad ...

非常感谢，是我想要的资料，我自己再研究一下。再次表示感谢。

alicezone · 发表于 2019-1-17 17:45

如果是一列呢，不是某个单元格

小小丘陵 · 发表于 2022-12-13 09:41

erlia2004 发表于 2018-10-31 11:41
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Ad ...

试了一下，不知道怎么回事，不行。

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

[求助] 联动菜单，一级变化，二级三级清空