ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как в Екселе задать колонтитул формата "mmmm yyyy"?
25 сообщений из 30, страница 1 из 2
  1  все
Как в Екселе задать колонтитул формата "mmmm yyyy"?
    #33951938
Фотография Compositum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Compositum
Участник
Как в Екселе задать колонтитул формата "mmmm yyyy"?

Думаю, что запись должна быть какой-то такой: FORMAT(DATE, "mmmm yyyy"). Эту строку пытался засунуть в колонтитул, но... не срабатывает.
_______________________
Дорогу осилит идущий...
...
Рейтинг: 0 / 0
30.08.2006, 12:23:28
| Ответить | Цитировать | Написать  
Как в Екселе задать колонтитул формата "mmmm yyyy"?
    #33952160
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
можно формировать колонтитул при открытии файла через VBA
...
Рейтинг: 0 / 0
30.08.2006, 13:14:29
| Ответить | Цитировать | Написать  
Как в Екселе задать колонтитул формата "mmmm yyyy"?
    #33952227
Фотография Compositum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Compositum
Участник
vbaproможно формировать колонтитул при открытии файла через VBA
мне нужно динамическое значение (чтобы в зависимости от даты, месяц менялся сам)
...
Рейтинг: 0 / 0
30.08.2006, 13:28:21
| Ответить | Цитировать | Написать  
Как в Екселе задать колонтитул формата "mmmm yyyy"?
    #33952289
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
положи в модуль "ЭтаКнига"
Код: plaintext
1.
2.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
     ActiveSheet.PageSetup.RightHeader = Format(Date, "mmmm yyyy")
End Sub
...
Рейтинг: 0 / 0
30.08.2006, 13:38:48
| Ответить | Цитировать | Написать  
Как в Екселе задать колонтитул формата "mmmm yyyy"?
    #33952328
Фотография Compositum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Compositum
Участник
vkodorположи в модуль "ЭтаКнига"
Код: plaintext
1.
2.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
     ActiveSheet.PageSetup.RightHeader = Format(Date, "mmmm yyyy")
End Sub
все гениальное просто =))) Спасибо.
...
Рейтинг: 0 / 0
30.08.2006, 13:45:30
| Ответить | Цитировать | Написать  
Как в Екселе задать колонтитул формата "mmmm yyyy"?
    #33952365
Фотография Compositum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Compositum
Участник
vkodorположи в модуль "ЭтаКнига"
Код: plaintext
1.
2.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
     ActiveSheet.PageSetup.RightHeader = Format(Date, "mmmm yyyy")
End Sub
почему-то не работает...
...
Рейтинг: 0 / 0
30.08.2006, 13:54:02
| Ответить | Цитировать | Написать  
Как в Екселе задать колонтитул формата "mmmm yyyy"?
    #33952372
Фотография Compositum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Compositum
Участник
если ставить точку после ActiveSheet - никаких вариантов не выскакивает, т.е. выходит, что он не знает ничего об этой записи. так что ли?
_______________________
Дорогу осилит идущий...
...
Рейтинг: 0 / 0
30.08.2006, 13:55:37
| Ответить | Цитировать | Написать  
Как в Екселе задать колонтитул формата "mmmm yyyy"?
    #33952398
Фотография Compositum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Compositum
Участник
там две "эта книга" в оба тела засунул код, но тот же результат...
_______________________
Дорогу осилит идущий...
...
Рейтинг: 0 / 0
30.08.2006, 14:01:24
| Ответить | Цитировать | Написать  
Как в Екселе задать колонтитул формата "mmmm yyyy"?
    #33952698
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Compositumтам две "эта книга" в оба тела засунул код, но тот же результат...
_______________________
Дорогу осилит идущий...
Если хочешь чтоб работало из персональной книги макросов (Personal.xls) для всех открытых книг, то надо писать модуль класса.
если только в конкретной книге например в "Внеплощадочные сети.Сети связи", то сделай так
в модуле "ЭтаКнига" книги "Внеплощадочные сети.Сети связи"
выбери в левой части "Workbook"
в правой событие "BeforePrint" появится
Код: plaintext
1.
2.
Private Sub Workbook_BeforePrint(Cancel As Boolean)

