将变体分配给组合框，反之亦然

Question

我正试图将一个变量分配给；值"；以便存储该列表，以便我可以重新分配"；值"；在初始化userform时，将变量的。

以下是我用来在关闭用户表单之前为我的变体分配组合框的List值的代码：

Dim S()
Private Sub ExitButton_Click()
ReDim S(1 To NewRecordUserForm.RepCombo.ListCount)
S = NewRecordUserForm.RepCombo.List
Unload Me
End Sub

然后，我在一个单独的子中使用这组代码，在打开用户表单时初始化组合框：

Private Sub UserForm_Initialize()
NewRecordUserForm.RepCombo.List = S
End Sub

请注意，Dim S()已被声明为全局变量。我收到以下错误消息：

"运行错误"380"：

无法设置列表属性。无效的属性值"

Answer 1

Dim ArrRep() As Variant
Public Sub PopulateCombos()
NewRecordUserForm.RepCombo.List = ArrRep
End Sub
Public Sub SaveCombos()
ReDim ArrRep(1 To NewRecordUserForm.RepCombo.ListCount)
ArrRep = NewRecordUserForm.RepCombo.List
End Sub

我在打开用户表单时调用了第一个子，在它关闭前调用了第二个子。成功了！