MyTetra Share
Делитесь знаниями!
размерность массива
17.02.2018
22:46
Текстовые метки: размерность массива, array,RazmerArray
Раздел: VBA - Array

'==============================================================================================

' ##### размерность массива

'

'----------------------------------------------------------------------------------------------

Function RazmerArray(A) As Long

Dim k As Long

On Error GoTo KOH

j = LBound(A)

k = j '1

While UBound(A, k) >= LBound(A, k)

k = k + 1

Wend

KOH:

If k = 0 Then

RazmerArray = 0

Else

RazmerArray = k - 1

End If

End Function


Private Function nDx%(Arr) 'возвращает количество измерений массива Arr

Dim i%, X

On Error GoTo eXX ' увеличиваем i пока не получим ошибку попытки получить UBound по данному измерению

Do: i = i + 1: X = UBound(Arr, i): Loop

eXX: nDx = i - 1

End Function

'==============================================================================================

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования