基于单元格值隐藏对象

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

任何帮助将不胜感激！

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