Доброго дня!
Почему не в тему? У меня похожая задача. Смотрите вложение
По вышеприведенному коду
Сделал через Worksheet_SelectionChange:
у меня работает, но только нужно реализовать выделение области БЕЗ учета форматов и формул - только по отображаемому значению в ячейке.
Да видел я этот пример - с реализацией туго
, помогите, пожалуйста, соединить этот код с кодом из способа 4
лист Главная - при выборе из выпадающего списка в колонке В динамически меняется информация (то 10 строк, то 40 строк и т.д.), которую и надо распечатать
Почему не в тему? У меня похожая задача. Смотрите вложение
По вышеприведенному коду
Сделал через Worksheet_SelectionChange:
| Код |
|---|
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim LastRow As Long LastRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1 ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(LastRow, 4)).Address End Sub |
у меня работает, но только нужно реализовать выделение области БЕЗ учета форматов и формул - только по отображаемому значению в ячейке.
Да видел я этот пример - с реализацией туго
лист Главная - при выборе из выпадающего списка в колонке В динамически меняется информация (то 10 строк, то 40 строк и т.д.), которую и надо распечатать
Изменено: - 18.01.2019 12:20:36