excel - 根据单元格值隐藏图表

Question

我是 Excel VBA 新手，我正在尝试使用 VBA 代码解决此问题。

基本上，我的工作表有 12 个图表和 12 个表格。在任何给定时间，只有一个表会获取数据，并且只能看到该图。其他 11 个图表应隐藏。

我已经尝试过了

Sub getchart()

    If Range("C1") = Vub Then
      ActiveSheet.ChartObjects("Chart_33").Visible = True
    Else
      ActiveSheet.ChartObjects("Chart_33").Visible = False
    End If

End Sub

Answer 1

如果您需要在更改单元格的值时将图表从可见更改为不可见，则需要使用事件。

例如

Private Sub Worksheet_change(ByVal Target As Range)

If Target.Address = "$C$1" Then
  if target.value = "vub" then
    ActiveSheet.ChartObjects("Chart_33").Visible = True
  Else
    ActiveSheet.ChartObjects("Chart_33").Visible = False
  end if
End If

End Sub

此代码应插入到放置图表的工作表的工作表模块中。工作表模块可以在侧边栏中找到。