Excel 由包含数据结构的数组填充的数组

希望避免创建类

只有在公共对象模块中定义的用户定义类型才能强制到变量或从变量强制到变量，或传递到后期绑定函数

我看到的唯一解决方案是：

创建要用数组填充的数组。 创建要填充第一个数组的数组。 用指向第二个数组的指针填充第一个数组（在给定指向头结构的指针后，我有访问数组元素的函数）

---

为什么要跳过这么多的障碍来避免上课？如果您想要快速n’dirty，那么您不需要整个

属性

-与私有备份字段gig配对；将这些

类型

成员作为

公共

字段移动到类模块中，例如

公共列的长度

<代码>公用行，长度为。如果你给这个类命名为

GameBoardCell

，你现有的代码甚至不会闪烁。为什么要跳过这么多的障碍来避免使用类呢？如果您想要快速n’dirty，那么您不需要整个

属性

-与私有备份字段gig配对；将这些

类型

成员作为

公共

字段移动到类模块中，例如

公共列的长度

<代码>公用行，长度为。如果你给这个类命名为

GameBoardCell

，你现有的代码甚至不会闪烁。

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