根据单元格值隐藏对象

Question

我在电子表格中有一个对象（即一个名为“形状”的矩形），我想根据单元格值 (A1) 隐藏它。这是我在互联网上搜索后尝试过的，但它不起作用。抱歉，无论如何我都不是 VBA 专家。根据网络搜索，我通常能够应付自如，但这个让我很难过。

Private Sub HideShape(ByVal Target As Range)
    If Target.Row = 1 And Target.Column = 1 Then _
        Me.Shapes("Shape").Visible = (Cells(1, 1).Value = 1)
End Sub

我实际上有六个对象，我想根据六个单元格值类似地处理。这是我尝试过的代码：

Private Sub Worksheet_Calculate()
    Me.Shapes("ProjMgmt").Visible = (Me.Cells(101, 3).Value = 0)
    Me.Shapes("Planning").Visible = (Me.Cells(102, 3).Value = 0)
    Me.Shapes("Implementation").Visible = (Me.Cells(103, 3).Value = 0)
    Me.Shapes("Supplier").Visible = (Me.Cells(104, 3).Value = 0)
    Me.Shapes("Process").Visible = (Me.Cells(105, 3).Value = 0)
    Me.Shapes("Customer").Visible = (Me.Cells(106, 3).Value = 0)
End Sub

它适用于一种形状，但不适用于这六种形状。

Answer 1

如果您尝试使用Worksheet_Change 事件，则不能将Worksheet_Change 更改为HideShape...它必须是Worksheet_Change。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 1 And Target.Column = 1 Then _
        Me.Shapes("Shape").Visible = (Me.Cells(1, 1).Value = 1)
End Sub

如果A1中有公式，那么你必须使用Worksheet_Calculate：

Private Sub Worksheet_Calculate()
    Me.Shapes("Shape").Visible = (Me.Cells(1, 1).Value = 1)
End Sub