Заполнение Combobox на второй пользовательской форме

Я создал Userform который требует, чтобы пользователь заполнил ряд текстовых полей и комбинированных полей. Часть формы имеет командную Userform которая открывает вторую Userform (Userform 1). Мне удалось настроить его, но комбинированные поля для второй пользовательской формы не будут заполняться. Я использую тот же самый код и LookupLists те же LookupLists ( LookupLists лист Excel). Я также попытался предоставить combo box определенное значение, которое я ввел вручную ( cboSENTPROJ1.Value = 9 ), но это тоже не работает.

Это код для инициализации UserForm1 :

 Private Sub UserForm1_Initialize() Dim cPROJ As Range Set ws = Worksheets("LookupLists") For Each cPROJ In ws.Range("Projects") With Me.cboSENTPROJ1 .AddItem cPROJ.Value .List(.ListCount - 1, 1) = cPROJ.Offset(0, 1).Value End With Next cPROJ End Sub 

Объявите переменные text.value как общедоступные переменные (вверху модуля), а затем вы можете вызывать значения в ваших назначениях combobox.

  • VBA - определение пользовательской формы для последующего вызова
  • Флажки пользовательской формы Excel: null
  • Двойной щелчок по ячейке в Excel, файл с открытым исходным кодом этой строки в пользовательской форме
  • Internet Explorer не будет закрыт после завершения моего модуля
  • Excel VBA - Как открыть Userform с использованием переменной в имени
  • Excel VBA Userform Listbox Динамическое контекстное меню с использованием метода .OnAction
  • Можете ли вы использовать оператор if, чтобы решить, в чем UserForm помещать информацию?
  • Импорт и экспорт пользовательских форм и модулей
  • Текстовое поле VBA, отображающее валюту
  • VBA - копировать текст из Combobox в User и вставлять в цикл на листе excel
  • Поднимите форму пользователя при нажатии на ячейку
  • Давайте будем гением компьютера.