如题所述
å¨VBAéé¢ï¼å¯ä»¥ä½¿ç¨VarTypeè·å¾åé以ååå
æ ¼çæ°æ®ç±»åï¼æ°å¼ç±»åå¼ä¸º5ï¼vbDoubleï¼ã空类å为0ï¼vbEmptyï¼ãå符串类å为8ï¼vbString ï¼ã
ä¾å代ç 1ï¼æ¾ç¤ºA1åå æ ¼çæ°æ®ç±»å
1
2
3
Sub test()
MsgBox VarType([a1])
End Sub
ä¾å代ç 2ï¼å¤æA1åå æ ¼æ°æ®ç±»åæ¯å¦æ°å¼
1
2
3
4
5
6
7
Sub test()
If VarType([a1]) = vbDouble Then
MsgBox "A1æ¯æ°å¼ç±»å"
Else
MsgBox "A1ä¸æ¯æ°å¼ç±»å"
End If
End Sub
å®é ä¸VBè¿ævbLongãvbDecimalçç±»åï¼ä½åå æ ¼ä¸ºæ°å¼æ¶é»è®¤æ¯vbDoubleã
ä¾å代ç 1ï¼æ¾ç¤ºA1åå æ ¼çæ°æ®ç±»å
1
2
3
Sub test()
MsgBox VarType([a1])
End Sub
ä¾å代ç 2ï¼å¤æA1åå æ ¼æ°æ®ç±»åæ¯å¦æ°å¼
1
2
3
4
5
6
7
Sub test()
If VarType([a1]) = vbDouble Then
MsgBox "A1æ¯æ°å¼ç±»å"
Else
MsgBox "A1ä¸æ¯æ°å¼ç±»å"
End If
End Sub
å®é ä¸VBè¿ævbLongãvbDecimalçç±»åï¼ä½åå æ ¼ä¸ºæ°å¼æ¶é»è®¤æ¯vbDoubleã
温馨提示:答案为网友推荐,仅供参考