Excel VBA问题：Multipage切换时Static变量无法保留

问题根源分析 #

你当前的代码存在两个核心问题：

1. Static变量作用域错误：Static myArray()声明在UserForm_Initialize过程内部，这个变量的作用域仅局限于该过程，OtherSub根本无法访问到这个变量——你在OtherSub里调用的myArray其实是一个未显式声明的默认变体变量，自然是空值。
2. Public变量声明位置错误：你尝试声明Public变量时报错，是因为你把它写在了过程内部，而非模块的通用声明区域。

可行解决方案 #

方案1：在用户窗体模块的通用声明区声明Public数组

在用户窗体模块的最顶部（所有过程之外）声明数组，这样整个窗体的所有过程都能访问，且只要窗体实例处于打开状态，数组数据就会保留：

' 用户窗体模块的通用声明区
Public myArray() As Variant

Sub UserForm_Initialize ()
    Dim myRange As Range
    Set myRange = [namedrange]
    myArray = myRange.Value ' 建议加上.Value明确获取单元格值
    
    MsgBox myArray(1, 1) ' 注意：Excel单元格转的数组默认是1起始索引，不是0
    Call OtherSub
End Sub

Sub OtherSub ()
    MsgBox myArray(1, 1) ' 现在可以正常访问数组内容
End Sub

注意：Excel单元格区域转成的数组默认是1-based索引（即第一个元素是myArray(1,1)），你之前写的myArray(0,0)其实是越界的，之所以没报错是因为变体数组的特性，实际取到的是空值——这也是你可能混淆的点之一。

方案2：使用标准模块的Public变量

如果需要在多个窗体或模块间共享数据，建议新建一个标准模块（右键插入→模块），在其中声明Public数组：

' 标准模块（比如Module1）中的声明
Public myArray() As Variant

' 用户窗体模块中的代码
Sub UserForm_Initialize ()
    Dim myRange As Range
    Set myRange = [namedrange]
    myArray = myRange.Value
    
    MsgBox myArray(1, 1)
    Call OtherSub
End Sub

Sub OtherSub ()
    MsgBox myArray(1, 1)
End Sub

这种方式下，只要Excel进程未关闭，变量就会保留，不会因Multipage切换而丢失。

方案3：用用户窗体的自定义属性（进阶）

如果不想使用Public变量，可以给用户窗体添加自定义属性来存储数组：

' 用户窗体模块
Private pMyArray() As Variant

' 自定义属性获取方法
Property Get MyArray() As Variant
    MyArray = pMyArray
End Property

' 自定义属性设置方法
Property Let MyArray(arr() As Variant)
    pMyArray = arr
End Property

Sub UserForm_Initialize ()
    Dim myRange As Range
    Set myRange = [namedrange]
    Me.MyArray = myRange.Value
    
    MsgBox Me.MyArray(1, 1)
    Call OtherSub
End Sub

Sub OtherSub ()
    MsgBox Me.MyArray(1, 1)
End Sub

关于Multipage控件的补充说明 #

Multipage切换页面并不会清空用户窗体的变量，只要窗体实例处于活动状态，变量就会保留。你之前的问题本质是变量作用域错误，和Multipage无关。

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