Excel VBA - 在一系列日期上使用查找方法

Question

我正在尝试查找某个日期是否在日期范围内。 这是日期范围:

01/01/2013
11/02/2013
29/03/2013
20/05/2013
01/07/2013
05/08/2013
02/09/2013
14/10/2013
11/11/2013
25/12/2013
26/12/2013

这是 VBA 代码:

  ' Format Holiday Rows '
        With ConfigData.Range("B8:B18")
            Set holidays = .Find(s1.Cells(row_count, 1))

            If Not holidays Is Nothing Then
                MsgBox s1.Cells(row_count, 1)
            End If
        End With

在上面的代码中，弹出的第一个MsgBox显示为“11/01/2013”​​。这绝对没有意义，因为该值不在范围内。

注意:ConfigData.Range("B8:B18") 指的是上面显示的日期范围。

另外:此代码位于 for 循环内，该循环会递增 s1.Cells(row_count, 1) 的值。开始于 01/01/2013 至 31/12/2013

Answer 1

如果您只是想确认系列中的某个日历日是否在假期列表中，那么您甚至可以使用 vlookup:

Dim strFound As String

On Error Resume Next
strFound = Application.Vlookup(s1.Cells(row_count, 1), .Range("B8:B18"), 1, 0)
If IsError(strFound) Then
   MsgBox "Not Found"
Else
'-- Found
End If
On Error GoTo 0