Number of dimensions of an array

[mahindajayadev]

How can I check number of dimesions of an array? Thanks.

[Derk]

Welcome to the OzGrid Forum!

Can you elaborate on your question. Do you mean a worksheet array passed to a VBA routine and you want to know the number of rows and columns in the array? Or you have a variant variable in VBA and you want to know how many entries it contains? Or a dimensioned variable is being passed to another routine and you want to determine how many dimensions it was given? Or ...?

[mahindajayadev]

Welcome to the OzGrid Forum!

Can you elaborate on your question. Do you mean a worksheet array passed to a VBA routine and you want to know the number of rows and columns in the array? Or you have a variant variable in VBA and you want to know how many entries it contains? Or a dimensioned variable is being passed to another routine and you want to determine how many dimensions it was given? Or ...?

What I meant is suppose I write a UDF
Function MultiNomial(Probs as variannt) as variant

'Here I check the vaue of probs that user entered. he may enter either
'a "Range" or a "String" or a "Double" or an "Array()". If he enters an
'array it could be either One dimensional or two dimensional.
'How can I check Whether it is one or two dimensional?

Multinomial=...
End function

Mahindajayadev

[Pesky Weasel]

M,

If your function comes from a worksheet range it will always be 2 dimensional range.

The followuing code will return 1 for a single dimension array and will return the number of columns in a 2D array.

Sub HowBig() 
    Dim myArray As Variant 
     'myArray = Array("1", "2", "3", "4")
    myArray = Selection.Value 
    On Error Goto sng 
    x = UBound(myArray, 2) 
    MsgBox (x) 
    Exit Sub 
sng: 
    MsgBox ("1") 
End Sub 

Regards
Weasel

[kundepuu]

Read this article
http://support.microsoft.com/?kbid=213273