Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Изменение области печати элементом CheckBox - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Изменение области печати элементом CheckBox (Формулы/Formulas)
Изменение области печати элементом CheckBox
Chetvertkoff Дата: Понедельник, 10.08.2020, 13:33 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 97
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
День добрый. У меня есть Область печати "A1:D10", мне надо с помощью элемента Activex CheckBox сделать чтоб когда я ставлю галочку она увеличивалась к примеру "A1:D20" а когда убираю она возвращалась "A1:D10"
К сообщению приложен файл: 2249906.xlsm(19.6 Kb)
 
Ответить
СообщениеДень добрый. У меня есть Область печати "A1:D10", мне надо с помощью элемента Activex CheckBox сделать чтоб когда я ставлю галочку она увеличивалась к примеру "A1:D20" а когда убираю она возвращалась "A1:D10"

Автор - Chetvertkoff
Дата добавления - 10.08.2020 в 13:33
Nic70y Дата: Понедельник, 10.08.2020, 14:37 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 6526
Репутация: 1437 ±
Замечаний: 0% ±

ru13;10;03
[vba]
Код
Private Sub CheckBox1_Click()
    If CheckBox1 Then
        ActiveSheet.PageSetup.PrintArea = "$A$1:$D$20"
    Else
        ActiveSheet.PageSetup.PrintArea = "$A$1:$D$10"
    End If
End Sub
[/vba]


Яндекс Деньги 41001841029809
 
Ответить
Сообщение[vba]
Код
Private Sub CheckBox1_Click()
    If CheckBox1 Then
        ActiveSheet.PageSetup.PrintArea = "$A$1:$D$20"
    Else
        ActiveSheet.PageSetup.PrintArea = "$A$1:$D$10"
    End If
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 10.08.2020 в 14:37
Chetvertkoff Дата: Понедельник, 10.08.2020, 16:50 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 97
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо огромное, как все просто) буду учитсья)
 
Ответить
СообщениеСпасибо огромное, как все просто) буду учитсья)

Автор - Chetvertkoff
Дата добавления - 10.08.2020 в 16:50
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Изменение области печати элементом CheckBox (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!