两个下拉菜单问题求助

hscxm

以上两个问题，请大师帮忙解决，谢谢!

fish933211

二阶下拉菜单

hscxm

fish933211 发表于 2019-11-22 08:23
二阶下拉菜单

1、二级下拉已做好。我是说当一级下拉菜单改变，二级下拉菜单自动清空内容，再点击选择。关键是二级下拉菜单是一个合并单元格。
2、第二个就是点一级下拉菜单A、B、C时，二级下拉菜单自动对应显示A1、B1、C1.
点二级下拉菜单A1、B1、C1时，一级下拉菜单自动对应显示A、B、C.

终是一壶天子笑

通过vba实现吧，下拉菜单没有自动清空的功能

叶子Excel

四字成语“无能为力”，也可以用三个字白话文“干不了”代替，你这个思路可能需要改变，另外合并单元格不方便处理，单元格对齐格式选跨列居中格式，比合并好用省事儿

hscxm

终是一壶天子笑 发表于 2019-11-22 10:06
通过vba实现吧，下拉菜单没有自动清空的功能

如果不合并单元格，VB是可以实现自动清空，但合并单元格的不行

终是一壶天子笑

hscxm 发表于 2019-11-22 10:41
如果不合并单元格，VB是可以实现自动清空，但合并单元格的不行

可以，赋值为空就行啦

hscxm

终是一壶天子笑 发表于 2019-11-22 11:39
可以，赋值为空就行啦

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
            Rng.Offset(0, 2).ClearContents
        End If

帮我改一下代码

终是一壶天子笑

hscxm 发表于 2019-11-22 14:02
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range
    If Target.Row  2 Th ...

Rng.Offset(0, 2).value=""

hscxm

终是一壶天子笑 发表于 2019-11-22 14:52
Rng.Offset(0, 2).value=""

搞定了，非常感谢！表中的第二个问题能帮忙解决一下吗？谢谢