您的位置:首页 > 编程语言 > VB

如何获取数组的维数

2010-03-30 10:41 113 查看
在Excel VBA编程中,我们知道可以利用UBound函数来获取数组各纬度的上标。但是当超过该数组的上标时就会发生错误,所以可以利用Excel的出错来获取数组的维数。代码如下:

Function DofArray(arr) As Integer
On Error Resume Next
'判断是否数组
If Not IsArray(arr) Then
DofArray = -1
Exit Function
End If
'利用出错来判断
For i = 1 To 60
aa = UBound(arr, i)
If Err.Number <> 0 Then
DofArray = i - 1
Exit Function
End If
Next
End Function


用以下代码测试一下:

Sub Test()
Dim A(5, 5, 4, 3, 6)
MsgBox DofArray(A)
End Sub
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息