VBA vormingu kuupäev Kuidas muuta kuupäeva vormingut VBA-koodis?

Lang L: none (table-of-contents)

Exceli VBA vormingu kuupäev

Et vormindada kuupäeva VBA me kasutame sisseehitatud FORMAT funktsioon ise, see võtab sisendit kuupäeva ja tagastab soovitud vormingusse, argumente vaja seda funktsiooni väljendavad ennast ja formaat tüüp.

Kuupäeva ja kellaaja vormindamine on excelis tundlikud asjad ja sama kehtib ka VBA kohta. Vaikimisi kuupäev ja kellaaeg põhinevad süsteemikuupäeval, mil töötame, mis võib süsteemiti varieeruda. Selles artiklis näitame teile erinevaid tehnikaid kuupäevade vormistamiseks VBA-koodidega.

Kuupäeva vormingu muutmiseks VBA-kodeerimisega peame olema teadlikud kuupäevavormingutest ja selle mõjust kuupäevale.

Allolevas tabelis on toodud kuupäeva erinevad vormingud ja nende koodid.

Niisiis, kui peate silmas ülaltoodud diagrammi kuupäeva vormindamist VBA-kodeerimise kaudu, pole see üldse keeruline ülesanne.

Kuidas muuta kuupäeva vormingut VBA-s?

Allpool on toodud Exceli VBA kuupäevavormingu näited.

Näide 1

Näiteks on meil töölehe mitmes lahtris sama kuupäev, nagu allpool näidatud.

Nüüd rakendame sama kuupäeva jaoks erinevaid kuupäevavorminguid, et näha mõju erinevatel kuupäevavormingute koodidel.

Kõigepealt kopeerige samad andmed ka järgmisesse veergu, et mõju näha.

Esimesel kuupäeval, st lahtril A1, rakendame vormingut "PP-KK-AAAA" .

Kõigepealt peame koodis valima lahtri, kasutades objekti RANGE .

Kood:

Alamkuupäeva_vorming_näide1 () vahemik ("A1") Lõpp alam

Kuna muudame lahtri kuupäevavormingut, peame juurde pääsema objekti RANGE atribuudile „ Number Format ”.

Kood:

Alamkuupäeva_vorming_näide1 () vahemik ("A1"). NumberVormingu lõpp alam

Pärast tutvumise " Arvuvormingu " peame arvu määramiseks formaat pannes võrdusmärgi ja kohaldada formaat koodi jutumärgid.

Kood:

Alamkuupäeva_vormingu_näide1 () vahemik ("A1"). NumberFormat = "pp-kk-aaa" "See tähistab kuupäeva väärtuseks" 23-10-2019 "End Sub

Selle koodi käivitamisel rakendab see lahtris A1 numbri vormingut „ PP-KK-AAAA”.

Väljund:

Näide 2

Samamoodi olen rakendanud erinevaid vorminduskoode ka teistele lahtritele ja allpool on teie jaoks VBA kood.

Kood:

Sub Date_Format_Example2() Range("A1").NumberFormat = "dd-mm-yyy" 'This will change the date to "23-10-2019" Range("A2").NumberFormat = "ddd-mm-yyy" 'This will change the date to "Wed-10-2019" Range("A3").NumberFormat = "dddd-mm-yyy" 'This will change the date to "Wednesday-10-2019" Range("A4").NumberFormat = "dd-mmm-yyy" 'This will change the date to "23-Oct-2019" Range("A5").NumberFormat = "dd-mmmm-yyy" 'This will change the date to "23-October-2019" Range("A6").NumberFormat = "dd-mm-yy" 'This will change the date to "23-10-19" Range("A7").NumberFormat = "ddd mmm yyyy" 'This will change the date to "Wed Oct 2019" Range("A8").NumberFormat = "dddd mmmm yyyy" 'This will change the date to "Wednesday October 2019" End Sub

The result of this code will be as follows.

Output:

Change Date Format by Using FORMAT Function

In VBA, we have a function called FORMAT, which can be used to apply the desired format to the cell.

We just need to specify what the value is for “Expression” and apply the “Format” accordingly.

Look at the below code for an example.

Code:

Sub Date_Format_Example3() Dim MyVal As Variant MyVal = 43586 MsgBox Format(MyVal, "DD-MM-YYYY") End Sub

In the above code, I have defined the variable as variant (which can hold any value).

Code:

Dim MyVal As Variant

Next for this variable, I have assigned the value as 43586.

Code:

MyVal = 43586

Next, in the message box, I have shown the result of the variable, but before we show the result, we have used the “FORMAT” function to format the value of the variable “MyVal,” and the format is given. “DD-MM-YYYY.”

Code:

MsgBox Format(MyVal, "DD-MM-YYY")

Ok, let’s run the code and see the result in the message box in VBA.

Output:

As you can see above, the result shows as “01-05-2019”.

Now you must be wondering we have supplied the serial number but the result showing as the date. This is because Excel stores the date as serial numbers, so the value 43586 is equal to the date “01-05-2019,” and if you increase the number by 1 i.e., 43587, the date will be “02-05-2019”.

Code:

Alamkuupäeva_vorming_näide3 () Dim MyVal variatsioonina MyVal = 43586 MsgBox-vorming (MyVal, "PP-KK-AAAA") Lõpp-alam

Asjad, mida meeles pidada

  • Teie Exceli jaoks rakendatakse teie süsteemi vaikekuupäeva.
  • Atribuuti Number Format saab kasutada kuupäeva vormingu muutmiseks VBA-s.
  • Funktsiooni FORMAT abil saame muuta kuupäeva vormingut.
  • Excel salvestab kuupäeva seerianumbritena ja kui rakendate kuupäevavormingut, kuvatakse see vastavalt.

Huvitavad Artiklid...