Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.03.2010, 11:37   #1
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию Форма для выполнения кода

Здравствуйте.
У меня вопрос.
Например, есть некая универсальная (универсальная потому что будет вставляться в различные коды) форма UserForm1 с двумя кнопками CommandButton1 и CommandButton2.
Данную форму можно вставлять в начале любого кода, в виде кода открытия UserForm1.Show, дальнейший смысл в том, что коды кнопок дают выполнить последующий код, перед которым вставлен код формы UserForm1.Show, или нет. Но изначально, наверно после UserForm1.Show должна, быть какая та функция блокировки кода.

Примерно для одного кода, примерно будет выглядеть так:
Код:
Private Sub CommandButton_Click()  
	UserForm1.Show 'коды кнопок: CommandButton1 снять блокировку выполнить код , CommandButton2 закрыть форму без выполнения кода.
	a=1 'Функция блокировки кода
	b=1 'Код который необходимо выполнить
End Sub
segail вне форума Ответить с цитированием
Старый 16.03.2010, 11:46   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Код:
Sub test()
    If MsgBox("Выполнить код?", vbQuestion + vbYesNo + vbDefaultButton1, "Вопрос") = vbYes Then
        a = 1
    Else
        b = 1
    End If
End Sub
И не надо никаких форм...
EducatedFool вне форума Ответить с цитированием
Старый 16.03.2010, 11:56   #3
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию

Надо с формой…
segail вне форума Ответить с цитированием
Старый 16.03.2010, 13:28   #4
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию

Высылаю пример.
Необходимо окрасит 4 текста через форму4. Форма4 должна закрываться через Unload Me
Вложения
Тип файла: rar primer.rar (14.1 Кб, 11 просмотров)
segail вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ввод куска кода с клавиатуры в процессе выполнения программы (язык Си) Florent Помощь студентам 4 05.02.2010 22:34
При выполнении кода форма зависает. Как вывести прогрессбар? plato Общие вопросы Delphi 4 06.01.2010 15:37
Остановка выполнения кода и продолжение с того же места в VBA Access Landurik Microsoft Office Access 6 02.11.2009 14:20
Появляется окошко и тут же пропадает, как посмотреть результат выполнения си кода? Urukhay4 Общие вопросы C/C++ 11 18.04.2009 17:37
Проблемма: Программное отключение "защиты формы" влияет на скорость выполнения программного кода... StrikeR33 Microsoft Office Word 0 28.05.2008 20:11