Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս վերնագրում կամ տողատակում նշել ամսաթիվը կամ տվյալների ձևաչափը:

Սովորաբար, երբ ամսաթիվը կամ ժամանակը տեղադրում եք վերնագրի կամ էջատակի հետ & [Ամսաթիվ] or & [Timeամանակ] ծածկագիրը, ամսաթվի կամ ժամի ձևաչափը հիմնված է Windows- ի կողմից վերահսկվող տարածաշրջանային պարամետրերի վրա: Այս դեպքում ինչպե՞ս կարող եք ամսաթվի կամ ամսաթվի ժամի ձևաչափը վերնագրում կամ էջատակում փոխել ձեր սեփական պահանջին, ինչպես ցույց է տրված հետևյալ նկարը:

փաստաթղթի ձևաչափի ամսաթիվը 1 վերնագրում

Նշեք ամսաթիվը կամ ամսաթվի ժամի ձևաչափը VBA կոդով վերնագրում կամ էջատակում


նետ կապույտ աջ պղպջակ Նշեք ամսաթիվը կամ ամսաթվի ժամի ձևաչափը VBA կոդով վերնագրում կամ էջատակում

Այստեղ ես կներկայացնեմ մի քանի պարզ VBA կոդ, որպեսզի դուք լուծեք այս խնդիրը Excel- ում, խնդրում եմ արեք հետևյալը.

1, Ակտիվացրեք ձեր աշխատանքային թերթը, որը ցանկանում եք զետեղել և ձևափոխել ամսաթիվը վերնագրում կամ էջատակում, ապա կտտացնել Page Layout էջի դասավորության տեսքը միացնելու համար աշխատանքային գրքի ներքևի աջ անկյունում գտնվող կոճակը, տես նկարի նկարը.

փաստաթղթի ձևաչափի ամսաթիվը 2 վերնագրում

2, Պահեք պահեք ALT + F11 Excel- ում ստեղներ `բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

3: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Տեղադրեք և ձևաչափեք ամսաթիվը վերնագրում կամ էջատակում.

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

ՆշումՎերոհիշյալ ծածկագրում կարող եք փոխել Կենտրոնի ղեկավար դեպի Ձախ ղեկավար, CenterFooter…, Եվ ամսաթվի ձևաչափը մմմմ օր, այո նույնպես կարող է փոխվել, ինչպես ձեզ հարկավոր է:

4, Եվ հետո սեղմեք F5 այս կոդը գործարկելու համար ստեղնը, և ձեր նշված ամսաթվի ձևաչափը միանգամից տեղադրվել է վերնագրի կամ տողատակի մեջ: Տեսեք,

փաստաթղթի ձևաչափի ամսաթիվը 3 վերնագրում

TipsԵթե ​​ցանկանում եք վերնագրի կամ տողատակի մեջ տեղադրել ձեր ամսաթվի ժամանակի ձևաչափը, խնդրում ենք կիրառել հետևյալ կոդը ՝

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

Եվ դուք կստանաք հետևյալ արդյունքը.

փաստաթղթի ձևաչափի ամսաթիվը 4 վերնագրում

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (8)
No ratings yet. Be the first to rate!
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 :(
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!
This comment was minimized by the moderator on the site
How to specify date (1day advance date) format in header or footer?
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!
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
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
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?
This comment was minimized by the moderator on the site
This doesn't seem to work anymore.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations