трехмерный массив

[Bape}l{ka]

привет всем)

народ, помогите собрать трехмерный массив, а то я запуталась совсем
так будет правильно?

Dim Arr() 
Dim n As Integer, r As String, c As Integer    'номер, название, цвет 
'в итоге нужен массив Arr(n,r,c)
n = ActiveSheet.Range([L2], [L122])
r = ActiveSheet.Range([M2], [M122]).Value
c = ActiveSheet.Range([M2], [M122]).Interior.Color.Index
Redim Arr(n,r,c)

и потом, как мне обратиться, например, к элементу "r" и "с" при известном "n" ?

[nerv]

Зачем Вам три измерения? Работайте в двух.

[Казанский]

Как я понял, нужен двумерный массив из 121 строк и 3 столбцов.
Цвет или индекс цвета диапазона не образуют массив (в отличие от значений или формул), поэтому надо считывать цвет каждой ячейки:

Sub bb()
Dim Arr(), c(), i&
ReDim c(2 To 122)
For i = 2 To 122
    c(i) = Range("M" & i).Interior.Color 'или .ColorIndex
Next
Arr = Application.Transpose(Array(Application.Transpose([L2:L122]), Application.Transpose([M2:M122]), c))

End Sub

Для n-й строки: Arr(n,1) - номер, Arr(n,2) - название, Arr(n,3) - цвет.

[alex77755]

при известном "n"

Всё-таки достаточно двухмерного

[Hugo121]

Можно в словарь собирать номера (они ведь не повторяются), а в Item словаря название и цвет (в строку через разделитель, или в массив из двух элементов).
Всё равно диапазон циклом перебирать, чтоб цвет выбрать. Зато потом по номеру можно без перебора взять и название, и цвет.

[Bape}l{ka]

возможно достаточно и двух, тем не менее.. если можно три - почему нет?

Казанский, я несовсем поняла, что такое Application.Transpose ??

и я так поняла, что 3-хмерный / n-менрый массив, это просто масив, состоящий из массивов? и тогда можно просто собрать:

For i = 2 To 122
    c(i) = Range("M" & i).Interior.Color 'или .ColorIndex
    n(i) = Range("L" & i).Value
    r(i) = Range("M" & i).Value
Next
'тогда массив Arr(n,r,c)

и вот у меня есть известное "r", как мне в таком случае узнать "n" и "c"?? у меня только в голову идея через цикл приходит, но ведб наверняка можно как-то по-другому, или я ошибаюсь?

For Each r In Arr(n, r)
       If r = x Then MsgBox r & ", " & n
Next r

[doober]

Достаточно одного

Public Type m_3D_Nassiv
color_Index As Long
Value1 As Variant
Value2 As Variant
End Type


 Public Sub Go()
 Dim M(1 To 122) As m_3D_Nassiv
 For i = 2 To 122
    M(i).color_Index = Range("M" & i).Interior.Color 'или .ColorIndex
   M(i).Value1 = Range("L" & i).Value
    M(i).Value2 = Range("M" & i).Value
 Next
 End Sub

[Казанский]

> что такое Application.Transpose ??
Функция листа ТРАНСП: из массива NxM делает массив MxN

> и я так поняла, что 3-хмерный / n-менрый массив, это просто масив, состоящий из массивов?

Нет. Можно сделать массив, состоящий из массивов, но обращаться к нему надо по-другому. Например, к двумерному массиву: a(i,j), а к одномерному массиву одномерных массивов: a(i)(j).

[Hugo121]

"Известное r" - это что? Порядковый номер (т.е. известный индекс массива) или номер, который содержится где-то в массиве?
Если второе - то лучше словарь использовать.

[Bape}l{ka]

"r" - это значение, которое содержится в массиве, не порядковый номер

doober, я тоже подумала, что можно обойтись одним измерением, но тремя массивами поотдельности =ь тогда и все вопросы решаются легко..

Dim n(), r(), c()  'номер фигуры, название, цвет
Dim i As Integer        'где i - номер строки

ReDim r(2 To 122)
ReDim n(2 To 122)
ReDim c(2 To 122)
    For i = 2 To 122
        c(i) = Range("M" & i).Interior.Color 'или .ColorIndex
        n(i) = Range("L" & i).Value
        r(i) = Range("M" & i).Value
    Next

Application.Transpose - аа, транспортирование матрицы)) ясно

спасибо всем за отклики, и вообще, что всегда подсказываете))