Срочно - Sos-горю помогите!!!!
У меня возникла такая проблема: Приходится в Exsel заполнять документы и каждый раз в один и тотже шаблон встовляется разный объем данных и какждый рас сбивается разметка страници! Очень надо, пожалуйста подскажите как автоматически (макросом) выполнять корректную подгонку (разметку) страници по объему данных? SOS горю!
И можно ли выполнять выравнивание строки по высоте текста, например как для таблиц в Worde. Строка объединяет 2 ячейки.
Люди помогите кто может!
У меня возникла такая проблема: Приходится в Exsel заполнять документы и каждый раз в один и тотже шаблон встовляется разный объем данных и какждый рас сбивается разметка страници! Очень надо, пожалуйста подскажите как автоматически (макросом) выполнять корректную подгонку (разметку) страници по объему данных? SOS горю!
И можно ли выполнять выравнивание строки по высоте текста, например как для таблиц в Worde. Строка объединяет 2 ячейки.
Если подгонка разметки - это управление высотой строк и шириной столбцов, то вот несколько примеров:
'Фиксированная высота строк и ширина столбцов для всех ячеек текущей области
Range("a1").CurrentRegion.Rows.RowHeight = 15
Range("a1").CurrentRegion.Columns.ColumnWidth = 30
'Автоподгонка этих же параметров текущей области
Range("a1").CurrentRegion.Rows.AutoFit
Range("a1").CurrentRegion.Columns.AutoFit
'Автоподгонка этих же параметров для произвольного непрерывного диапазона строк и столбцов
Range(Rows(1), Rows(3)).AutoFit
Range(Columns(1), Columns(3)).AutoFit
Если подгонка разметки - это управление высотой строк и шириной столбцов, то вот несколько примеров:
'Фиксированная высота строк и ширина столбцов для всех ячеек текущей области
Range("a1").CurrentRegion.Rows.RowHeight = 15
Range("a1").CurrentRegion.Columns.ColumnWidth = 30
'Автоподгонка этих же параметров текущей области
Range("a1").CurrentRegion.Rows.AutoFit
Range("a1").CurrentRegion.Columns.AutoFit
'Автоподгонка этих же параметров для произвольного непрерывного диапазона строк и столбцов
Range(Rows(1), Rows(3)).AutoFit
Range(Columns(1), Columns(3)).AutoFit
Спосибо за подсказку, но однако жостко задать высоту сроки у меня нет возможности - неизвестен объем вводимых данных.
Второй способ тоже испытан - подгоняет стандартно на -15, а у меня опяттаки не конает из-за объема
Попробую третий вариант может получится.
Спосибо за подсказку, но однако жостко задать высоту сроки у меня нет возможности - неизвестен объем вводимых данных.
Второй способ тоже испытан - подгоняет стандартно на -15, а у меня опяттаки не конает из-за объема
Попробую третий вариант может получится.
Честно говоря, не пойму, что Вы вкладываете в понятие "объем вводимых данных": количество вставляемых в ячейку символов, количество используемых ячеек (строк, столбцов), что-то другое?
Может быть после уточнения и другие варианты появятся.