「Excel VBA」UBoundでVBA要素数を取得するサンプル

使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Sub testFunc()
Dim cftArr As Variant
cftArr = Array(11, 22, 33, 44)
Debug.Print UBound(cftArr) + 1
Debug.Print cftArr(0)
Debug.Print cftArr(1)
Debug.Print cftArr(2)
Debug.Print cftArr(3)
End Sub
Sub testFunc() Dim cftArr As Variant cftArr = Array(11, 22, 33, 44) Debug.Print UBound(cftArr) + 1 Debug.Print cftArr(0) Debug.Print cftArr(1) Debug.Print cftArr(2) Debug.Print cftArr(3) End Sub
Sub testFunc()

    Dim cftArr As Variant
    
    cftArr = Array(11, 22, 33, 44)
    
    Debug.Print UBound(cftArr) + 1 
    
    Debug.Print cftArr(0) 
    Debug.Print cftArr(1) 
    Debug.Print cftArr(2) 
   Debug.Print cftArr(3) 
    
End Sub

 

Excel VBA

Posted by arkgame