运行P列图片下拉后B：E列4级有效数据失灵

lidayu

本工作表中BCDE四列是有效数据性4级下拉，没运行P列图片下拉前使用正常，运行P列后就失灵了，请老师帮助解决在下感激不尽，呈上附件供您调试。

运行图片下拉后有效数据失灵2.rar (440.05 KB, 下载次数: 6)

2021-1-8 21:38 上传

点击文件名下载附件

砂海

没搞出来,
不过
    If Target.Column = 2 Then
        ''''
    Else
        If Target.Column = 3 Then
            ''''
可以写为:
    If Target.Column = 2 Then
        Debug.Print "B"
    ElseIf Target.Column = 3 Then
        Debug.Print "C"
    End If
=================
或者
    Select Case Target.Column
    Case 2
        Debug.Print "B"
    Case 3
        Debug.Print "C"
    End Select

可以 减少 嵌套 , 简单清晰 一些

lidayu

砂海 发表于 2021-1-6 20:50
没搞出来,
不过
    If Target.Column = 2 Then

你好，现在主要问题是BCDE及P列的下拉列表能正常使用

lidayu

请老师们帮助，可能是附件涉及代码太多导致无人愿意帮助，我已重新整理附件把无关的代码删除了，恳请老师们的帮助。