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

Question

我正在尝试为＆＃34;值＆＃34;分配变量。用户表单中的组合框，以便存储列表，以便我可以重新分配＆＃34;值＆＃34;初始化用户窗体时组合框的变体。

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

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

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

Private Sub UserForm_Initialize()

NewRecordUserForm.RepCombo.List = S

End Sub

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

  

＆＃34;运行错误＆＃39; 380＆＃39;：

     

无法设置列表属性。无效的属性值。＆＃34;

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

我在打开userform时调用了第一个sub，而在它关闭之前调用了第二个sub。工作！