Skip to main content

Conas formáid dáta nó dáta dáta a shonrú i gceanntásc nó buntásc?

De ghnáth, nuair a chuireann tú dáta nó am isteach sa cheanntásc nó sa bhuntásc leis an & [Dáta] or & [Am] cód, tá an dáta nó an fhormáid ama bunaithe ar na socruithe réigiúnacha atá á rialú ag Windows. Sa chás seo, conas a d’fhéadfá formáid ama an dáta nó an dáta a athrú go do riachtanas féin i gceanntásc nó buntásc mar a thaispeántar an pictiúr a leanas?

dáta formáide doc i gceannteideal 1

Sonraigh formáid ama dáta nó dáta i gceanntásc nó buntásc le cód VBA

mboilgeog cheart gorm saighead Sonraigh formáid ama dáta nó dáta i gceanntásc nó buntásc le cód VBA

Anseo, tabharfaidh mé isteach cód VBA simplí duit chun an tasc seo a réiteach in Excel, déan mar a leanas le do thoil:

1. Gníomhachtaigh do bhileog oibre a theastaíonn uait an dáta a chur isteach agus a fhormáidiú sa cheanntásc nó sa bhuntásc, agus ansin cliceáil Leagan Amach Page cnaipe ar an gcúinne íochtarach ar dheis den leabhar oibre chun radharc leagan amach an leathanaigh a chumasú, féach an scáileán:

dáta formáide doc i gceannteideal 2

2. Coinnigh síos an ALT + F11 eochracha in Excel chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

3. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.

Cód VBA: Cuir isteach agus formáid an dáta sa cheanntásc nó sa bhuntásc:

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

nótaí: Sa chód thuas, is féidir leat an LárionadHeader chun LeftHeader, CenterFooter…, Agus formáid an dáta mmm dd, bbbb is féidir é a athrú freisin de réir mar is gá duit.

4. Agus ansin brúigh F5 eochair chun an cód seo a rith, agus tá formáid do dháta sonraithe curtha isteach sa cheanntásc nó sa bhuntásc ag an am céanna. Féach an pictiúr:

dáta formáide doc i gceannteideal 3

Leideanna: Más mian leat d’fhormáid ama dáta féin a chur isteach sa cheanntásc nó sa bhuntásc, cuir an cód thíos i bhfeidhm:

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

Agus gheobhaidh tú an toradh seo a leanas:

dáta formáide doc i gceannteideal 4

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup  |   VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle   |  Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla   |  Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí:  12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
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