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

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

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

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

看效果

Excel当上级菜单变动时,实现自动清空下级菜单内容【宏实现】_第1张图片

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

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当上级菜单变动时,实现自动清空下级菜单内容【宏实现】_第2张图片 ----然后粘贴-->>>>Excel当上级菜单变动时,实现自动清空下级菜单内容【宏实现】_第3张图片

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

你可能感兴趣的:(#,Excel,office应用)