Макрос для checkbox

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для checkbox (Макросы Sub)

Макрос для checkbox

bagdad1984

Дата: Понедельник, 09.12.2013, 12:03 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

Уважаемые!

Нужна помощь!

При нажатии кнопкии:
1. если не заполнены определенные поля выходит надпись (есть)
2. если не выбран вид документа через chеckbox выходит уведомление "выберите необходимый документ для распечатки" (надо сделать)
3. распечатка неоходимого документа на который стоит галочка (надо связать чекбоксы с соответствующими листами и вывести отмеченный лист на ечать)
4. ввод данных в ЖУРНАЛ2 (есть, переделаю)

Заранее благодарю!

К сообщению приложен файл: _new_version_1.xlsm (94.0 Kb)

Ответить

Wasilich

Дата: Понедельник, 09.12.2013, 14:56 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

2.
[vba]

Код

If Range("C34") = False And Range("D34") = False And Range("E34") = False Then
         MsgBox " Укажите документ для печати "
         Exit Sub
  End If

[/vba]3.
[vba]

Код

If Range("C34") = True Sheets("Имя листа").Range("координаты").PrintOut Copies:=1
If Range("D34") = True Sheets("Имя листа").Range("координаты").PrintOut Copies:=1
If Range("E34") = True Sheets("Имя листа").Range("координаты").PrintOut Copies:=1

[/vba]

Ответить

bagdad1984

Дата: Понедельник, 09.12.2013, 15:56 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

Wasilic, спасибо Вам большое. щас попробую.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для checkbox (Макросы Sub)

Страница 1 из 1
1