Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Присвоение колонтитулам значений ячеек
 
#1
18.01.2011 11:24:01
День добрый, столкнулся с проблемой присвоения определенному колонтитулу определенного значения записанного в определенной ячейке непечатной области. Попробовал написать макрос, но знаний не хватило, приведенный ниже.  
 
 
Private Sub Worksheet_Kolontit()  
Dim A, B, C, D, E, F, G, H, I  
Application.EnableEvents = False  
With ActiveSheet.PageSetup  
A = Range("п.1.6").Value  
B = Range("п. 2.2").Value  
С = Range("Программа").Value  
D = Range("Программа_2").Value  
E = Range("перечень").Value  
F = Range("Акт").Value  
G = Range("Приказ").Value  
H = Range("Письмо").Value  
I = Range("Последний_лист").Value  
 
.RightFooter = "&P"  
 
If .RightFooter = 1 Then .RightFooter = ""  
 
If .RightFooter = 2 Then .RightFooter = A  
 
If .RightFooter = 3 Then .RightFooter = B  
 
If .RightFooter = 4 Then .RightFooter = C  
 
If .RightFooter = 5 Then .RightFooter = D  
 
If .RightFooter = 6 Then .RightFooter = E  
 
If .RightFooter = 7 Then .RightFooter = F  
 
If .RightFooter = 8 Then .RightFooter = G  
 
If .RightFooter = 9 Then .RightFooter = H  
 
If .RightFooter = 10 Then .RightFooter = I  
End With  
Application.EnableEvents = True  
End Sub  
 
Помогите разобраться.
 
 
 
#2
18.01.2011 11:44:26
У Вас  
.RightFooter = "&P"  
а потом Вы проверяете  
If .RightFooter = 1 ',2,3 и т.д. Конечно, ни одно условие не выполняется.  
 
Лучше словами опишите, что хотите сделать.
 
 
 
#3
18.01.2011 11:52:19
.RightFooter = "&P" как я понимаю данная функция прописывает номера страниц по порядку, мне же нужно что бы у первой страницы номер не проставлялся, у 2-ой страницы менялся на значение ячейки A, у 3-той на значение B и так далее пока не заменятся все проставленные колонтитулы. Если есть способ без замены буду при много благодарен.
 
 
 
#4
18.01.2011 11:58:52
{quote}{login=Казанский}{date=18.01.2011 11:44}{thema=}{post}У Вас  
.RightFooter = "&P"  
а потом Вы проверяете  
If .RightFooter = 1 ',2,3 и т.д. Конечно, ни одно условие не выполняется.  
 
Лучше словами опишите, что хотите сделать.{/post}{/quote}  
 
.RightFooter = "&P" как я понимаю данная функция прописывает номера страниц по порядку, мне же нужно что бы у первой страницы номер не проставлялся, у 2-ой страницы менялся на значение ячейки A, у 3-той на значение B и так далее пока не заменятся все проставленные колонтитулы. Если есть способ без замены буду при много благодарен
 
 
 
#5
18.01.2011 12:06:10
Вы не можете назначить колонтитул индивидуально для каждой страницы. "&P" заменяется на номер уже в процессе печати.  
 
Лучше расставьте разрывы страниц вручную и заполните соотв. ячейку на каждой странице.
 
 
 
#6
18.01.2011 12:08:06
{quote}{login=Казанский}{date=18.01.2011 12:06}{thema=}{post}Вы не можете назначить колонтитул индивидуально для каждой страницы. "&P" заменяется на номер уже в процессе печати.  
 
Лучше расставьте разрывы страниц вручную и заполните соотв. ячейку на каждой странице.{/post}{/quote}  
А перед печатью можно вставить макрос замены?
 
 
 
#7
18.01.2011 12:22:20
Можно. Но печатать придется в цикле, по одной странице, каждый раз меняя колонтитул:  
 
Кстати, "п.1.6" и т.д. - это действительно имена диапазонов?  
В имени не может быть пробела: "п. 2.2"  
 
