Ez az oktatóanyag bemutatja a dátumok VBA használatával történő formázását.
Dátumok formázása VBA -ban
Két módszer létezik a dátumok VBA használatával történő formázására.
- A cellák / tartományok NumberFormat tulajdonsága - A cellákban tárolt dátumok formázása
- A VBA formátum funkció - A dátumok formázása a VBA -ban (pl. Változók)
NumberFormat - Dátumok
Az Excel cella alapértelmezett számformátuma az Általános. A számformátum megváltoztatásával számokat, szöveget, dátumokat, százalékokat vagy pénznemeket jeleníthet meg. A NumberFormat tulajdonság a VBA -ban használható a dátumok számformátumának beállítására egy cellában vagy tartományban.
Jegyzet: Az Excelben elérhető különböző szabványos dátumformátumok megtekintéséhez lépjen a Kezdőlap> Szám menüponthoz, és láthatja a rövid dátumot, a hosszú dátumot és az időt.
Rövid dátum
A Rövid dátumszám formázása opció a dátumot rövid, numerikus formátumban jeleníti meg.
A következő kód az A1 cella .NumberFormat tulajdonságát Rövid dátumra állítja:
1 | Tartomány ("A1"). NumberFormat = "mm/dd/yyyy" |
Hosszú randi
A hosszú dátumszám formázása hosszabb, írott formátumban jeleníti meg a dátumot. A következő kód az A1 cella .NumberFormat tulajdonságát hosszú dátumra állítja:
1 | Tartomány ("A1"). NumberFormat = "dddd, mmmm dd, yyyy" |
Egyedi dátumok
A VBA -ban a dátumok formázásához használható egyéni számformátumkódok megtekintéséhez lépjen a Kezdőlap> Szám menüpontra, és kattintson a Párbeszédpanel -indítóra. Válassza a Szám lapot, és válassza az Egyéni lehetőséget.
Kiválaszthatja az egyéni beépített formátumokat a dátumhoz, vagy létrehozhat saját felhasználó által meghatározott dátumformátumokat. A következő kód az A1 cella .NumberFormat tulajdonságát beépített egyéni dátumformátumra állítja be:
1 | Tartomány ("A1"). NumberFormat = "mmm-yy" |
Az eredmény:
A következő kód az A1 cella .NumberFormat tulajdonságát a felhasználó által meghatározott egyéni dátumformátumra állítja be:
1 | Tartomány ("A1"). NumberFormat = "dddd-dd-mmm-yy" |
Az eredmény:
Az Excel előre elkészített példáit áttekintve megtudhatja, hogyan kell megadni a NumberFormats formátumot. További információért olvassa el a Microsoft dokumentációját a dátumok számformátumáról.
VBA formátum funkció
Amint fentebb említettük, a NumberFormat módszer alkalmas az Excel cellákban tárolt dátumok számformátumának beállítására. A VBA -ban a Formátum funkció segítségével bizonyos dátumformátumú karakterláncokká alakíthatja a dátumokat.
A következő szintaxist használja a dátumok formázásához:
Formátum (String_Representation, NumberFormatCode) ahol:
String_Representation - a dátumot reprezentáló szöveges karakterlánc.
NumberFormatCode - a számformátum kódja, amely meghatározza a dátum megjelenítésének módját.
A következő kód bemutatja, hogyan kell a dátum szöveges karakterláncát hosszú dátumformátumként formázni:
1 | MsgBox formátum ("1/1/2010", "dddd, mmmm dd, yyyy") |
Az eredmény:
Vegye figyelembe, hogy a Formátum függvény ugyanazt a dátumformázási szintaxist használja, mint a fenti NumberFormat.
A következő kód bemutatja, hogyan kell a dátum szöveges karakterláncát középső dátumformátumként formázni:
1 | MsgBox formátum ("2012. október 9.", "Közepes dátum") |
Az eredmény:
A következő kód bemutatja, hogyan kell a dátum szöveges karakterláncát felhasználó által meghatározott formátumként formázni:
1 | MsgBox formátum ("2012. október 09.", "dddd: dd/mm/yy") |
VBA Custom Format Builder
VBA bővítményünk: Az AutoMacro egy egyéni formátumkészítőt tartalmaz a VBA szerkesztőhöz. Ez lehetővé teszi, hogy egyéni formátumokat állítson be, és azonnal megtekinthesse a kívánt érték kimenetét:
A VBA bővítmény számos más „kódgenerátort”, kiterjedt kódkönyvtárat és egyéb kódolóeszközöket tartalmaz. Ez a végső kiegészítő bárkinek, aki komolyan gondolja a VBA programozást!
VBA formátum dátuma az Accessben
A VBA Formátum dátuma funkció pontosan ugyanúgy működik az Access VBA -ban, mint az Excel VBA.
12345678910 | Funkció GetDateFilter () karakterláncként'hozzon létre egy karakterláncot az Access űrlapján található két dátummezőből származó információk lekéréséhezDim strDateField karakterlánckéntHa IsNull (Me.txtSDate) = Hamis akkorHa IsNull (Me.txtEDate) = Igaz, akkor Me.txtEDate = Me.txtSDateHa strDateField2 = "" AkkorGetDateFilter = strDateField & "Between #" & Format (Me.txtSDate, "mm/dd/yyyy") & " # And #" & Format (Me.txtEDate, "mm/dd/yyyy") & " #"Vége HaVége HaVége funkció |