Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » gordeev-pro
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Колонтитул на заданной странице Excel VBA, Присвоение колонтитула к конкретной странице листа Excel средствами VBA
 
#
19.03.2024 16:19:53
DANIKOLA, В целом задача выполнена в документ из трех страниц (бухгалтерская форма) вставляется значение из ячейки в нижний колонтитул второй страницы, при условии, что первая ячейка для колонтитула первой страницы остается пустой.
Моей ошибкой было что пытался код распространить на всю книгу сразу, а не на конкретный лист, форма которого копируется листами с заданным кодом.
Код
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("DF28:DF29")) Is Nothing Then Exit Sub
    With ActiveSheet.PageSetup
        .OddAndEvenPagesHeaderFooter = True
        .DifferentFirstPageHeaderFooter = True
        .FirstPage.LeftFooter.Text = Range("DF28").Value
        .EvenPage.LeftFooter.Text = Range("DF29").Value
    End With
End Sub
Было бы здорово уточнить возможности MS Excel в части возможности присвоения значения в колонтитул на конкретную указанную в коде страницу например 39 страницу. Если кто сможет написать код будет интересно на него посмотреть и кому-то он наверное пригодится.
 
Перейти    
Колонтитул на заданной странице Excel VBA, Присвоение колонтитула к конкретной странице листа Excel средствами VBA
 
#
19.03.2024 09:06:36
DANIKOLA, спасибо попробую сегодня подправить код, отпишусь как получится, может кому тоже будет полезно .
 
Перейти    
Колонтитул на заданной странице Excel VBA, Присвоение колонтитула к конкретной странице листа Excel средствами VBA
 
#
18.03.2024 17:06:52
Доброго времени суток, уважаемые коллеги, перечитал форумы, почитал литературу, не нашел ответа возможно ли присвоить значение из ячейки конкретной странице на активном листе?
Этот код присваивает колонтитулу активного листа значение из ячейки А1:
Код
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftFooter = ActiveSheet.Range("A1").Text
End With
End Sub

Пытался по манипулировать стандартными средствами Excel в части исключения колонтитула с первой страницы и разными колонтитулами на четных и нечетных страницах.

Пытался вписать в код, найденное на сайте MS:

Код
Dim objPage As Page 
 
Set objPage = ActiveWorkbook.ActiveWindow _ 
 .Panes(1).Pages.Item(2)
Помогите, пожалуйста, на примере задать код таким образом, чтобы в колонтитул страницы №2 попадало значение из ячейки А1 при сохранении/печати или изменении значений на активном листе.
 
Перейти    
Страницы: 1
Наверх