[已解决]二级菜单求助

ccq000000

      我做了一个二级下拉菜单,当第一级菜单进行变化时第二级菜单不能被清空或联动仍保持上一次的选项结果,想请各位使用VBA的方法来帮我解决这个问题.(附件一并上传) 二级下拉菜单.rar (4.74 KB, 下载次数: 9)

2012-11-16 20:23 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2012-11-16 21:38

二级下拉菜单2.rar (9.26 KB, 下载次数: 14)

2012-11-16 21:37 上传

点击文件名下载附件

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x
    If Target.Address <> "$H$6" Then End
    For Each x In [d6:f6]
        If x = Target Then
            Application.EnableEvents = False
            Target.Offset(0, 1) = x.Offset(1, 0)
            Application.EnableEvents = True
            Exit For
        End If
    Next
End Sub

跳转到最佳答案楼层

爱疯

二级下拉菜单2.rar (9.26 KB, 下载次数: 14)

2012-11-16 21:37 上传

点击文件名下载附件

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x
    If Target.Address <> "$H$6" Then End
    For Each x In [d6:f6]
        If x = Target Then
            Application.EnableEvents = False
            Target.Offset(0, 1) = x.Offset(1, 0)
            Application.EnableEvents = True
            Exit For
        End If
    Next
End Sub

h16503

http://www.excelpx.com/thread-151919-1-1.html

h16503

http://www.excelpx.com/forum.php ... ;pre_pos=6&ext=

ccq000000

爱疯 发表于 2012-11-16 21:38
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x
    If Target.Address  "$H$6" Th ...

非常感谢您的帮助