查找單元格范圍（Excel VBA）中是否存在日期

Question

我有一個包含日期的單元格F2 ，其格式設置為“自定義日期”字段，僅顯示日期和月份。

然后我有一個單元格范圍C3;C60 ，它也包含日期，並被格式化為顯示日期dd/mm/yyyy歐洲日期字段

我正在編寫一個VBA，對這些字段進行檢查，但無法正常工作。 變量c下面的樣本中的可以是F5和F20之間的任何單元。

我收到RuntimeError 91.

If Worksheets(1).Range("C3", "C60").Find(Worksheets(1).Cells(2, c.Column).Value) = True Then
        c.Value = "Whatever"        
Else

Answer 1

替代：

Range("C3:C60")

對於

Range("C3", "C60")

可能還有其他問題。

Answer 2

.Find()返回一個范圍，您的if語句正在檢查是否為TRUE 。 那會失敗。

Dim rng as Range

Set rng = Worksheets(1).Range("C3:C60").Find(Worksheets(1).Cells(2, c.Column).Value)
if not rng is Nothing then
  c.Value = "Whatever"        
Else

注意加里的答案