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

使用例

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