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

Вход

Регистрация

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

 

= Мир MS Excel/Область печати макросом - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Область печати макросом
sekretland Дата: Суббота, 07.10.2023, 00:06 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте коллеги! Прошу помочь.
Есть в макросе строка:
[vba]
Код
ActiveSheet.PageSetup.PrintArea = "$A$1:$B$10"
[/vba]
Я хочу, чтобы макрос брал значение "$A$1" из ячейки С1, а значение $B$10 из ячейки D1. Это нужно для возможности тонкой настройки кнопки. Как изменить макрос, так чтобы он "$A$1:$B$10" собирал с ячеек C1 и D1 расположенных на листе?


Сообщение отредактировал sekretland - Суббота, 07.10.2023, 00:15
 
Ответить
СообщениеЗдравствуйте коллеги! Прошу помочь.
Есть в макросе строка:
[vba]
Код
ActiveSheet.PageSetup.PrintArea = "$A$1:$B$10"
[/vba]
Я хочу, чтобы макрос брал значение "$A$1" из ячейки С1, а значение $B$10 из ячейки D1. Это нужно для возможности тонкой настройки кнопки. Как изменить макрос, так чтобы он "$A$1:$B$10" собирал с ячеек C1 и D1 расположенных на листе?

Автор - sekretland
Дата добавления - 07.10.2023 в 00:06
Nic70y Дата: Суббота, 07.10.2023, 07:25 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8984
Репутация: 2359 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
ActiveSheet.PageSetup.PrintArea = Range("c1").Value & ":" & Range("d1").Value
[/vba]


ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
ActiveSheet.PageSetup.PrintArea = Range("c1").Value & ":" & Range("d1").Value
[/vba]

Автор - Nic70y
Дата добавления - 07.10.2023 в 07:25
sekretland Дата: Суббота, 07.10.2023, 10:34 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Nic70y, огромное спасибо за помощь, все прекрасно работает!

Я извиняюсь, и вновь прошу Вашей помощи!

Если задавать две страницы для печати (указывается отдельно два диапазона), макрос выглядит так:

[vba]
Код
ActiveSheet.PageSetup.PrintArea = "$A$1:$B$10,$A$10:$B$20"
[/vba]
Я наивно полагал, что смогу вставить через запятую Ваше решение примерно так:

[vba]
Код
ActiveSheet.PageSetup.PrintArea = Range("C1").Value & ":" & Range("D1").Value, Range("C2").Value & ":" & Range("D2").Value
[/vba]
Итог - конечно же не завелось.

Задача - аналогична первой, но необходимо добавить второй диапазон из ячеек С2 и D2 для включения в печать двух страниц


Сообщение отредактировал sekretland - Суббота, 07.10.2023, 10:43
 
Ответить
СообщениеNic70y, огромное спасибо за помощь, все прекрасно работает!

Я извиняюсь, и вновь прошу Вашей помощи!

Если задавать две страницы для печати (указывается отдельно два диапазона), макрос выглядит так:

[vba]
Код
ActiveSheet.PageSetup.PrintArea = "$A$1:$B$10,$A$10:$B$20"
[/vba]
Я наивно полагал, что смогу вставить через запятую Ваше решение примерно так:

[vba]
Код
ActiveSheet.PageSetup.PrintArea = Range("C1").Value & ":" & Range("D1").Value, Range("C2").Value & ":" & Range("D2").Value
[/vba]
Итог - конечно же не завелось.

Задача - аналогична первой, но необходимо добавить второй диапазон из ячеек С2 и D2 для включения в печать двух страниц

Автор - sekretland
Дата добавления - 07.10.2023 в 10:34
Nic70y Дата: Суббота, 07.10.2023, 10:47 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 8984
Репутация: 2359 ±
Замечаний: 0% ±

Excel 2010
sekretland, нужен текст, т.е запятая должна быть в кавычках[vba]
Код
ActiveSheet.PageSetup.PrintArea = Range("C1").Value & ":" & Range("D1").Value & "," & Range("C2").Value & ":" & Range("D2").Value
[/vba]


ЮMoney 41001841029809
 
Ответить
Сообщениеsekretland, нужен текст, т.е запятая должна быть в кавычках[vba]
Код
ActiveSheet.PageSetup.PrintArea = Range("C1").Value & ":" & Range("D1").Value & "," & Range("C2").Value & ":" & Range("D2").Value
[/vba]

Автор - Nic70y
Дата добавления - 07.10.2023 в 10:47
sekretland Дата: Суббота, 07.10.2023, 11:15 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Nic70y, Благодарю Вас! всё идеально! Дай бог Вам здоровья!
 
Ответить
СообщениеNic70y, Благодарю Вас! всё идеально! Дай бог Вам здоровья!

Автор - sekretland
Дата добавления - 07.10.2023 в 11:15
  • Страница 1 из 1
  • 1
Поиск:

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