Назначение варианта для combobox и наоборот

Question

Я пытаюсь присвоить вариант «значение» выпадающего списка в пользовательской форме, чтобы сохранить список, чтобы я мог повторно назначить «значение» варианта в поле со списком при инициализации пользовательской формы.

Вот код, я использую, чтобы присвоить мой вариант значения списка из выпадающего списка перед UserForm закрыт:

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() была объявлена ​​как глобальная переменная. Я получаю следующее сообщение об ошибке:

"Run-ошибка '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 

Я назвал первый sub после открытия пользовательской формы, а второй перед тем, как он закрылся. Работал!