vba - ExcelのVBA Ifステートメント

Question

セル D8 の値が 1 を超えるたびにマクロを実行する If ステートメントを作成するのに必要なのは、彼だけです。どこから始めればよいかわからない

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

数式のために値Range("D8")が変化している場合は、_Calculateイベントを使用する必要がある場合があります。例については、このリンクを参照してください。