[已解决]如何计算能得到数组的维数?

Dj_soo

我有一个数组arr,这个数组是动态的,我想动态的得到这个数组的维数,应该如何去做?

最佳答案

月排行榜 / 总排行榜

amulee

2010-3-30 10:16

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

[此贴子已经被作者于2010-3-30 10:21:28编辑过]

跳转到最佳答案楼层

Dj_soo

我自己只会用错误捕捉的方法来实现,不知道有什么函数没有?

dsmch

lbound(arr) ubound(arr)

lbound(arr,2) ubound(arr,2)

Dj_soo

3L的,可能我没说清楚.

我是这个意思.

比如一个数组是二维数组,我要得到2

如果是一维数组,我要得到1

我不是想要得到下标,而是维数..

上清宫主

坐等学习其它方法

amulee

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

[此贴子已经被作者于2010-3-30 10:21:28编辑过]

Dj_soo

除了错误判断没有其他方法了么?

爱疯

把这个未知数组作为参数，放到自定义函数中。

用其他办法，求出参数个数，从而知道数组维数，可以吗？

 

 

[em09]

爱疯

我这么猜的，我不会啊，我是来问的[em04]

兰色幻想

肯定的回答,没有这样的VBA函数