excel - 用于定义 VB 动作的 Excel 公式 - 请在单元格更改值后帮助刷新

Question

我正在用 excel 创建一个标签打印应用程序。用户将从下拉菜单中选择产品，然后将查找值以填充单元格 A1、B1 和 C1（X 或 0）

X 表示显示菱形，0 表示隐藏。

如果我手动更改值，钻石会出现/消失。如果我使用下拉菜单，公式会更改单元格 A1、B1 和 C1 的值，但 VB 会忽略更改。有任何想法吗？谢谢你。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row = 1 And Target.Column = 1 Then _
    Me.Shapes("Diamond 1").Visible = (Cells(1, 1).Value = "x")

If Target.Row = 1 And Target.Column = 2 Then _
    Me.Shapes("Diamond 2").Visible = (Cells(1, 2).Value = "x")

If Target.Row = 1 And Target.Column = 3 Then _
    Me.Shapes("Diamond 3").Visible = (Cells(1, 3).Value = "x")

End Sub

标签： excelvba