有条件地显示图表

我在一张纸上有一堆图。 另外，我有一个项目的下拉菜单。 当我select一个特定的项目，我只想显示与该项目相关的graphics。 我将如何做到这一点？

这是一个macros：

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 

当我从下拉菜单中select项目时，必须单击另一个单元格，然后再单击下拉菜单以显示graphics。 我如何让graphics瞬间显示？

Answer 1

我会创build一个ActiveXcombobox（开发人员选项卡 – >插入 – >combobox）。
然后，而不是WorkSheet_Change使用ComboBox1_Click（）作为事件处理程序

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