如何在日期早於特定日期的任何單元格中搜索列並突出顯示它們？

Question

我只是試圖搜索特定列的任何日期早於用戶指定。

Dim rCell As Range 
Dim TheAnswer$ 
TheAnswer = InputBox("In M/D/YYYY format, enter the first day of the month for which this report is being run." & _ 
        vbCr & vbCr & "For example, you would enter ""12/1/2012"" for the December 2012 report.", "Enter Date M/D/YYYY") 

For Each rCell In ActiveSheet.Range("D:D").Cells 
    If rCell.Value < TheAnswer Then 
     rCell.Interior.Color = RGB(255, 102, 0) 
    End If 
Next rCell 

我的問題是，這並不總是選擇正確的。如果我使用兩位數的月份或日期，它會完全忽略一位數字的月份和日期。我已經使用03/14/01日期格式格式化單元格，所以它們顯示正常，但值不匹配。我可以簡單地更改顯示的值以符合值嗎？如果是這樣，我該怎麼做？

在此先感謝。

更新：在Kevin的幫助下，我解決了這個問題。如果任何人發現它是有用的，這是我的最終確定代碼：

Range(Cells(2, 4), Cells(Rows.Count, 4).End(xlUp)).Select 

Dim rCell As Range 
Dim TheAnswer$ 
Dim ConvertedDate# 

TheAnswer = InputBox("In M/D/YY format, enter the first day of the month for which this report is being run." & _ 
        vbCr & vbCr & "For example, you would enter ""12/1/2012"" for the December 2012 report.", "Enter Date M/D/YY") 
ConvertedDate = CDate(TheAnswer) 

For Each rCell In Selection 
    If rCell.Value <> "" Then 
     If rCell.Value < ConvertedDate Then 
      rCell.Interior.Color = RGB(255, 102, 0) 
     End If 
    End If 
Next rCell 

Answer 1

您已經定義TheAnswer作爲一個字符串，而rCell.Value會的日期，所以結果會不一致。試試這個：

Dim rCell As Range 
Dim TheAnswer$ 
Dim ConvertedDate# 
TheAnswer = InputBox("In M/D/YYYY format, enter the first day of the month for which this report is being run." & _ 
       vbCr & vbCr & "For example, you would enter ""12/1/2012"" for the December 2012 report.", "Enter Date M/D/YYYY") 
ConvertedDate = CDate(TheAnswer) 
For Each rCell In ActiveSheet.Range("D:D").cells 
If rCell.Value < ConvertedDate Then 
    rCell.Interior.Color = RGB(255, 102, 0) 
End If 
Next rCell 

此外，考慮不使用整個列（D：D），而是使用設置範圍或動態範圍。