|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: descobrir o número de dimensões de um array
|
 |
|
|
|
Postada em 5/4/2006 por Geronimo
Tente a função abaixo:
Function Dimensions(ARR As Variant) As Integer
Dim I As Integer
Dim Dummy As Long
On Error Resume Next
Err.Clear
Do
I = I + 1
Dummy = UBound(ARR, I)
If Err.Number <> 0 Then Exit Do
Loop
Dimensions = I - 1
End Function
|
|
|
|
|
