根据单元格值显示形状

Question

根据单元格值显示形状

我想基于单元格值> 1在工作表上显示和隐藏形状。如果单元格A1 = 1，则形状应可见，而值为0，则形状应隐藏。我需要代码来完成我的工作，

Answer 1

无论单元格值是手动更改还是作为公式结果，以下“私人子”都应起作用。假定单元格A1包含测试值，只需添加形状名称即可使其起作用：

 Private Sub Worksheet_Change(ByVal Target As Range)
        If ActiveSheet.Range("A1") = 1 Then
            Me.Shapes("Shape Name").Visible = True
            Else
                If ActiveSheet.Range("A1") = 0 Then
                Me.Shapes("Shape Name").Visible = False
                End If
        End If
 End Sub