「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
Coding Changes the World
使用例
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