Private Sub Worksheet_Kolontit()  
Dim A, i As Long  
Application.EnableEvents = False  
A = Split("\п.1.6\п.2.2\Программа\Программа_2\перечень\Акт\Приказ\Письмо\Последний­_лист", "\")  
With ActiveSheet.PageSetup  
   For i = 1 To 9  
       .RightFooter = Range(A(i)).Value  
       ActiveSheet.PrintOut i, i  
   Next  
End With  
Application.EnableEvents = True  
End Sub
 
 
 
#8
18.01.2011 12:33:37
{quote}{login=Казанский}{date=18.01.2011 12:22}{thema=}{post}Можно. Но печатать придется в цикле, по одной странице, каждый раз меняя колонтитул:  
 
Кстати, "п.1.6" и т.д. - это действительно имена диапазонов?  
В имени не может быть пробела: "п. 2.2"  
 
Private Sub Worksheet_Kolontit()  
Dim A, i As Long  
Application.EnableEvents = False  
A = Split("\п.1.6\п.2.2\Программа\Программа_2\перечень\Акт\Приказ\Письмо\Последний­_лист", "\")  
With ActiveSheet.PageSetup  
   For i = 1 To 9  
       .RightFooter = Range(A(i)).Value  
       ActiveSheet.PrintOut i, i  
   Next  
End With  
Application.EnableEvents = True  
End Sub{/post}{/quote}  
 
 
Большое спасибо, если не трудно то подскажите как еще и форматирование текста сюда приписать (Шрифт,размер).
 
 
 
#9
18.01.2011 12:40:37
Запишите макрорекордером изменение формата так, как Вам нужно, и добавьте соотв. текст. Например:  
 
.RightFooter = "&""Arial,полужирный""&12" & Range(A(i)).Value
 
 
 
#10
18.01.2011 12:42:33
{quote}{login=Казанский}{date=18.01.2011 12:40}{thema=}{post}Запишите макрорекордером изменение формата так, как Вам нужно, и добавьте соотв. текст. Например:  
 
.RightFooter = "&""Arial,полужирный""&12" & Range(A(i)).Value{/post}{/quote}  
 
Спасибо работает как часы, Вы были правы проблема и именах была.
 
 
 
#11
18.01.2011 13:53:05
При вставке строчки вида  
.RightFooter = "&""Times New Roman,полужирный курсив""&12" & Range(A(i)).Value  
на печать не вывелся последний лист и колонтитулы перестали прописываться
 
 
 
#12
18.01.2011 14:02:25
{quote}{login=}{date=18.01.2011 01:53}{thema=}{post}При вставке строчки вида  
.RightFooter = "&""Times New Roman,полужирный курсив""&12" & Range(A(i)).Value  
на печать не вывелся последний лист и колонтитулы перестали прописываться{/post}{/quote}  
Извиняюсь за то что не дал полной информации, но листов 10 штук, колонтитулы проставляются с 2-го по счету. В приведенном выше коде, один из колонтитулов пропускается и идет смещение на один вверх из заданных в ячейках.
 
 
 
#13
18.01.2011 14:45:44
{quote}{login=Казанский}{date=18.01.2011 12:22}{thema=}{post}Можно. Но печатать придется в цикле, по одной странице, каждый раз меняя колонтитул:  
 
Кстати, "п.1.6" и т.д. - это действительно имена диапазонов?  
В имени не может быть пробела: "п. 2.2"  
 
Private Sub Worksheet_Kolontit()  
Dim A, i As Long  
Application.EnableEvents = False  
A = Split("\п.1.6\п.2.2\Программа\Программа_2\перечень\Акт\Приказ\Письмо\Последний­_лист", "\")  
With ActiveSheet.PageSetup  
   For i = 1 To 9  
       .RightFooter = Range(A(i)).Value  
       ActiveSheet.PrintOut i, i  
   Next  
End With  
Application.EnableEvents = True  
End Sub{/post}{/quote}  
 
Ввел пустую переменную для первого листа, но теперь печатает только первый лист, а на редактирование шрифта совсем не реагирует проблемам во вложении.
 
 
 
#14
18.01.2011 14:50:54
{quote}{login=demos_fobos}{date=18.01.2011 02:45}{thema=Re: }{post}{quote}{login=Казанский}{date=18.01.2011 12:22}{thema=}{post}Можно. Но печатать придется в цикле, по одной странице, каждый раз меняя колонтитул:  
 
Кстати, "п.1.6" и т.д. - это действительно имена диапазонов?  
В имени не может быть пробела: "п. 2.2"  
 
Private Sub Worksheet_Kolontit()  
Dim A, i As Long  
Application.EnableEvents = False  
A = Split("\п.1.6\п.2.2\Программа\Программа_2\перечень\Акт\Приказ\Письмо\Последний­_лист", "\")  
With ActiveSheet.PageSetup  
   For i = 1 To 9  
       .RightFooter = Range(A(i)).Value  
       ActiveSheet.PrintOut i, i  
   Next  
End With  
Application.EnableEvents = True  
End Sub{/post}{/quote}  
 
Ввел пустую переменную для первого листа, но теперь печатает только первый лист, а на редактирование шрифта совсем не реагирует проблемам во вложении.{/post}{/quote}  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
 
 
 
#15
18.01.2011 15:16:32
{quote}{login=demos_fobos}{date=18.01.2011 02:50}{thema=Re: Re: }{post}{quote}{login=demos_fobos}{date=18.01.2011 02:45}{thema=Re: }{post}{quote}{login=Казанский}{date=18.01.2011 12:22}{thema=}{post}Можно. Но печатать придется в цикле, по одной странице, каждый раз меняя колонтитул:  
 
Кстати, "п.1.6" и т.д. - это действительно имена диапазонов?  
В имени не может быть пробела: "п. 2.2"  
 
Private Sub Worksheet_Kolontit()  
Dim A, i As Long  
Application.EnableEvents = False  
A = Split("\п.1.6\п.2.2\Программа\Программа_2\перечень\Акт\Приказ\Письмо\Последний­_лист", "\")  
With ActiveSheet.PageSetup  
   For i = 1 To 9  
       .RightFooter = Range(A(i)).Value  
       ActiveSheet.PrintOut i, i  
   Next  
End With  
Application.EnableEvents = True  
End Sub{/post}{/quote}  
 
Ввел пустую переменную для первого листа, но теперь печатает только первый лист, а на редактирование шрифта совсем не реагирует проблемам во вложении.{/post}{/quote}{/post}{/quote}  
 
Тема закрыта все работает как нужно, просто проставил пустое значение для первого листа и проверил написание имен. Спасибо огромное Казанский.
 
 
 
Страницы: 1
Читают тему
Loading...