[VBA函数]：如何获取一variant 形数组的元素个数

wwwdong

请教一个简单的问题：
如何获取一variant 形数组的元素个数

四季豆

试用ubound函数

2. 
   
3. [FONT=courier new]
   
4. 'UBound Function Example
   
5. 'This example uses the UBound function to determine the largest
   
6. 'available subscript for the indicated dimension of an array.
   
7. 
   
8. Dim Upper
   
9. Dim MyArray(1 To 10, 5 To 15, 10 To 20)    ' Declare array variables.
   
10. Dim AnyArray(10)
    
11. Upper = UBound(MyArray, 1)    ' Returns 10.
    
12. Upper = UBound(MyArray, 3)    ' Returns 20.
    
13. Upper = UBound(AnyArray)    ' Returns 10.
    
14. 
    
15. [/FONT]

<br /> [FONT=courier new]<br /> 'UBound Function Example<br /> 'This example uses the UBound function to determine the largest <br /> 'available subscript for the indicated dimension of an array.<br /> <br /> Dim Upper<br /> Dim MyArray(1 To 10, 5 To 15, 10 To 20)    ' Declare array variables.<br /> Dim AnyArray(10)<br /> Upper = UBound(MyArray, 1)    ' Returns 10.<br /> Upper = UBound(MyArray, 3)    ' Returns 20.<br /> Upper = UBound(AnyArray)    ' Returns 10.<br /> <br /> [/FONT]

灯火

由于 Option Base 设置习惯因人而异，计算数组元素个数使用如下方法比较保险：

UBound(VarArray) - LBound(VarArray) + 1

四季豆

有道理！

灯火

四季豆好像专职春风之事，莫非也对VBA感兴趣？

只吃过四角豆，没见四季豆，是否就是蚕豆？

四季豆

呵，四季豆不是蚕豆！

因为我是弹指春风的版主嘛！当然管春网比较多。

不过现在我想申请做“AutoCAD 软件使用技术”的版主了！：）
希望各位鼎力支持哦！
多谢多谢！：D