Question

单元格X5 = IF（J5> 1,1,0）当X5通过J5的数据刷新自动更改为1时，我需要运行宏，而不是手动输入！（尝试了一切，没有接缝工作，只是没有得到它）

Answer 1

假设这是Sheet1在Sheet1工作表中生成以下代码：

Dim X5 As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("X5").Value = 1 And X5 <> 1 Then
        MsgBox ("Macro")
    End If
    X5 = Range("X5").Value
End Sub

我们检查新值是否为1且旧值不是1然后运行宏并最终将新值存储为旧值。如果您只想在编辑J5时发生它，请执行以下操作：

Dim X5 As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$J$5" Then
        If Range("X5").Value = 1 And X5 <> 1 Then
            MsgBox ("Macro")
        End If
        X5 = Range("X5").Value
    End If
End Sub

在数据刷新的单元格更改上运行excel宏

1 个答案: