Фиксировать информацию в конце документа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Фиксировать информацию в конце документа (Формулы/Formulas)

Granfury

Дата: Среда, 24.06.2015, 10:36 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Пользователь вводит информация на n количество строк (Сегодня 10 строк информации а завтра 110 строк).
Как в конце документа (после последней строки) фиксировать информацию "подпись".
Что бы на печати в конце документа автоматом была строка подпись
Шапка
строки
Подпись

Ответить

DJ_Marker_MC

Дата: Среда, 24.06.2015, 10:46 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 991

Репутация: 213 ±

Замечаний: 0% ±

Excel 2019

может колонтитул добавить в документ? "область печати" делать разметку вручную. Шапку сделать как "сквозные строки"
Пример приложил.

К сообщению приложен файл: marker.xlsx (10.1 Kb)

Ответить

Manyasha

Дата: Среда, 24.06.2015, 11:01 | Сообщение № 3

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 902 ±

Замечаний: 0% ±

Excel 2010, 2016

Еще вариант: если я правильно поняла, то можно сдвигать последнюю строку с подписью вниз, если пользователь вносит изменения в предпоследнюю строчку:
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
     lastRow = Cells(Rows.Count, 1).End(xlUp).Row
     If Target.Row = lastRow - 1 Then
         Application.EnableEvents = False
         Rows(lastRow).Insert Shift:=xlUp, CopyOrigin:=xlFormatFromLeftOrAbove
         Application.EnableEvents = True
     End If
End Sub

[/vba]