Excel中VB编程关于判断单元格数据类型的问题（高手进）..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case VarType(Target.Value) '返回字符串的类型
Case 8 '字符串的时候
For i = 1 To Len(Target.Value)
s = Mid(Target.Value, i, 1)
If AscW(s) > 255 Then '汉字的ASCW>255
MsgBox "汉字"
Exit For
ElseIf s < "a" Or s > "z" Then '当不是英文的时候
MsgBox "有符号的字符串"
Exit For
Else '余下的全是英文了
If i = Len(Target.Value) Then MsgBox "英文串"
End If
Next
Case 2, 3, 4, 5 '整形.长整形,单双精度的
MsgBox "数值"
Case Else
MsgBox "Empty"
End Select
End Sub