比较单元格中的日期和日期

Question

在A栏中，我的日期格式为“Jan-2016”。 在F栏中，我有短文短语。 在J列中，我有颜色名称。

如果在F和A列中满足条件，我试图更改为J列中的颜色。目前我的代码忽略了A列中的日期条件，并为每个“dog”实例将列J变为“蓝色”。

感谢任何帮助。谢谢。

Sub CompleteKDs()
For MY_ROWS = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
    If Range("F" & MY_ROWS).Value = "dog" And Range("A" & MY_ROWS).Value >= (6 / 1 / 2016) Then
        Range("J" & MY_ROWS).Value = "blue"
    End If
Next MY_ROWS

End Sub

Answer 1

Rdster正确回答：将您的约会日期改为＃...＃6/1/2＃