tämä opetusohjelma osoittaa, miten muotoilla päivämäärät käyttämällä VBA.
Format Dates in VBA
on olemassa kaksi tapaa muotoilla päivämäärät käyttäen VBA: ta.
- solujen / alueiden NumberFormat ominaisuus – soluihin tallennettuihin päivämääriin
- VBA – Formaattifunktio-päivämääriin VBA-muodossa (ex. muuttujat)
NumberFormat-päivämäärät
solun oletusnumeromuoto Excelissä on yleinen. Voit näyttää arvot numeroina, tekstinä, päivämäärinä, prosentteina tai valuuttoina muuttamalla numeromuotoa. NumberFormat ominaisuutta voidaan käyttää VBA asettaa numeromuoto päivämäärät solussa tai alueella.
Huomautus: Jos haluat nähdä Excelissä saatavilla olevat eri vakiopäivämuodot, mene kotiin>numero ja näet vaihtoehdot, kuten lyhyt päivämäärä, pitkä päivämäärä ja aika.
lyhyt päivämäärä
lyhyen päivämääränumeron muotoiluvaihtoehto näyttää päivämäärän lyhyessä, numeerisessa muodossa.
seuraava koodi määrittää .Solun A1 NumberFormat ominaisuus = lyhyt päivämäärä:
1
|
alue (”A1”).NumberFormat = ”kk / pp / vvvv”
|
Long Date
Long date number formating näyttää päivämäärän pidemmässä, kirjoitetussa muodossa. Seuraava koodi asettaa .Solun A1 NumberFormat ominaisuus pitkäaikaiseen päivämäärään:
1
|
alue (”A1”).NumberFormat = ”dddd, mmmmm pp, vvvv”
|
mukautetut päivämäärät
nähdäksesi mukautetut numeromuotokoodit, joita voit käyttää VBA: ssa päivämäärien muotoiluun, siirry kohtaan Home>Number ja napsauta valintaikkunan käynnistintä. Valitse numero-välilehti ja valitse Custom.
voit joko valita omat sisäänrakennetut formaatit treffeillesi tai luoda omia käyttäjän määrittämiä päivämäärämuotoja. Seuraava koodi asettaa .NumberFormat ominaisuus solun A1 sisäänrakennettu mukautetun päivämäärän muodossa:
1
|
Alue (”A1”).NumberFormat = ”mmm-yy”
|
tulos on:
seuraava koodi asettaa .Solun A1 NumberFormat ominaisuus käyttäjän määrittelemään mukautettuun päivämäärämuotoon:
1
|
alue (”A1”).NumberFormat = ”dddd-dd-mmm-yy”
|
tulos on:
tarkastelemalla Excelin valmiiksi rakennettuja esimerkkejä voit oppia, miten Numeroformaatit tulisi syöttää. Lisätietoja saat Microsoftin ohjeista päivämäärien numeromuodoista.
VBA-Formaattifunktio
kuten edellä mainittiin, Numeroformaattimenetelmä soveltuu Excel-soluihin tallennettujen päivämäärien Numeroformaatin asettamiseen. Vuonna VBA, voit käyttää muodossa toiminto muuntaa päivämäärät merkkijonoja tietyn päivämäärän muotoilu.
käyttäisit seuraavaa syntaksia päivämäärien muotoiluun:
Format (String_ Representation, NumberFormatCode) where:
String_ Representation – päivämäärän esittävä merkkijono.
NumberFormatCode – numeromuotokoodi, joka määrittää, miten päivämäärä tulee esittää.
seuraava koodi näyttää, miten muotoilla merkkijonoesitys päivämäärästä pitkänä päivämäärämuotona:
1
|
MsgBox-muoto (”1/1/2010”, ”dddd, mmmm pp, vvvv”)
|
tulos on:
huomaa, että Formaattifunktio käyttää samaa päivämäärämuotoilusyntaksia kuin yllä oleva numeroformaatti.
seuraava koodi näyttää, miten muotoilla merkkijonon esitys päivämäärästä keskivertopäivämuotona:
1
|
MsgBox Format (”09 October 2012”, ”Medium Date”)
|
tulos on:
seuraava koodi näyttää, miten muotoilla merkkijonon esitys päivämäärästä käyttäjän määrittämänä muotona:
1
|
MsgBox Format (”09 October 2012″, ” dddd: pp / kk / VV”)
|
VBA Custom Format Builder
VBA-Lisäosamme: AutoMacro sisältää mukautetun Format Builderin VBA-Muokkaimelle. Näin voit asettaa mukautettuja formaatteja ja heti esikatsella tuotos haluamasi arvo:
VBA-lisäosa sisältää lukuisia muita ”Koodigeneraattoreita”, laajan koodikirjaston ja valikoiman muita koodaustyökaluja. Se on lopullinen lisäosa kaikille vakavissaan VBA ohjelmointi!
VBA Format Date in Access
VBA Format Date-toiminto toimii täsmälleen samalla tavalla Access VBA: ssa kuin Excel VBA: ssa.
1
2
3
4
5
6
7
8
9
10
|
Function GetDateFilter () As String
’create a string to get information from 2 date fields on a form in Access
Dim strDateField As String
If IsNull (Me.txtSDate) = False Then
If IsNull (Me.txtEDate) = True Then Me.txtEDate = minä.txtSDate
If strDateField2 = ””Then
GetDateFilter = strDateField & ”Between #” & Format(Me.txtSDate, ”kk/pp / vvvv”) & ”# ja # ” & formaatti(Me.txtedaatti, ”kk / pp / vvvv”) & ”#”
End If
End If
End Function
|