[ExcelVBA] IsArray関数,IsDate関数,IsEmpty関数,IsNumeric関数

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧

■構文
IsArray(varname)
IsDate(expression)
IsEmpty(expression)
IsNumeric(expression)

■説明
IsArray…配列かどうか判定する。配列の時True。それ以外はFalseを返す。
IsDate…日付かどうか判定する。日付の時True。それ以外はFalseを返す。
IsEmpty…Empty値かどうか判定する。Empty値の時True。それ以外はFalseを返す。
IsNumeric…数値かどうか判定する。数値の時True。それ以外はFalseを返す。

■サンプルコード

Option Explicit

Sub SampleCode()
    'IsArray
    Dim aaa As Variant
    Debug.Print IsArray(aaa) 'False
    aaa = Split("Excel,VBA", ",")
    Debug.Print IsArray(aaa) 'True
    Debug.Print "---"
       
    
    'IsDate
    Debug.Print IsDate("2010年11月8日") 'True
    Debug.Print IsDate("10時30分25秒")  'True
    Debug.Print IsDate("2010.11.08")    'False
    Debug.Print "---"
    
    
    'IsEmpty
    Dim bbb As Variant
    Debug.Print IsEmpty(bbb) 'True
    bbb = ""
    Debug.Print IsEmpty(bbb) 'False 空文字でも何かセットするとFalseになる
    Dim ccc As String
    Debug.Print IsEmpty(ccc) 'False Variant型以外はFalse
    Debug.Print "---"
    
    
    'IsNumeric
    Debug.Print IsNumeric("123456")  'True
    Debug.Print IsNumeric("123,456") 'True
    Debug.Print IsNumeric("\123456") 'True
    Debug.Print "---"

End Sub

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