End Sub
в середину напиши
Код: plaintext
ActiveSheet.PageSetup.RightHeader = Format(Date, "mmmm yyyy")
см скриншот
должно все сработать
...
Рейтинг: 0 / 0
30.08.2006, 15:09:27
| Ответить | Цитировать | Написать  
Как в Екселе задать колонтитул формата "mmmm yyyy"?
    #33952747
Фотография Compositum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Compositum
Участник
vkodor
должно все сработать
не работает. Вот скриншот:
...
Рейтинг: 0 / 0
30.08.2006, 15:19:46
| Ответить | Цитировать | Написать  
Как в Екселе задать колонтитул формата "mmmm yyyy"?
    #33952760
Фотография Compositum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Compositum
Участник
не дышит и, похоже, вообще не реагирует на " ActiveSheet " после точки никаких вариантов по-прежнему не выдает. библиотека офиса и библиотека екселя подключены...
_______________________
Дорогу осилит идущий...
...
Рейтинг: 0 / 0
30.08.2006, 15:21:34
| Ответить | Цитировать | Написать  
Как в Екселе задать колонтитул формата "mmmm yyyy"?
    #33952806
Фотография Compositum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Compositum
Участник
Тут загвоздка вот какая (видимо):
я код чутка переделал:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim cbook As Excel.Workbook, Sh As Sheets
Set cbook = ActiveWorkbook
Set Sh = cbook.ActiveSheet
'Решил через переменную попробовать... но свойство "PageSetup" не нашел... 
'см. картинку
'ActiveSheet.PageSetup.RightHeader = Format(Date, "mmmm yyyy")
End Sub

_______________________
Дорогу осилит идущий...
...
Рейтинг: 0 / 0
30.08.2006, 15:29:37
| Ответить | Цитировать | Написать  
Как в Екселе задать колонтитул формата "mmmm yyyy"?
    #33952844
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Compositumне дышит и, похоже, вообще не реагирует на " ActiveSheet " после точки никаких вариантов по-прежнему не выдает. библиотека офиса и библиотека екселя подключены...
_______________________
Дорогу осилит идущий...

VBA не всегда выдает варианты после точки
если напишишь Sheets. - то выдаст так что это нормально

но вот почему не работает? (мистика наверно)
а макросы включены?
поставь курсор в середину
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightHeader = Format(Date, "mmmm yyyy")
End Sub
и нажми F5
У меня все работает EXCEL2000SP3
...
Рейтинг: 0 / 0
30.08.2006, 15:37:22
| Ответить | Цитировать | Написать  
Как в Екселе задать колонтитул формата "mmmm yyyy"?
    #33952868
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Код: plaintext
1.
2.
3.
4.
5.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim cbook As Excel.Workbook, Sh As Worksheet
Set cbook = ThisWorkbook
Set Sh = cbook.ActiveSheet
    Sh.PageSetup.RightHeader = Format(Date, "mmmm yyyy")
End Sub
опять таки работает
...
Рейтинг: 0 / 0
30.08.2006, 15:42:31
| Ответить | Цитировать | Написать  
Как в Екселе задать колонтитул формата "mmmm yyyy"?
    #33952873
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
...
Рейтинг: 0 / 0
30.08.2006, 15:44:28
| Ответить | Цитировать | Написать  
Как в Екселе задать колонтитул формата "mmmm yyyy"?
    #33952876
Фотография Compositum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Compositum
Участник
vkodor
а макросы включены?
поставь курсор в середину
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightHeader = Format(Date, "mmmm yyyy")
End Sub
и нажми F5
У меня все работает EXCEL2000SP3
открывается окно выбора макроса млин... а у меня ведь не отдельным макросом записано, а завязано на процедуре события.... на кнопку что ли повесить операцию, чтобы проверить? у меня ексель 2003 сп2
...
Рейтинг: 0 / 0
30.08.2006, 15:44:43
| Ответить | Цитировать | Написать  
Как в Екселе задать колонтитул формата "mmmm yyyy"?
    #33952893
