如何判断单元格为字符串、数字、日期等类型？

Q:VBA中如何判断单元格为字符串、数字、日期等类型？
A: 请参见下例，运用了Typename、IsNumeric、IsDate等函数，其中判断字符串的函数比较特殊些。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If TypeName(Target.Value) = “String” Then
MsgBox “该单元格是字符串类型”
ElseIf IsNumeric(Target.Value) Then
MsgBox “该单元格为数字类型”
ElseIf IsDate(Target.Value) Then
MsgBox “该单元格为日期类型”
Else
MsgBox “该单元格为其它类型”
End If
End Sub