Область печати макросом
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 расположенных на листе?
Здравствуйте коллеги! Прошу помочь. Есть в макросе строка: [vba]Код
ActiveSheet.PageSetup.PrintArea = "$A$1:$B$10"
[/vba] Я хочу, чтобы макрос брал значение "$A$1" из ячейки С1, а значение $B$10 из ячейки D1. Это нужно для возможности тонкой настройки кнопки. Как изменить макрос, так чтобы он "$A$1:$B$10" собирал с ячеек C1 и D1 расположенных на листе? sekretland
Сообщение отредактировал 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
Группа: Друзья
Ранг: Экселист
Сообщений: 9010
Репутация:
2369
±
Замечаний:
0% ±
Excel 2010
[vba]Код
ActiveSheet.PageSetup.PrintArea = Range("c1").Value & ":" & Range("d1").Value
[/vba]
[vba]Код
ActiveSheet.PageSetup.PrintArea = Range("c1").Value & ":" & Range("d1").Value
[/vba] Nic70y
Ю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 для включения в печать двух страниц
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
Сообщение отредактировал 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
Группа: Друзья
Ранг: Экселист
Сообщений: 9010
Репутация:
2369
±
Замечаний:
0% ±
Excel 2010
sekretland , нужен текст, т.е запятая должна быть в кавычках[vba]Код
ActiveSheet.PageSetup.PrintArea = Range("C1").Value & ":" & Range("D1").Value & "," & Range("C2").Value & ":" & Range("D2").Value
[/vba]
sekretland , нужен текст, т.е запятая должна быть в кавычках[vba]Код
ActiveSheet.PageSetup.PrintArea = Range("C1").Value & ":" & Range("D1").Value & "," & Range("C2").Value & ":" & Range("D2").Value
[/vba]Nic70y
Ю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
Ответить
Сообщение Nic70y , Благодарю Вас! всё идеально! Дай бог Вам здоровья!Автор - sekretland Дата добавления - 07.10.2023 в 11:15