如何在Excel VBA UserForm中正确声明使用全局变量

你遇到编译错误是违反了VBA的变量作用域声明规则：

• Global关键字仅能在**标准模块（.bas文件）**的通用声明段（所有过程之外的区域）使用，既不能写在窗体模块、类模块中，也不能直接写在Sub/Function过程内部，你当前把声明语句写在UserForm_Activate过程内部，必然触发编译错误。
• 如果你的数组只需要在当前UserForm的多个事件过程中访问，不需要跨模块调用，完全不需要使用Global关键字，声明窗体级模块变量即可满足需求。

1. 打开UserForm对应的代码编辑窗口，滚动到所有过程的最上方（通用声明区域，也就是所有Sub/Function结构的外面）
2. 在该区域声明模块级字符串数组，作用域为整个窗体模块内的所有过程
3. 在窗体加载事件中初始化数组的初始大小，每次添加选中列时通过ReDim Preserve扩容数组，避免下标越界错误（你原有代码未初始化数组直接取UBound也会触发运行时错误）
   注意：不要用len作为变量名，Len是VBA内置函数名，重名会引发逻辑异常。

' ========== 以下代码写在所有过程之外的窗体通用声明段 ==========
Private colNames() As String ' 窗体级数组，当前窗体内所有过程均可直接访问

' ========== 以下为窗体事件过程 ==========
Private Sub UserForm_Initialize()
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("test_output")
    Dim i As Long
    
    ' 初始化数组，初始状态下无有效选中列
    ReDim colNames(0 To -1)
    
    Me.ComboBox1.Clear
    ' 填充下拉框列标题选项
    For i = 1 To Application.WorksheetFunction.CountA(sh.Range("1:1"))
        Me.ComboBox1.AddItem sh.Cells(1, i).Value
    Next i
End Sub

Private Sub CommandButton1_Click()
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("test_output")
    Dim index As Long
    Dim arrNewIndex As Long
    Dim colChar As String
    
    index = Me.ComboBox1.ListIndex + 1

    ' 校验是否选中有效列
    If index <> 0 Then
        ' 将选中序号转换为Excel列标字母
        colChar = Split(Cells(1, CInt(index)).Address, "$")(1)
        ' 数组扩容，保留已存储的历史选中值
        arrNewIndex = UBound(colNames) + 1
        ReDim Preserve colNames(0 To arrNewIndex)
        colNames(arrNewIndex) = colChar
        
        ' 可选：添加完成后清空下拉框选中状态，方便连续选择
        Me.ComboBox1.Value = ""
    End If
End Sub

如果你后续需要在窗体之外的普通模块、其他窗体中访问这个存储了选中列的数组，只需要做两处修改：

• 插入一个标准模块，把数组声明移到标准模块的通用声明段，将Private替换为Public（Public和Global在标准模块中功能完全一致，Global仅为兼容早期VBA版本保留的关键字，日常开发推荐用Public）
• 其他模块访问该数组时直接调用colNames即可。

内容的提问来源于stack exchange，提问作者jakewags01