vb excel改变形状不同的表

Question

我有两张表，一张名为Form，我在下面有vb代码。 另一张名为Infographics的表格，我有一些形状。

在表单表格中我有一个单元格E7，该单元格的值来自公式（= IF（D7 =“是”，1，IF（D7 =“否”，0）））。 取决于1或0，它应该改变另一个工作表中的形状（称为step1）。 但它不起作用。 当在同一张表中完成所有操作时，它可以正常工作。

知道我在这里缺少什么吗？

在我的表单中，我有以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E7")) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) Then
    If Target.Value = 0 Then
        Worksheets("Infographic").Shapes("Step1").Fill.ForeColor.RGB = vbRed
    ElseIf Target.Value = 1 Then
        Worksheets("Infographic").Shapes("Step1").Fill.ForeColor.RGB = vbGreen
    Else
        Worksheets("Infographic").Shapes("Step1").Fill.ForeColor.RGB = vbGrey
    End If
End If
End Sub