VBA coller 3 dimensions tableau dans la feuille

J'ai un 3 dimensions tableau (5 x 5 x 3) et j'ai besoin de la poste (5 x 5 x 1) de la feuille Sheet1, (5 x 5 x 2) à la Feuil2, (5 x 5 x 3) à Feuil3. Parce que je suis la construction de ce 3 dimensions tableau à l'intérieur de 3 boucles for imbriquées, je ne peux pas utiliser une boucle for pour accéder à l' (5 x 5) la partie de la boucle. Est-il un identificateur qui indique excel pour indexer tous les éléments d'un tableau, comme dans MatLab en utilisant (1:end, 1:fin, 1)? Base de code est ci-dessous:

Sub practice_2()

Dim arr(1 To 5, 1 To 5, 1 To 3)
Dim a As Integer
Dim x As Integer
Dim y As Integer

    For a = 1 To 3
        For x = 1 To 5
            For y = 1 To 5
                arr(x, y, a) = x * y
            Next
        Next

        Sheets(a).Select
        'Following line is where I want to access the (5 x 5 x 1) array
        Range(Cells(1, 1), Cells(5, 5)) = arr
    Next
End Sub

OriginalL'auteur Michael | 2010-06-18

  1. 6

    Il n'y a pas beaucoup que vous pouvez faire directement avec un 3-D tableau dans Excel. Cependant, VBA Variantes sont assez flexibles. Vous pourriez obtenir ce que vous voulez à l'aide d'un 1-D tableau qui contient des tableaux 2d au lieu d'un 3-D tableau:

    Dim arr(1 To 3)

Dim a As Integer
Dim x As Integer
Dim y As Integer

For a = 1 To 3
    ReDim inner(1 To 5, 1 To 5)

    'don't worry...makes a copy
    arr(a) = inner

    For x = 1 To 5
        For y = 1 To 5
            arr(a)(x, y) = a * x * y
        Next
    Next

    Sheets(a).Select

    Range(Cells(1, 1), Cells(5, 5)) = arr(a)
Next

    (En réponse à votre question spécifique à propos de la syntaxe de tableau, la réponse est "non".)

    +1 post-nice...

    OriginalL'auteur jtolle