如何从单元格中写入日期访问年份，vba excel

Question

我尝试使用此代码，但出现错误消息＆＃34; Type Mismatch＆＃34;显示。

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

    result'''''''

End If

Answer 1

确保目标单元格中​​的值不是无效日期，您可以使用函数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

Answer 2

Excel返回的值是object类型。如果excel单元格是日期，您可以尝试：

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