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

Вход

Регистрация

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

 

= Мир MS Excel/Определение диапазона печати - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Определение диапазона печати (VBA)
Определение диапазона печати
Serge_007 Дата: Среда, 16.11.2011, 23:24 | Сообщение № 1
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Во вложении файл, с которого надо распечатать бумажные копии.
Как макросом задать область печати, что бы печатались ячейки А4:Е7, если в фильтрах сводной ничего не выбрано, А4:D6, если выбран только один день, А4:С6, если выбрано только а?
Спасибо.
К сообщению приложен файл: VBA_PT.xls (8.0 Kb)

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеВо вложении файл, с которого надо распечатать бумажные копии.
Как макросом задать область печати, что бы печатались ячейки А4:Е7, если в фильтрах сводной ничего не выбрано, А4:D6, если выбран только один день, А4:С6, если выбрано только а?
Спасибо.
Автор - Serge_007
Дата добавления - 16.11.2011 в 23:24
RAN Дата: Четверг, 17.11.2011, 00:02 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
smile
К сообщению приложен файл: _VBA_PT.xls (34.5 Kb)

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщениеsmile
Автор - RAN
Дата добавления - 17.11.2011 в 00:02
Саня Дата: Четверг, 17.11.2011, 00:23 | Сообщение № 3
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
Code
    Dim rng As Range
     Set rng = Range("A4")

     Dim r As Integer, c As Integer
     r = rng.EntireColumn.Find("Общий итог").Row
     c = rng.EntireRow.Find("Общий итог").Column

     Range(rng, Cells(r, c)).Select  'PrintOut Copies:=1 'у меня нет принтера
 
Ответить
Сообщение
Code
    Dim rng As Range
     Set rng = Range("A4")

     Dim r As Integer, c As Integer
     r = rng.EntireColumn.Find("Общий итог").Row
     c = rng.EntireRow.Find("Общий итог").Column

     Range(rng, Cells(r, c)).Select  'PrintOut Copies:=1 'у меня нет принтера
Автор - Саня
Дата добавления - 17.11.2011 в 00:23
_Boroda_ Дата: Четверг, 17.11.2011, 00:49 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16714
Репутация: 6503 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
А вот посмотри вариант без макроса
К сообщению приложен файл: 8890158.xls (19.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА вот посмотри вариант без макроса
Автор - _Boroda_
Дата добавления - 17.11.2011 в 00:49
Serge_007 Дата: Четверг, 17.11.2011, 10:38 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Спасибо, но Общий итог может как присутствовать, так и нет. Андрей, свой способ потестирую.

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеСпасибо, но Общий итог может как присутствовать, так и нет. Андрей, свой способ потестирую.
Автор - Serge_007
Дата добавления - 17.11.2011 в 10:38
_Boroda_ Дата: Четверг, 17.11.2011, 11:08 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16714
Репутация: 6503 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Quote (Serge_007)
Спасибо, но Общий итог может как присутствовать, так и нет.

Да не вопрос! Тогда так:
К сообщению приложен файл: 8890158_1.xls (35.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Quote (Serge_007)
Спасибо, но Общий итог может как присутствовать, так и нет.

Да не вопрос! Тогда так:
Автор - _Boroda_
Дата добавления - 17.11.2011 в 11:08
Serge_007 Дата: Четверг, 17.11.2011, 11:26 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Quote (_Boroda_)
Тогда так:

Чего-то не работает sad

Но эту тему можно пока прикрыть, вроде получил готовое решение здесь:
http://www.planetaexcel.ru/forum.php?thread_id=34231

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (_Boroda_)
Тогда так:

Чего-то не работает sad

Но эту тему можно пока прикрыть, вроде получил готовое решение здесь:
http://www.planetaexcel.ru/forum.php?thread_id=34231
Автор - Serge_007
Дата добавления - 17.11.2011 в 11:26
_Boroda_ Дата: Четверг, 17.11.2011, 12:32 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 16714
Репутация: 6503 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Без макросов в 2010 почему-то не работает. В 2003 должен (предположительно) работать файл Sv_diap_bez_mac.xls

А с макросами - файл Sv_diap_s_mac.xls
Он вроде попроще, чем по твоей ссылке на Планете
Code
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
r_ = Target.RowRange.Rows.Count + 3
c_ = Target.ColumnRange.Columns.Count + 1
ActiveSheet.PageSetup.PrintArea = Range("A4:" & Cells(r_, c_).Address).Address
End Sub
К сообщению приложен файл: Sv_diap_s_mac.xls (48.0 Kb) · Sv_diap_bez_mac.xls (39.5 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеБез макросов в 2010 почему-то не работает. В 2003 должен (предположительно) работать файл Sv_diap_bez_mac.xls

А с макросами - файл Sv_diap_s_mac.xls
Он вроде попроще, чем по твоей ссылке на Планете
Code
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
r_ = Target.RowRange.Rows.Count + 3
c_ = Target.ColumnRange.Columns.Count + 1
ActiveSheet.PageSetup.PrintArea = Range("A4:" & Cells(r_, c_).Address).Address
End Sub
Автор - _Boroda_
Дата добавления - 17.11.2011 в 12:32
Serge_007 Дата: Четверг, 17.11.2011, 12:45 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Quote (_Boroda_)
Он вроде попроще, чем по твоей ссылке на Планете

Спасибо, попробую оба smile

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (_Boroda_)
Он вроде попроще, чем по твоей ссылке на Планете

Спасибо, попробую оба smile
Автор - Serge_007
Дата добавления - 17.11.2011 в 12:45
nerv Дата: Четверг, 17.11.2011, 17:23 | Сообщение № 10
Группа: Редакторы
Ранг: Обитатель
Сообщений: 431
Репутация: 193 ±
Замечаний: 0% ±

Serge_007, начинай изучать VBA. Пригодится : )

Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba
 
Ответить
СообщениеSerge_007, начинай изучать VBA. Пригодится : )
Автор - nerv
Дата добавления - 17.11.2011 в 17:23
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Определение диапазона печати (VBA)
  • Страница 1 из 1
  • 1
Поиск:

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