Kā formatēt datumu, izmantojot VBA

Šajā rakstā mēs uzzināsim, kā veikt Excel VBA formāta datumu garā datumā.

Piemērs: - formāts (#29/03/2015#, “Long Date”) parādītu “2015. gada 29. marts”?

Ņemsim piemēru, lai saprastu:-

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ērst par garu skaitļu datumu, jo šajā formātā tiks parādīta nedēļas diena, mēnesis, mēneša diena un gads.

Mēs rakstām maināmo makro VBA datuma formātā. Mums būs jāveic tālāk norādītās darbības:-

Atveriet VBA lapu un nospiediet taustiņu Alt+F11.
Ievietojiet moduli.
Uzrakstiet zemāk minēto kodu:

Apakšformāta ilgs datums ()

Dim Sh kā darblapa

Iestatīt Sh = ThisWorkbook.Sheets (1)

Sh.Range ("C2: C9"). NumberFormat = "[$ -F800] dddd, mmmmdd, yyyy"

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ā mēs vēlamies ievietot garo datuma formātu.

Lai palaistu makro, nospiediet taustiņu F5, un diapazona formāts tiks mainīts uz datumu garā formāta numurā.

@ www.excelforum viens no lietotājiem ir uzdevis to pašu jautājumu:-

Datuma formatēšanas šūnas ar VBA

Mēģinu formatēt šūnu, veidojot Excel izklājlapu no
piekļuves modulis. Es gribētu definēt šūnu formātu no
vb kods pats, bet es nezinu, kā tieši es varu iegūt vēlamos rezultātus.

http://www.excelforum.com/excel-programming-vba-macros/558695-date-formatting-cells-w-vba.html