Добрый день.
Блин простейшая задача, но не могу найти ответ.
Случайно столкнулся с тем что:
Имеется визуальная форма с листбокс и одной кнопкой,
Блин простейшая задача, но не могу найти ответ.
Случайно столкнулся с тем что:
Имеется визуальная форма с листбокс и одной кнопкой,
Код |
---|
Option Explicit Public Mesec As Integer Public Ploho As Integer Private Sub CommandButton1_Click() Mesec = ListBox1.ListIndex Me.Hide End Sub Private Sub UserForm_initialize() 'Массив визуальной формы, окна выбора пользователем UserForm1.ListBox1.List = Array("Январь", "Февраль", "Март", "Апрель", "Май", "Июнь", "Июль", "Август", "Сентябрь", "Октябрь", "Ноябрь", "Декабрь") End Sub |
Вылезла форма при запуске, все хорошо, выбираешь работает, но если нажать на закрытие формы, по автомату выберется месяц январь listindex = 0 будет хотя я читал на excelworld что если не выбрано значение должна быть -1. Думал прописать условие если Listindex = -1 then exit sub но такое не получилось.
Необходимо чтобы если пользователь нажал на закрытие визуальной формы, работа макроса прекратилась полностью