有条件地显示图表

Question

我在一张纸上有一堆图表。另外，我有一个项目的下拉菜单。当我选择特定项目时，我只想显示与该项目相关联的图表。我该怎么做？

这是一个宏：

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$2" Then
        ActiveSheet.ChartObjects.Visible = False
        On Error Resume Next
        ChartObjects(Target.Value).Visible = True
End If
End Sub

当我从下拉菜单中选择项目时，我必须单击另一个单元格，然后单击下拉菜单以显示图形。如何让图表即时显示？

Answer 1

我会创建一个ActiveX组合框（Developers tab-＆gt; Insert-＆gt; ComboBox）。
然后使用ComboBox1_Click（）作为事件处理程序而不是WorkSheet_Change

使用ComboBox1.value访问所选项目（假设您不更改默认的“ComboBox1”名称）。