vba - 确定带有日期的单元格是否包含特定年份

Question

我正在尝试使用 VBA 遍历 excel 中的列，以确定是否有任何单元格包含特定年份。我想继续迭代，看看它是否是真的。我正在查看的列包含 dd/mm/yyyy 格式的日期。下面是我正在迭代的列的示例，后面是我想要更改的一些代码。

C1: (05/01/2013, 06/07/2015, 09/08/2019, ... )

yy = 2018
for i = 1 to 500
    if cells(i,1) contains "yy" then
        cells(i,2) = "yes"
    end if
next i

在此先感谢您的帮助。

Answer 1

尝试使用 Excel =YEAR()功能。像这样:

C1: (05/01/2013, 06/07/2015, 09/08/2019, ... )

yy = 2018
While i <= 500
    if Year(ActiveWorksheet.Cells(i,1)) = yy Then
        ActiveWorksheet.Cells(i,2).Value = "Yes"
    end If
    i = i + 1
Loop