基于单元格下拉值控制图表显示：VBA脚本失效求助

看起来你的脚本没正常运行大概率是几个常见问题导致的，再加上你贴的代码片段明显没写完，我来帮你梳理问题并给出完整的修正方案：

你的代码可能存在的问题 #

• 代码不完整：你提供的代码最后到ActiveShe...就截断了，应该是没写完对Chart 4的可见性设置
• 缺少错误防护：如果图表名称和单元格文本（比如大小写、空格）不匹配，代码会直接报错崩溃
• 未处理事件循环风险：Worksheet_Change事件如果不小心触发单元格修改，会导致无限循环
• 写法冗余易出错：逐个写每个图表的可见性，不仅麻烦，还容易打错图表名称

修正后的完整代码 #

把这段代码放到对应工作表的代码模块里（右键工作表标签→「查看代码」，粘贴到弹出的窗口中，不要放到普通标准模块）：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只响应A1单元格的修改
    If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
        ' 禁用事件，防止后续操作意外触发循环
        Application.EnableEvents = False
        
        ' 错误捕获，避免代码崩溃
        On Error GoTo Cleanup
        
        Dim selectedChartName As String
        selectedChartName = Me.Range("A1").Value
        
        ' 遍历所有图表，只显示选中的那个
        Dim chtObj As ChartObject
        For Each chtObj In Me.ChartObjects
            chtObj.Visible = (chtObj.Name = selectedChartName)
        Next chtObj
        
Cleanup:
        ' 恢复事件功能
        Application.EnableEvents = True
        ' 如果有错误，弹出提示
        If Err.Number <> 0 Then
            MsgBox "出错啦：" & Err.Description, vbExclamation
        End If
    End If
End Sub

关键改进点说明 #

1. 用Me代替ActiveSheet：Me直接指代当前工作表，比依赖活动工作表更可靠，不会因为切换工作表出问题
2. 循环处理所有图表：不用逐个写每个图表的可见性，只要图表名称和下拉选项完全匹配，就能自动处理，哪怕以后加新图表也不用改代码
3. 错误处理+事件禁用：避免因为图表名称不匹配、操作失误导致代码崩溃，同时防止事件循环
4. 更严谨的触发条件：确保只有A1单元格修改时才会执行代码

额外检查事项 #

• 确认图表的实际名称和下拉选项完全一致：选中图表后，看Excel顶部名称框里的名称，是不是"Chart 1"、"Chart 2"（注意空格和大小写）
• 确保下拉列表的选项文本和图表名称一字不差，哪怕多一个空格都会导致匹配失败

内容的提问来源于stack exchange，提问作者Kevin P.