excel：vba型の不一致比較の日付

Question

私は2つの日付（異なる列）と現在の年の日付の間の比較を試みています。年が同じ場合は、列13の対応する行に「ATUAL」という単語を書き込む必要があります。年が異なる場合は、何も書き込む必要はありません。

これはこれまで私が試したことです。

Sub CopyColumn2() 

Dim i As Long 
Dim j As Long 
Dim lastrow As Long 
Dim ws1 As Worksheet 
Dim ws2 As Worksheet 
Dim wbk As Workbook 
Dim wb As Worksheet 

Set wbk = Workbooks.Open("I:\CGP\DEOPEX\01 - Supervisão\01 - Administrativo\06- ADM - Taís e Natalia\Férias - Aprovadas\FÉRIAS TÉCNICOS EXTERNAS.xlsx") 
Set ws1 = ThisWorkbook.Sheets("BASE_TOTAL") 
Set ws2 = wbk.Worksheets("FUNCIONÁRIOS") 

lastrow = ws2.Range("A" & Rows.Count).End(xlUp).Row 


For j = 2 To lastrow 
    If Year(ws1.Cells(j, 9)) = Year(Date) Or Year(ws1.Cells(j, 12)) = Year(Date) Then 
     ws1.Cells(j, 13) = "ATUAL" 
    Else 
     ws1.Cells(j, 13) = "" 
    End If 
Next j 

End Sub 

日付は、列IおよびLに配置され、すべての列は日付として設定されます。私のExcelはポルトガル語なので、私の日付形式はdd/mm/yyyyです。

私は私のコードを実行すると、私はこのメッセージが表示されます。

実行時エラー13：型が一致しません

そして、この部分が強調表示されています：

If Year(ws1.Cells(j, 9)) = Year(Date) Or Year(ws1.Cells(j, 12)) = Year(Date) Then 

は誰ですここで何が問題なのか知っていますか？私のすべての日付は同じ方法でフォーマットされているので、うまくいくはずです。

Answer 1

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

1. 宣言日付変数Dim date1 As Date, date2 As Date変数

   date1 = ws1.Cells(j, 9) date2 = ws1.Cells(j, 12)

2. 使用変数の

3. 設定値をごIf文で

   If Year(date1) = Year(Date) Or Year(date2) = Year(Date) Then