excel - 空白および 0 の値のセルを無視する範囲として、値のターゲットによって変更します

Question

Private Sub Worksheet_Change(ByVal Target As Range)

Dim c As Range

For Each c In Target.Cells
   **If c.Value <> Empty Or c.Value = 0 Then
   End If**
   If c.Column = 11 Then
   c.Offset(0, -1).Value = Now()
 
 End If
 Next c

End Sub

上記のコードはうまく機能していますが、太字のコードを追加して空白のセルを無視しようとしています (値が 0 のセルを無視することもできますが、必須ではありません)。

Answer 1

あなたは2つの議論を異なる方法で行っているようです。つまり、まとめ<> Emptyて=0同じテストに入れているということです。

いずれにせよ、これはセルに 0 以外の何かがある場合に変更を行い、おまけとして、セルが空または 0 の場合は変更をクリアします。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range

Application.EnableEvents = False
For Each c In Target.Cells
    If c.Column = 11 Then
        If c.Value = "" Or c.Value = 0 Then
            c.Offset(0, -1).ClearContents
        Else
            c.Offset(0, -1).Value = Now()
        End If
    End If
Next c
Application.EnableEvents = True
End Sub