Note: The other languages of the website are Google-translated. Back to English
Մուտք  \/ 
x
or
x
Գրանցում  \/ 
x

or

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

Սովորաբար, երբ ամսաթիվը կամ ժամանակը տեղադրում եք վերնագրի կամ էջատակի հետ & [Ամսաթիվ] 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 վերնագրում


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

Excel- ի համար նախատեսված Kutools- ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80% -ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր առանձնահատկություններ, Աջակցում է Office / Excel 2007-2019 և 365. Աջակցում է բոլոր լեզուները: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հատկություններ ՝ 30-օրյա անվճար փորձաշրջան: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50% -ով և նվազեցնում է ձեզ համար ամեն օր մկնիկի հարյուրավոր կտտոցներ:
officetab ներքևում
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    C Harvey · 1 months ago
    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
  • To post as a guest, your comment is unpublished.
    Kasra · 9 months ago
    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
  • To post as a guest, your comment is unpublished.
    Paula McSorley · 1 years ago
    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?
  • To post as a guest, your comment is unpublished.
    Judy Kunz · 1 years ago
    This doesn't seem to work anymore.