如果范围包括2016年的日期

Question

我正在编写一个宏，如果范围包含2016年的任何日期（例如），我想执行一些代码。我有一个开始（我想）。

Dim rptDateColumn As Range
Set rptDateColumn = Sheets("Data").Range("N:N")
For Each cell In rngRptgDate
    If ... (the date is during 2016)... Then
...This other stuff happens

有什么建议吗？

Answer 1

试试这个......

If Year(cell) = 2016 Then