變化由VAL目標的範圍忽略空白和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

If c.Value != "" 

應該工作的空白單元格。

至少它的工作here。

至於忽略值0，不能你只需要改變的，如果子句if c.Value > 0？

Answer 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