Массив, заполненный массивами, содержащими структуру данных

Question

Хотите избежать создания класса.

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

Только решение Iсм .:

Создать массив, который должен быть заполнен массивами.Создайте массивы, которые должны заполнить первый массив.Заполнить первый массив указателем на второй массив (у меня есть функции для доступа к элементам массива, если указан указатель на структуру заголовка)

Private Type GameBoardCell
    Column       As Long
    Row          As Long
End Type

Sub testgameboard()
    Dim temparry() As GameBoardCell
    temparry = GameboardCellsInitalize
End Sub

Private Function GameboardCellsInitalize() As GameBoardCell()
Dim TempArrayRows()         As Variant
Dim TempArrayColumns()      As GameBoardCell
Dim GameBoardCell           As GameBoardCell
Dim Index                   As Long
Dim IndexTwo                As Long

    ReDim TempArrayRows(0 To 27)

    For Index = 0 To UBound(TempArrayRows)
        ReDim TempArrayColumns(0 To 51)
        For IndexTwo = 0 To UBound(TempArrayColumns)
            GameBoardCell.Column = IndexTwo + ColumnOffset
            GameBoardCell.Row = Index + RowOffset
            TempArrayRows(Index) = TempArrayColumns
        Next IndexTwo
    Next Index
    GameboardCellsInitalize = TempArrayRows
End Function