[ExcelVBA] TypeName関数

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

■構文
TypeName(varname)

■説明
変数の型を返します。
第一引数：変数を指定します。

■サンプルコード

view plainprint?

1. Option Explicit  
2. Sub SampleCode()  
3.     Dim Str1 As String  
4.     Debug.Print TypeName(Str1) 'String  
5.   
6.     Dim Str2() As String  
7.     Debug.Print TypeName(Str2) 'String() 文字列の配列  
8.   
9.     Dim num1 As Integer  
10.     Debug.Print TypeName(num1) 'Integer  
11.       
12.     Dim num2 As Long  
13.     Debug.Print TypeName(num2) 'Long  
14.       
15.     Dim yymmdd As Date  
16.     Debug.Print TypeName(yymmdd) 'Date  
17.       
18.     Dim obj As Object  
19.     Debug.Print TypeName(obj) 'Nothin (Set前)  
20.       
21.     Set obj = CreateObject("Scripting.Dictionary")  
22.     Debug.Print TypeName(obj) 'Dictionary (Set後)  
23. End Sub  

Option Explicit
Sub SampleCode()
    Dim Str1 As String
    Debug.Print TypeName(Str1) 'String

    Dim Str2() As String
    Debug.Print TypeName(Str2) 'String() 文字列の配列

    Dim num1 As Integer
    Debug.Print TypeName(num1) 'Integer
    
    Dim num2 As Long
    Debug.Print TypeName(num2) 'Long
    
    Dim yymmdd As Date
    Debug.Print TypeName(yymmdd) 'Date
    
    Dim obj As Object
    Debug.Print TypeName(obj) 'Nothin (Set前)
    
    Set obj = CreateObject("Scripting.Dictionary")
    Debug.Print TypeName(obj) 'Dictionary (Set後)
End Sub

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