Ši pamoka parodys, kaip formatuoti datas naudojant VBA.
Formatuokite datas VBA
Yra du būdai formatuoti datas naudojant VBA.
- Ląstelių / diapazonų ypatybė „NumberFormat“ - formatuoti langeliuose saugomas datas
- VBA formato funkcija - formatuoti datas VBA (pvz., Kintamieji)
NumberFormat - datos
Numatytasis „Excel“ langelio formato formatas yra Bendrasis. Pakeitę skaičių formatą, galite rodyti reikšmes kaip skaičius, tekstą, datas, procentus ar valiutas. Ypatybę „NumberFormat“ galima naudoti VBA, kad būtų galima nustatyti datos skaičiaus formatą langelyje ar diapazone.
Pastaba: Norėdami pamatyti skirtingus standartinius „Excel“ datos formatus, eikite į Pagrindinis> Skaičius ir pamatysite tokias parinktis kaip trumpa data, ilga data ir laikas.
Trumpa data
Parinktis Trumpas datos numerio formatavimas rodo datą trumpu, skaitmeniniu formatu.
Šis kodas nustatys langelio A1 ypatybę .NumberFormat į Trumpa data:
| 1 | Diapazonas ("A1"). NumberFormat = "mm/dd/yyyy" |
Ilgas pasimatymas
Ilgas datos numerio formatavimas rodo datą ilgesniu rašytiniu formatu. Šis kodas nustatys langelio A1 ypatybę .NumberFormat į Ilga data:
| 1 | Diapazonas ("A1"). NumberFormat = "dddd, mmmm dd, yyyy" |
Tinkintos datos
Norėdami pamatyti pasirinktinius skaičių formatų kodus, kuriuos galite naudoti VBA formatuodami datas, eikite į Pagrindinis> Skaičius ir spustelėkite dialogo lango paleidimo priemonę. Pasirinkite skirtuką Skaičius ir pasirinkite Pasirinktinis.
Galite pasirinkti savo datai pritaikytus integruotus formatus arba sukurti savo vartotojo nustatytus datos formatus. Šis kodas nustatys langelio A1 ypatybę .NumberFormat į įmontuotą pasirinktinį datos formatą:
| 1 | Diapazonas ("A1"). NumberFormat = "mmm-yy" |
Rezultatas yra toks:
Šis kodas nustatys langelio A1 ypatybę .NumberFormat į vartotojo nustatytą pasirinktinį datos formatą:
| 1 | Diapazonas ("A1"). NumberFormat = "dddd-dd-mmm-yy" |
Rezultatas yra toks:
Peržiūrėję iš anksto sukurtus „Excel“ pavyzdžius, galite sužinoti, kaip reikia įvesti „NumberFormats“. Norėdami gauti daugiau informacijos, skaitykite „Microsoft“ dokumentaciją apie datų skaičių formatus.
VBA formato funkcija
Kaip minėta aukščiau, „NumberFormat“ metodas tinka norint nustatyti „Excel“ langeliuose saugomų datų skaičių formatą. VBA galite naudoti funkciją Formatas, norėdami konvertuoti datas į eilutes su tam tikru datos formatavimu.
Formatuodami datas naudosite šią sintaksę:
Formatas (String_Representation, NumberFormatCode), kuriame:
String_Representation - datos teksto eilutė.
NumberFormatCode - skaičiaus formato kodas, nurodantis datos rodymo būdą.
Šis kodas parodo, kaip suformatuoti datos teksto eilutę kaip ilgos datos formatą:
| 1 | „MsgBox“ formatas („2010-01-01“, „dddd, mmmm dd, yyyy“) |
Rezultatas yra toks:
Atkreipkite dėmesį, kad funkcija „Formatas“ naudoja tą pačią datos formatavimo sintaksę, kaip ir aukščiau pateiktas „NumberFormat“.
Šis kodas parodo, kaip suformatuoti datos tekstinę eilutę kaip vidutinės datos formatą:
| 1 | „MsgBox“ formatas („2012 m. Spalio 9 d.“, „Vidutinė data“) |
Rezultatas yra toks:
Šis kodas parodo, kaip suformatuoti datos teksto eilutę kaip vartotojo apibrėžtą formatą:
| 1 | „MsgBox“ formatas („2012 m. Spalio 9 d.“, „Dddd: dd/mm/yy“) |
VBA pasirinktinio formato kūrėjas
Mūsų VBA priedas: „AutoMacro“ yra pasirinktinių formatų kūrimo priemonė, skirta VBA redaktoriui. Tai leidžia nustatyti pasirinktinius formatus ir iš karto peržiūrėti norimos vertės išvestį:
VBA priede yra daugybė kitų „kodų generatorių“, plati kodų biblioteka ir kitų kodavimo įrankių asortimentas. Tai geriausias priedas visiems, kurie rimtai domisi VBA programavimu!
VBA formato data „Access“
VBA formato datos funkcija „Access VBA“ veikia lygiai taip pat, kaip „Excel VBA“.
| 12345678910 | Funkcija „GetDateFilter“ () kaip eilutė"sukurkite eilutę, kad gautumėte informaciją iš 2" Access "formos datos laukųPritemdyti strDateField kaip eilutęJei IsNull (Me.txtSDate) = NetiesaJei IsNull (Me.txtEDate) = tiesa, tada Me.txtEDate = Me.txtSDateJei strDateField2 = "" TadaGetDateFilter = strDateField & "Tarp #" ir formatas (Me.txtSDate, "mm/dd/yyyy") & " # And #" & Format (Me.txtEDate, "mm/dd/yyyy") & " #"Pabaiga JeiPabaiga JeiPabaigos funkcija |
