日付を含むセルに特定の年が含まれているかどうかを確認する

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 

Answer 2

これを試してみてください：

Sub FindYear() 

yy = 2018 
'itarating from first row to last row with value 
From i=1 To ActiveWorksheet.Range("A1048576").End(xlUp).Row 
If Year(ActiveWorksheet.Range("A" & i).Value = yy Then 
    ActiveWorksheet.Range("B" & i).Value = "yes" 
End If 

End Sub