如何訪問從單元格中寫入的日期年份，vba excel

Question

我嘗試此代碼，但顯示「類型不匹配」錯誤消息。

If year(Sheets("Master-Deal").Cells(i, 9).Value) = 2012 Then 

    result''''''' 

End If 

Answer 1

從Excel返回的值是object類型。如果Excel單元格是日期，你可以試試這個：

If Year(CType(Sheets("Master-Deal").Cells(i, 9).Value, Date)) = 2012 Then ... 

Answer 2

確保在目標單元格的值不是無效的日期，你可以檢查它是否使用功能IsDate()日期。

If IsDate(Sheets("Master-Deal").Cells(i, 9).Value) Then 
    If Year(Sheets("Master-Deal").Cells(i, 9).Value) = 2012 Then 
     ' do stuff 
    End If 
Else 
    ' Complain about invalid date? 
End If