vba - excel中的VBA If语句

Question

我需要他帮助编写一个 If 语句，该语句将在每次单元格 D8 中的值超过 1 时运行一个宏。不知道从哪里开始

Answer 1

干得好...

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("D1")) Is Nothing Then Exit Sub
If Not Range("D1").Value > 1 Then Exit Sub

MsgBox "D1 > 0"

End Sub

有关 _Change 事件的更多信息：

http://msdn.microsoft.com/en-us/library/office/ff839775.aspx

Answer 2

这是一个简单的 if 语句。

    If Range("D8").Value > 1 Then
        '~~> Your code here
    End If

你可以把它放在Worksheet_Change事件中。我还建议阅读此链接，其中谈到Worksheet_Change

如果 in 中的值Range("D8")由于公式而发生变化，那么您可能必须使用该_Calculate事件。有关示例，请参见此链接。