[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を返す。

■サンプルコード

view plainprint?

1. Option Explicit  
2.   
3. Sub SampleCode()  
4.     'IsArray  
5.     Dim aaa As Variant  
6.     Debug.Print IsArray(aaa) 'False  
7.     aaa = Split("Excel,VBA", ",")  
8.     Debug.Print IsArray(aaa) 'True  
9.     Debug.Print "---"  
10.          
11.       
12.     'IsDate  
13.     Debug.Print IsDate("2010年11月8日") 'True  
14.     Debug.Print IsDate("10時30分25秒")  'True  
15.     Debug.Print IsDate("2010.11.08")    'False  
16.     Debug.Print "---"  
17.       
18.       
19.     'IsEmpty  
20.     Dim bbb As Variant  
21.     Debug.Print IsEmpty(bbb) 'True  
22.     bbb = ""  
23.     Debug.Print IsEmpty(bbb) 'False 空文字でも何かセットするとFalseになる  
24.     Dim ccc As String  
25.     Debug.Print IsEmpty(ccc) 'False Variant型以外はFalse  
26.     Debug.Print "---"  
27.       
28.       
29.     'IsNumeric  
30.     Debug.Print IsNumeric("123456")  'True  
31.     Debug.Print IsNumeric("123,456") 'True  
32.     Debug.Print IsNumeric("\123456") 'True  
33.     Debug.Print "---"  
34.   
35. End Sub  

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] 関数一覧