Прескочи на основното съдържание

Как да задам формат на дата или дата и час в горен или долен колонтитул?

Автор: Xiaoyang Последна промяна: 2020-05-29

Обикновено, когато вмъкнете дата или час в горния или долния колонтитул с &[Дата] or &[Време] код, форматът за дата или час се основава на регионалните настройки, контролирани от Windows. В този случай, как бихте могли да промените формата на датата или часа според вашите собствени нужди в горния или долния колонтитул, както е показано на следната екранна снимка?

дата във формат doc в заглавка 1

Посочете дата или формат на датата и часа в горния или долния колонтитул с VBA код

стрелка син десен балон Посочете дата или формат на датата и часа в горния или долния колонтитул с VBA код

Тук ще ви представя прост VBA код, за да решите тази задача в Excel, моля, направете следното:

1. Активирайте вашия работен лист, който искате да вмъкнете и форматирайте датата в горен или долен колонтитул, след което щракнете Page Layout бутон в долния десен ъгъл на работната книга, за да активирате изгледа на оформлението на страницата, вижте екранната снимка:

дата във формат doc в заглавка 2

2. Задръжте натиснат ALT + F11 клавиши в Excel, за да отворите Microsoft Visual Basic за приложения прозорец.

3. Щракнете Поставете > Модулии поставете следния код в Модули Window.

VBA код: Вмъкнете и форматирайте дата в горен или долен колонтитул:

Sub add_date_header()
ActiveSheet.PageSetup.CenterHeader = Format(Date, "mmmm dd, yyyy")
End Sub

Забележка: В горния код можете да промените CenterHeader да се LeftHeader, Централен долен колонтитул… и формата на датата мммм дд, гггг също може да се променя според нуждите ви.

4. И след това натиснете F5 ключ, за да изпълните този код, и посоченият от вас формат на датата е вмъкнат в горния или долния колонтитул наведнъж. Вижте екранна снимка:

дата във формат doc в заглавка 3

Съвети: Ако искате да вмъкнете свой собствен формат за дата и час в горния или долния колонтитул, моля, приложете кода по-долу:

Sub Change_Format()
  ActiveSheet.PageSetup.CenterHeader = Format(Now, "MMMM DD, YYYY HH:MM:SS")
End Sub

И ще получите следния резултат:

дата във формат doc в заглавка 4

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии  |   VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар   |  Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки   |  Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти:  12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание

Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
Comments (8)
No ratings yet. Be the first to rate!
Estefania
Estefania
This comment was minimized by the moderator on the site
Hi, how can I change to upper case the month? I tried a few things but doesn't work :(
Reply
0
0
skyyang
skyyang     Estefania
This comment was minimized by the moderator on the site
Hello, Estefania
To make the month in the date appear in uppercase, you can use the UCase function in VBA to convert the month to uppercase. Here’s how you can modify your code:
Sub add_date_header()
    ActiveSheet.PageSetup.CenterHeader = UCase(Format(Date, "mmmm dd, yyyy"))
End Sub


Please have a try, hope it can help you!
Reply
Report
0
0
jtlw
jtlw
This comment was minimized by the moderator on the site
How to specify date (1day advance date) format in header or footer?
Reply
0
0
skyyang
skyyang     jtlw
This comment was minimized by the moderator on the site
Hello,
To add the date 1day advanced totay, please apply the following code:
Sub SetAdvancedDateInHeader()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim tomorrow As Date
    tomorrow = Date + 1
    ws.PageSetup.CenterHeader = Format(tomorrow, "mm/dd/yyyy")
End Sub


Please have a try, hope it can help you!
Reply
Report
0
0
C Harvey
C Harvey
This comment was minimized by the moderator on the site
How can I add a text string immediately before my date (in a custom format? I would like my header to be e.g. "Printed 20 May 2021 14:06:30". My current VBA code is:Sub Change_Format()
ActiveSheet.PageSetup.RightHeader = Format(Now, "DD MMM YYYY HH:MM:SS")
End Sub
Reply
0
0
Kasra
Kasra
This comment was minimized by the moderator on the site
Hi, Thank You
Can I ask you how can I change the font and size of "Date" by VBA?
I mean with same code that you wrote for insert date into header by VBA.
Thanks
Reply
0
0
Paula McSorley
Paula McSorley
This comment was minimized by the moderator on the site
I use a dynamic print range in my spreadsheet and generate PDFs. Oddly enough, when I execute the above VBA code snippet, it resets the dynamic print range for my current worksheet to a static range. Is there any way to avoid that?
Reply
0
0
Judy Kunz
Judy Kunz
This comment was minimized by the moderator on the site
This doesn't seem to work anymore.
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations