Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
MsgBox. Активировать кнопку "Отмена"
 
#1
19.03.2013 19:37:12
Добрый вечер Всем. Ув. знатоки помогите пжл решить 3 задачки. На форме есть несколько CheckBox-ов при выборе нужного и вставке галочки мы переходим на нужный нам лист. Так вот: прежде чем перейти я вставил MsgBox для подтверждения выбора.
Вопросы:
1) Как активировать кнопку "Отмена", если отпала надобность в переходе на др. лист
2) На MsgBox чтоб показывал выбранный лист "я там указал"
3) Если по ошибке было вставлено больше одной галки то новый MsgBox "Пожалуйста выберите один лист"
С уважением Тиго.
 
 
 
#2
19.03.2013 20:02:51
Так?
 
 
 
#3
19.03.2013 20:46:25
marker_mc Да, по первому вопросу, но по тексту в MsgBox хотелось бы чтоб прописывалось выбранный лист, в предыдущем моем посте я указывал на   "CheckBox?" в MsgBox (это вопрос №2).  Ну и про третий пжл. не забудьте.
С уважением Тиго.
 
 
 
#4
19.03.2013 20:58:51
По третьему вопросу: вместо ЧекБоксов использовать Радиокнопки (OptionButton) в одной группе - тогда выбор более чем одной позиции невозможен. Или, если уж так хочется ЧекБоксы, то при выборе одного - сбрасывать все остальные. Тогда и MsgBox не нужен.
 
 
 
#5
19.03.2013 21:29:14
Юрий М Таблица большая переделывать долга от этих чекбоксов еще и другое зависит, подскажите тогда пжл как сделать сбросы всех других при выборе одного
С уважением Тиго.
 
 
 
#6
19.03.2013 21:40:30
Какая связь между размером таблицы и типом элемента управления?
 
 
 
#7
19.03.2013 22:01:18
Юрий М От чекбоксов еще зависели кнопки которые по выбору превращались в TRUE или FALSE, а также связь с листбоксом ну и прочее, ну да ладно я, уже стал переделывать на OptionButton реально удобно выбор только по одному. и последняя просьба все таки осталась я имею ввиду второй вопрос
С уважением Тиго.
 
 
 
#8
19.03.2013 22:09:17
Второй вопрос я не понял совсем. Как переделаете на радиокнопки - покажите файл и напишите, что нужно.
 
 
 
#9
19.03.2013 22:09:57
Цитата
Tigo пишет:
От чекбоксов еще зависели кнопки которые по выбору превращались в TRUE или FALSE, а также связь с листбоксом ну и прочее
Так пусть зависят теперь от радиокнопок ))
 
 
 
#10
19.03.2013 22:23:59
Юрий М Нужно чтоб при выборе на форме скажем Лист2, в MsgBox помимо текста "Вы действительно хотите перейти" чтоб дописывалось и то что выбрано тобиш еще слово "Лист2". А по поводу моей таблицы я имел ввиду что переделывать много я же на форум выложил всего один макрос.
С уважением Тиго.
 
 
 
#11
19.03.2013 22:28:07
По второму вопросу для CheckBox1:
Код
MsgBox("Вы действительно хотите перейти" & vbCrLf & "на лист " & vbCrLf & CheckBox1.Caption, _ vbOKCancel + vbExclamation, "Внимание  Tigo") = vbOK

По второму вопросу для OptionButton1:
Код
MsgBox("Вы действительно хотите перейти" & vbCrLf & "на лист " & vbCrLf & OptionButton1.Caption, _ vbOKCancel + vbExclamation, "Внимание  Tigo") = vbOK
Изменено: k61 - 19.03.2013 22:29:13
 
 
 
#12
19.03.2013 22:34:02
Вариант. Но только ещё нужно предусмотреть проверку, что не выбран ни один из листов. Или же при активации/инициализации формы одну из кнопок сразу активировать.
 
 
 
#13
19.03.2013 22:44:11
Юрий М Спасибо огромное. k61 а Ваш вариант у меня почемуто дает ошибку на весь МСБОКС красным сперва подумал может какая то помарка в печате, так не  во всем предложение выделялся "OptionButton1"
С уважением Тиго.
 
 
 
#14
19.03.2013 23:07:36
В примере от Юрия можно упростить код на кнопке.
После Msgbox уже ничего перебирать не надо, просто

Sheets(iName).Select
 
 
 
#15
19.03.2013 23:11:30
Согласен. Но после MsgBox  я ничего не писал - так было))
 
 
 
#16
19.03.2013 23:30:04
Я бы вообще делал без Радиокнопок и ЧекБоксов: выводил бы список всех листов в КомбоБокс и из него уже выбирал бы нужный.
 
 
 
Страницы: 1
Читают тему
Наверх