Как объявить и отредактировать многомерный массив? - PullRequest
Новая
       10

Как объявить и отредактировать многомерный массив?

0 голосов
/ 06 ноября 2018

Как мне объявить многомерный массив в Word VBA? И это должен быть фиксированный размер, или я могу добавить дополнительные значения позже?

Большинство источников, которые я нахожу для массивов, предназначены для VB.NET, а не для VBA, но я работаю над макросами Word.

1 Ответ

0 голосов
/ 06 ноября 2018

Dim [ yourVariable ] ([ массив ], [ массив ] ......) как [ DataType ]

Пример:

2D Array: 

Option Explicit

Dim SampleArray(0 To 10, 0 To 10) As String

Private Sub Sample()

    SampleArray(0, 0) = "0, 0"
    SampleArray(1, 0) = "1, 0"
    SampleArray(0, 2) = "0, 2"
    SampleArray(0, 3) = "0, 3"
    SampleArray(2, 4) = "2, 4"

    Debug.Print SampleArray(0, 0)
    Debug.Print SampleArray(1, 0)
    Debug.Print SampleArray(0, 2)
    Debug.Print SampleArray(0, 3)
    Debug.Print SampleArray(2, 4)

End Sub

Private Sub UserForm_Click()
    Sample
End Sub

3D массив: 

Option Explicit

Dim SampleArray(0 To 10, 0 To 10, 0 To 10) As String

Private Sub Sample()

    SampleArray(0, 0, 0) = "0, 0, 0"
    SampleArray(1, 0, 0) = "1, 0, 0"
    SampleArray(0, 2, 0) = "0, 2, 0"
    SampleArray(0, 3, 0) = "0, 3, 0"
    SampleArray(2, 4, 0) = "2, 4, 0"

    Debug.Print SampleArray(0, 0, 0)
    Debug.Print SampleArray(1, 0, 0)
    Debug.Print SampleArray(0, 2, 0)
    Debug.Print SampleArray(0, 3, 0)
    Debug.Print SampleArray(2, 4, 0)

End Sub

Private Sub UserForm_Click()
    Sample
End Sub
...