Luna VBA Excel
Funcția VBA Month este o funcție încorporată utilizată pentru a obține luna de la o dată, iar rezultatul returnat de această funcție este întreg între 1 și 12. Această funcție extrage doar numărul lunii din valoarea datei furnizate.
De exemplu, dacă data este 28-mai-2019, atunci pentru a extrage numărul lunii din această dată, putem folosi funcția LUNĂ.
Cum se folosește funcția de lună în VBA?
Mai jos este sintaxa funcției MONTH.
Trebuie doar să furnizăm data de la care încercăm să extragem numărul lunii.
Exemplul nr. 1
Vom vedea cum să scriem un cod pentru a extrage numărul lunii din data respectivă. Vom lua de la data de „10 - lea octombrie 2019".
Pasul 1: Porniți procedura macro.
Cod:
Sub Lună_Exemplu1 () Încheiere Sub
Pasul 2: definiți variabila pentru a menține valoarea datei. Deoarece stocăm valoarea datelor, tipul nostru de date ar trebui să fie „Data”. Deci, declarați variabila și atribuiți tipul de date ca „Data” variabilei declarate.
Cod:
Sub Month_Example1 () Dim DDate Ca dată de sfârșit Sub
Pasul 3: Pentru această variabilă, atribuie valoarea data de 10 mii octombrie 2019.
Cod:
Sub Month_Example1 () Dim DDate Ca dată DDate = "10 Oct 2019" End Sub
Pasul 4: acum atribuiți numărul lunii pentru a declara încă o variabilă ca „Număr întreg”.
Cod:
Sub Month_Example1 () Dim DDate Ca dată Dim MonthNum As Integer DDate = "10 Oct 2019" End Sub
Pasul 5: Pentru această variabilă, vom deschide funcția LUNĂ.
Cod:
Sub Month_Example1 () Dim DDate Ca dată Dim MonthNum As Integer DDate = "10 Oct 2019" MonthNum = Month (End Sub
Pasul 6: Funcția lunară care solicită „Data” care trebuie furnizată pentru a extrage numărul lunii. Deoarece am stocat deja data vizată pentru variabila „DDate”, furnizați această variabilă ca parametru de intrare pentru funcția lună.
Cod:
Sub Month_Example1 () Dim DDate Ca dată Dim MonthNum As Integer DDate = "10 Oct 2019" MonthNum = Month (DDate) End Sub
Pasul 7: Acum funcția „Lună” va returna numărul lunii de la data furnizată la variabila „Număr lunar” și va afișa în cele din urmă rezultatul într-o casetă de mesaje în VBA.
Cod:
Sub Month_Example1 () Dim DDate Ca dată Dim MonthNum As Integer DDate = "10 Oct 2019" MonthNum = Month (DDate) MsgBox MonthNum End Sub
Rulați codul și vedeți numărul lunii în caseta de mesaj.
Ieșire:
Deci, numărul lunii de la data furnizată este 10, adică luna octombrie.
Exemplul nr. 2
Acum vom lua referințe de celule pentru codificare. Mai jos este data pe care o avem în foaia de lucru.
Deci, din valoarea datei celulei A2, trebuie să extragem numărul lunii în celula B2.
Cod:
Sub Luna_Exemplu2 () Interval ("B2"). Valoare = Sfârșit Sub
Deschideți funcția LUNĂ și furnizați data ca valoare RANGE A2.
Cod:
Sub Luna_Exemplu2 () Interval ("B2"). Valoare = Lună (Interval ("A2")) Sfârșit Sub
Motivul pentru care am furnizat celula Gama A2 deoarece de data aceasta data noastră se află în celula A2, deci aceeași va fi referința.
Acum executați codul și obțineți numărul lunii de la data din celula B2.
Iată, avem numărul lunii în celula B2.
Exemplul nr. 3
Am extras luna pentru data cu o singură celulă, dar dacă avem mai multe rânduri de date, cum ar fi cea de mai jos.
În aceste cazuri, trebuie să parcurgem celulele și să executăm sarcina de a extrage numărul lunii de la fiecare dată respectivă.
Codul de mai jos va face treaba pentru noi.
Cod:
Sub lună_Exemplu3 () Dim k lung ca k = 2 până la 12 celule (k, 3). Valoare = lună (celule (k, 2). Valoare) Următorul k Sfârșit sub
Ce va face acest cod este că va parcurge rândurile de la 2 la 12 și va extrage numărul lunii din a doua coloană și va stoca rezultatul în a treia coloană.
Lucruri de reținut aici
- LUNA este o funcție de foaie de lucru, precum și o funcție VBA.
- LUNA necesită o referință valabilă a datei altfel, vom primi un mesaj de eroare.
- Dacă numărul lunii este 12, atunci va afișa un mesaj de eroare.
