Excel中VB編程如何獲取數組的維數

下面的代碼是含有錯誤跳轉的，但是如果放在這壹個函數裏面不會影響妳其他的代碼。

感覺完全不用錯誤處理做不出來。雖然有個IsError，但是無法像 IsError(UBound(mArray, i))這樣使用它，不然我們就可以不用跳轉了。

Excel中的VBA與VB語法上沒有什麽差別

設計思想：

在VB中數姐最大維數是60，所以我們通過錯誤捕捉來處理這個問題，在這裏我們用到UBound函數

Public Function ArrayRange(mArray As Variant) As Integer

Dim i As Integer

Dim Ret As Integer

Dim ErrF As Boolean

ErrF = False

On Error GoTo ErrHandle

'判斷代入的參數是否為數組　

If Not IsArray(mArray) Then

ArrayRange = -1

Exit Function

End If

'VB中數組最大為60

For i = 1 To 60

'用UBound函數判斷某壹維的上界，如果大數組的實際維數時產生超出範圍錯誤，

' 此時我們通過Resume Next 來捕捉錯這個錯誤

Ret = UBound(mArray, i)

If ErrF Then Exit For

Next i

'最後返回

ArrayRange = Ret

Exit Function

ErrHandle:

Ret = i - 1

ErrF = True

Resume Next

End Function

上一篇:易語言編程小軟件

下一篇:曲靖java培訓學校告訴妳線上學習Java知識如何判斷視頻的好壞？