Šajā rakstā mēs uzzināsim, kā formatēt datumu, izmantojot VBA.
Ņemsim piemēru, lai saprastu, kā un kur mēs varam formatēt šūnu īsā datuma numurā.
Mums ir dati par produktu daudzumu diapazonā A1: C9, kurā A slejā ir produkta nosaukums un B slejā ir norādīts tā daudzums, bet C slejā ir datums. Tagad mēs vēlamies pārvērsties īsā datuma formātā.
Lai uzrakstītu makro, rīkojieties šādi:-
- Atveriet VBA lapu, nospiediet taustiņu Alt+F11.
- Ievietojiet moduli.
- Uzrakstiet zemāk minēto kodu:
ApakšformātsSortdate ()
Dim Sh kā darblapa
Iestatīt Sh = ThisWorkbook.Sheets (1)
Sh.Range ("C2: C9"). NumberFormat = "m/d/gggg"
Beigt apakš
Koda skaidrojums:-
Pirmkārt, mēs esam norādījuši koda tēmu, pēc tam mēs esam definējuši visus mainīgos, pēc tam mēs esam definējuši diapazonu, kurā vēlamies ievietot īsā datuma formātu.
Lai palaistu makro, nospiediet taustiņu F5, un diapazona formāts tiks mainīts uz īsu datuma formātu.
Ņemsim piemēru no www.excelforum.com
Makro/VBA, lai mainītu datuma formātu no 01.01.2011. Uz 01.01.2011
Sākotnējais jautājums:-
Man ir Excel tīmekļa vaicājums, kas noņem tabulu programmā Excel. A sleja būtībā ir vārdu saraksts, un B sleja ir attiecīgais datums. Datumi vietnē ir norādīti kā 01.01.2011 formāts un pēc tam šādi tiek importēti programmā Excel. Tā rezultātā es nevaru kārtot kolonnu B pēc datuma vērtības, jo programma Excel neatpazīst formātu. Esmu mēģinājis mainīt datuma rekvizītus, izmantojot funkciju Atrast un aizstāt, lai to mainītu uz 01/01/2011 formātu, pēc tam mainot rekvizītus bez rezultātiem.
Ideālā gadījumā es vēlētos, lai kaut kāds makro/VBA kods tiktu mainīts 01.01.2011. Formātā 01/01/2011, lai varētu kārtot kolonnu.
Lai uzzinātu par risinājumu, lūdzu, noklikšķiniet uz saites
Lejupielādēt - VBA īsais datuma formāts - xlsm