Присвоить переменной значение из Combo box UserForm

Пользователь

Сообщений: 90 Регистрация: 24.10.2013

28.10.2013 15:14:30

В "Эта книга" объявляю глобальную переменную и вызываю форму :

Код
Public form As String If ........ UserForm1.Show MsgBox "Значение переменной form: " & form, vbInformation ' Здесь нет значения переменной!

В UserForm есть список Combo box, значение которого хочу присвоить переменной form при нажатии кнопки:

Код

Private Sub CommandButton1_Click()

     form = ComboBox1.Value
         
   MsgBox "Значение переменной form: " & form, vbInformation ' Здесь выводится значение комбобокса!

  UserForm1.Hide

End Sub

MsgBox - поставил для контроля значения пременной.

Почему после закрытия UserForm обнуляется значение переменной?

alexnf Пользователь Сообщений: 90 Регистрация: 24.10.2013	#2 28.10.2013 15:19:08 Другими словами: надо выбрать в открывающейся форме значение ComboBox, и по нажатию кнопки в той же форме, присвоить это значение переменной и закрыть форму. Переменная будет использоваться дальше в макросе.

kalbasiatka Пользователь Сообщений: 685 Регистрация: 22.12.2012	#3 28.10.2013 15:35:25 Может её (глобальную переменную) объявить в обычном модуле? Да нет в "эта книга" тоже работает ) Просто надо присваивание значения повесить на комбобокс, а не на кнопку. Изменено: kalbasiatka - 28.10.2013 15:39:30

Sergei_A Пользователь Сообщений: 443 Регистрация: 05.01.2013	#4 28.10.2013 15:43:10 да и на кнопку всё работает, похоже нас дурят

alexnf Пользователь Сообщений: 90 Регистрация: 24.10.2013	#5 28.10.2013 15:46:03 вот на примере. После закрытия формы переменная обнуляется Прикрепленные файлы 52197.xls (23 КБ)

Sergei_A Пользователь Сообщений: 443 Регистрация: 05.01.2013	#6 28.10.2013 15:52:35 Другое дело! Воспользуйтесь первым советом от kalbasiatka, создайте модуль и объявите там переменную.

alexnf Пользователь Сообщений: 90 Регистрация: 24.10.2013	#7 28.10.2013 15:56:03 Работает.

Читают тему