有條件地顯示圖表

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組合框代替（開發人員選項卡 - >插入 - >組合框）。
的則不用WorkSheet_Change使用ComboBox1_Click（）作爲事件處理

您訪問與ComboBox1.value所選擇的項目（假設你沒有更改默認的「ComboBox1」的名字）。