我尝试此代码,但显示错误消息“类型不匹配”。
If year(Sheets("Master-Deal").Cells(i, 9).Value) = 2012 Then
result'''''''
End If
确保目标单元格中的值不是无效日期,您可以使用函数检查它是否为日期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
Excel 返回的值是对象类型。如果excel单元格是一个日期,你可以试试这个:
If Year(CType(Sheets("Master-Deal").Cells(i, 9).Value, Date)) = 2012 Then ...