VBA：如何在私有子过程间共享数组数据？

核心问题分析 #

你之前的全局数组声明失败，是因为模块级变量只能在声明时指定类型，不能直接赋值，赋值操作必须放在过程（Sub/Function）里；另外固定长度数组无法直接用Array()函数赋值，改用Variant类型数组更灵活。

正确实现步骤 #

1. 声明模块级公共数组

在你放置按钮事件的工作表模块最顶部（所有Private Sub之前），添加数组声明：

Public example_array As Variant

注：如果是在标准模块（插入→模块）里声明，同样用Public，这样整个VBA项目都能访问。

2. 修改“添加更新”按钮代码（CommandButton1）

在点击事件里给数组赋值，并完成工作表数据替换：

Private Sub CommandButton1_Click()
    ' 将现有数据存入数组（这里示例用固定值，你可以替换为读取工作表数据的逻辑）
    example_array = Array("String1", "String2")
    
    ' 替换工作表对应位置数据（示例：写入A1:A2单元格）
    ' 转置是因为Array生成的是横向数组，工作表单元格是纵向区域
    Me.Range("A1:A2").Value = Application.Transpose(example_array)
    
    UserForm1.Show
End Sub

3. 修改“显示日志”按钮代码（CommandButton2）

在点击事件里读取数组并展示：

Private Sub CommandButton2_Click()
    ' 先判断数组是否已初始化
    If IsEmpty(example_array) Then
        MsgBox "暂无操作日志", vbExclamation
        Exit Sub
    End If
    
    ' 拼接数组内容为日志文本
    Dim logContent As String
    Dim i As Integer
    For i = LBound(example_array) To UBound(example_array)
        logContent = logContent & "[" & i + 1 & "] " & example_array(i) & vbCrLf
    Next i
    
    ' 弹窗展示日志
    MsgBox logContent, vbInformation, "操作日志"
End Sub

关于ActiveX按钮的Private Sub #

通过【插入-ActiveX-按钮】生成的事件过程默认是Private，这是正常的——因为这些事件过程属于当前工作表模块，只需要响应自身控件的点击，不影响模块内部公共变量的访问，不用改成Public。

内容的提问来源于stack exchange，提问作者Nuri Efe Tatlı