Excel当上级菜单变动时,实现自动清空下级菜单内容【宏实现】

假设我的一级菜单是在A列,二级菜单在B列,现在的需求是:更改一级菜单后使二级菜单清空

这样做目的是重新填二级菜单,避免信息无效(如果只改一级菜单内容,二级菜单可能就不是一级菜单底下的了)

这里只能用宏来实现,写VBA程序实现

看效果

〇、鼠标右键点击工作表标签,选择“查看代码”,将下面的代码粘贴到宏编辑框:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range
    If Target.Row < 2 Then Exit Sub '修改第一行(标题)不往下执行
    For Each Rng In Target
        If  Rng.Column = 1 Then '修改A列
            Rng.Offset(0, 1).ClearContents '清除B列
        End If
        If  Rng.Column = 2 Then '修改B列
            Rng.Offset(0, 1).ClearContents '清除C列
        End If
    Next
End Sub

----然后粘贴-->>>>

一、最后将Excel文件保存成xlsm格式即可

评论 9
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

cy谭

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值