Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как в Екселе задать колонтитул формата "mmmm yyyy"? / 25 сообщений из 30, страница 1 из 2
  1  все
30.08.2006, 12:23:28
    #33951938
Compositum
Compositum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Екселе задать колонтитул формата "mmmm yyyy"?
Как в Екселе задать колонтитул формата "mmmm yyyy"?

Думаю, что запись должна быть какой-то такой: FORMAT(DATE, "mmmm yyyy"). Эту строку пытался засунуть в колонтитул, но... не срабатывает.
_______________________
Дорогу осилит идущий...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2006, 13:14:29
    #33952160
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Екселе задать колонтитул формата "mmmm yyyy"?
можно формировать колонтитул при открытии файла через VBA
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2006, 13:28:21
    #33952227
Compositum
Compositum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Екселе задать колонтитул формата "mmmm yyyy"?
vbaproможно формировать колонтитул при открытии файла через VBA
мне нужно динамическое значение (чтобы в зависимости от даты, месяц менялся сам)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2006, 13:38:48
    #33952289
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Екселе задать колонтитул формата "mmmm yyyy"?
положи в модуль "ЭтаКнига"
Код: 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
    #33952328
Compositum
Compositum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Екселе задать колонтитул формата "mmmm yyyy"?
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
    #33952365
Compositum
Compositum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Екселе задать колонтитул формата "mmmm yyyy"?
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:55:37
    #33952372
Compositum
Compositum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Екселе задать колонтитул формата "mmmm yyyy"?
если ставить точку после ActiveSheet - никаких вариантов не выскакивает, т.е. выходит, что он не знает ничего об этой записи. так что ли?
_______________________
Дорогу осилит идущий...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2006, 14:01:24
    #33952398
Compositum
Compositum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Екселе задать колонтитул формата "mmmm yyyy"?
там две "эта книга" в оба тела засунул код, но тот же результат...
_______________________
Дорогу осилит идущий...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2006, 15:09:27
    #33952698
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Екселе задать колонтитул формата "mmmm yyyy"?
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:19:46
    #33952747
Compositum
Compositum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Екселе задать колонтитул формата "mmmm yyyy"?
vkodor
должно все сработать
не работает. Вот скриншот:
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2006, 15:21:34
    #33952760
Compositum
Compositum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Екселе задать колонтитул формата "mmmm yyyy"?
не дышит и, похоже, вообще не реагирует на " ActiveSheet " после точки никаких вариантов по-прежнему не выдает. библиотека офиса и библиотека екселя подключены...
_______________________
Дорогу осилит идущий...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2006, 15:29:37
    #33952806
Compositum
Compositum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Екселе задать колонтитул формата "mmmm yyyy"?
Тут загвоздка вот какая (видимо):
я код чутка переделал:
Код: 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:37:22
    #33952844
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Екселе задать колонтитул формата "mmmm yyyy"?
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:42:31
    #33952868
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Екселе задать колонтитул формата "mmmm yyyy"?
Код: 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:44:28
    #33952873
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Екселе задать колонтитул формата "mmmm yyyy"?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2006, 15:44:43
    #33952876
Compositum
Compositum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Екселе задать колонтитул формата "mmmm yyyy"?
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:48:51
    #33952893
Compositum
Compositum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Екселе задать колонтитул формата "mmmm yyyy"?
закинул в функцию:
Код: plaintext
1.
2.
Function ccc()
ActiveSheet.PageSetup.RightHeader = Format(Date, "mmmm yyyy")
End Function
Не работает по прежнему...
_______________________
Дорогу осилит идущий...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2006, 15:48:57
    #33952894
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Екселе задать колонтитул формата "mmmm yyyy"?
а как ты проверял?
в предворительном просмотре печати видно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2006, 15:49:28
    #33952897
Compositum
Compositum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Екселе задать колонтитул формата "mmmm yyyy"?
vkodorа как ты проверял?
в предворительном просмотре печати видно
вот в нем родимом и проверял.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2006, 15:55:55
    #33952924
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Екселе задать колонтитул формата "mmmm yyyy"?
Compositumзакинул в функцию:
Код: plaintext
1.
2.
Function ccc()
ActiveSheet.PageSetup.RightHeader = Format(Date, "mmmm yyyy")
End Function
Не работает по прежнему...
_______________________
Дорогу осилит идущий...

и функция работает, только ес-но если в листе писать "=ссс()", то не отрабатывает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2006, 16:01:40
    #33952958
Compositum
Compositum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Екселе задать колонтитул формата "mmmm yyyy"?
vkodor...только ес-но если в листе писать "=ссс()", то не отрабатывает. не понял... что за "=ссс()"???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2006, 16:02:20
    #33952962
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Екселе задать колонтитул формата "mmmm yyyy"?
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:03:58
    #33952974
Compositum
Compositum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Екселе задать колонтитул формата "mmmm yyyy"?
vkodor
значит курсор не в середине процедуры ну я же не слепой... машина начинает крехтеть, затем умолкает. значит что-то делает...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2006, 16:06:50
    #33952992
Compositum
Compositum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Екселе задать колонтитул формата "mmmm yyyy"?
блин стой... все пашет... я все на правый нижний колонтитул лезу, а он на верхнем правом... а как по английски остальные варианты размещения колонтитулов выглядят? середина, верха и нижние колонтитулы?
_______________________
Дорогу осилит идущий...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.08.2006, 16:07:58
    #33952998
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Екселе задать колонтитул формата "mmmm yyyy"?
Compositum vkodor...только ес-но если в листе писать "=ссс()", то не отрабатывает. не понял... что за "=ссс()"???
пользовательскую функцию можно вызывать из листа
допустим в простом модуле (не в листе и не в "ЭтаКнига")
написано
Код: plaintext
1.
2.
Function ccc()
MsgBox "Привет"
End Function
в ячейке пишешь =ссс() и жмешь Enter и
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как в Екселе задать колонтитул формата "mmmm yyyy"? / 25 сообщений из 30, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 406ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2184370]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 52ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 68ms
get tp. blocked users:
 2ms
others: 235ms
total:  406ms
x
x
Закрыть


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