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

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

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

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

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

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

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 ключ, за да изпълните този код, и посоченият от вас формат на датата е вмъкнат в горния или долния колонтитул наведнъж. Вижте екранна снимка:

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

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

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

Отключете Excel Magic с Kutools AI

• Интелигентно изпълнение: Извършвайте операции с клетки, анализирайте данни и създавайте диаграми - всичко това се управлява от прости команди.
• Персонализирани формули: Генерирайте персонализирани формули, за да рационализирате работните си процеси.
• VBA кодиране: Пишете и прилагайте VBA код без усилие.
• Тълкуване на формула: Разбирайте сложни формули с лекота.
• Превод на текст: Премахнете езиковите бариери във вашите електронни таблици.

Подобрете вашите възможности на Excel с инструменти, базирани на AI. Свали сега и изпитайте ефективност, както никога досега!