Фотография Compositum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Compositum
Участник
закинул в функцию:
Код: plaintext
1.
2.
Function ccc()
ActiveSheet.PageSetup.RightHeader = Format(Date, "mmmm yyyy")
End Function
Не работает по прежнему...
_______________________
Дорогу осилит идущий...
...
Рейтинг: 0 / 0
30.08.2006, 15:48:51
| Ответить | Цитировать | Написать  
Как в Екселе задать колонтитул формата "mmmm yyyy"?
    #33952894
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
а как ты проверял?
в предворительном просмотре печати видно
...
Рейтинг: 0 / 0
30.08.2006, 15:48:57
| Ответить | Цитировать | Написать  
Как в Екселе задать колонтитул формата "mmmm yyyy"?
    #33952897
Фотография Compositum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Compositum
Участник
vkodorа как ты проверял?
в предворительном просмотре печати видно
вот в нем родимом и проверял.
...
Рейтинг: 0 / 0
30.08.2006, 15:49:28
| Ответить | Цитировать | Написать  
Как в Екселе задать колонтитул формата "mmmm yyyy"?
    #33952924
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Compositumзакинул в функцию:
Код: plaintext
1.
2.
Function ccc()
ActiveSheet.PageSetup.RightHeader = Format(Date, "mmmm yyyy")
End Function
Не работает по прежнему...
_______________________
Дорогу осилит идущий...

и функция работает, только ес-но если в листе писать "=ссс()", то не отрабатывает.
...
Рейтинг: 0 / 0
30.08.2006, 15:55:55
| Ответить | Цитировать | Написать  
Как в Екселе задать колонтитул формата "mmmm yyyy"?
    #33952958
Фотография Compositum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Compositum
Участник
vkodor...только ес-но если в листе писать "=ссс()", то не отрабатывает. не понял... что за "=ссс()"???
...
Рейтинг: 0 / 0
30.08.2006, 16:01:40
| Ответить | Цитировать | Написать  
Как в Екселе задать колонтитул формата "mmmm yyyy"?
    #33952962
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Compositum vkodor
а макросы включены?
поставь курсор в середину
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightHeader = Format(Date, "mmmm yyyy")
End Sub
и нажми F5
У меня все работает EXCEL2000SP3
открывается окно выбора макроса млин...
значит курсор не в середине процедуры
...
Рейтинг: 0 / 0
30.08.2006, 16:02:20
| Ответить | Цитировать | Написать  
Как в Екселе задать колонтитул формата "mmmm yyyy"?
    #33952974
Фотография Compositum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Compositum
Участник
vkodor
значит курсор не в середине процедуры ну я же не слепой... машина начинает крехтеть, затем умолкает. значит что-то делает...
...
Рейтинг: 0 / 0
30.08.2006, 16:03:58
| Ответить | Цитировать | Написать  
Как в Екселе задать колонтитул формата "mmmm yyyy"?
    #33952992
Фотография Compositum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Compositum
Участник
блин стой... все пашет... я все на правый нижний колонтитул лезу, а он на верхнем правом... а как по английски остальные варианты размещения колонтитулов выглядят? середина, верха и нижние колонтитулы?
_______________________
Дорогу осилит идущий...
...
Рейтинг: 0 / 0
30.08.2006, 16:06:50
| Ответить | Цитировать | Написать  
Как в Екселе задать колонтитул формата "mmmm yyyy"?
    #33952998
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Compositum vkodor...только ес-но если в листе писать "=ссс()", то не отрабатывает. не понял... что за "=ссс()"???
пользовательскую функцию можно вызывать из листа
допустим в простом модуле (не в листе и не в "ЭтаКнига")
написано
Код: plaintext
1.
2.
Function ccc()
MsgBox "Привет"
End Function
в ячейке пишешь =ссс() и жмешь Enter и
...
Рейтинг: 0 / 0
30.08.2006, 16:07:58
| Ответить | Цитировать | Написать  
25 сообщений из 30, страница 1 из 2
  1  все
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как в Екселе задать колонтитул формата "mmmm yyyy"?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=33952897&tid=2184370]:
 0ms
get settings:
 8ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 43ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 382ms
total:  523ms
созд. / загр.: 523ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]