VBA mėnesio funkcija | Kaip gauti mėnesio skaičių nuo datos?
„Excel“ VBA mėnuo
VBA mėnesio funkcija yra integruota funkcija, naudojama mėnesiui gauti nuo datos, o šios funkcijos grąžinta išvestinė yra sveikasis skaičius nuo 1 iki 12. Ši funkcija išskiria mėnesio skaičių tik iš pateiktos datos vertės.
Pvz., Jei data yra 2019 m. Gegužės 28 d., Tada, jei norite išskirti mėnesio numerį iš šios datos, galime naudoti funkciją MONTH.
Kaip naudoti mėnesio funkciją VBA?
Žemiau pateikiama MONTH funkcijos sintaksė.
Mes tiesiog turime nurodyti datą, nuo kurios bandome išgauti mėnesio skaičių.
Šį VBA mėnesio „Excel“ šabloną galite atsisiųsti čia - VBA mėnesio „Excel“ šabloną1 pavyzdys
Pažiūrėsime, kaip parašyti kodą, kad būtų išimtas mėnesio numeris iš datos. Data bus „2019 m. Spalio 10 d.“.
1 veiksmas: pradėkite makrokomandos procedūrą.
Kodas:
Mėnesio antrinis_pavyzdys1 () Pabaigos sub
2 veiksmas: apibrėžkite kintamąjį, kad būtų laikoma datos vertė. Kadangi saugome duomenų vertę, duomenų tipas turėtų būti „Data“. Taigi deklaruokite kintamąjį ir priskirkite deklaruojamam kintamajam duomenų tipą kaip „Data“.
Kodas:
Mėnesio antrasis_pavyzdys1 () Dim DDate kaip datos pabaiga Sub
3 žingsnis: Šiam kintamajam priskirkite 2019 m. Spalio 10 d. Reikšmę.
Kodas:
Antrasis mėnuo_pavyzdys1 () Dimensijos data kaip data DData = "2019 m. Spalio 10 d." Pabaigos antrinė data
4 žingsnis: Dabar priskirkite mėnesio skaičių, kad dar vienas kintamasis būtų deklaruojamas kaip „Sveikasis skaičius“.
Kodas:
Mėnesio mėnesio_pavyzdys1 () Dim DDate kaip Data Dim MonthNum As Integer DDate = "2019 m. Spalio 10 d." Pabaiga Sub
5 žingsnis: Šiam kintamajam atidarysime funkciją MONTH.
Kodas:
Mėnesio_pavyzdys1 () Dim DDate kaip Data Dim MonthNum As Integer DDate = "2019 m. Spalio 10 d." MonthNum = mėnuo (pabaigos antrinis
6 žingsnis: Mėnesio funkcija, prašanti „Data“, kurią reikia pateikti, kad išgautų mėnesio numerį. Kadangi mes jau išsaugojome tikslinę datą kintamajam „DDate“, pateikite šį kintamąjį kaip mėnesio įvesties parametrą.
Kodas:
Mėnesio_pavyzdys1 () Dim DD kaip data Dim MonthNum As Integer DDate = "2019 m. Spalio 10 d." MonthNum = mėnuo (DDate) pabaigos sub
7 žingsnis: Dabar funkcija „Mėnuo“ grąžins mėnesio numerį nuo pateiktos datos į kintamąjį „MonthNum“ ir galiausiai parodys rezultatą VBA pranešimų laukelyje.
Kodas:
Mėnesio_pavyzdys1 () Dimensijos data kaip data Dim Mėnesio suma kaip sveikoji DData = "2019 m. Spalio 10 d." Mėnesio mėn. = Mėnuo (Datos data)
Paleiskite kodą ir pranešimo laukelyje pamatykite mėnesio numerį.
Išvestis:
Taigi mėnesio numeris nuo pateiktos datos yra 10, ty spalio mėnuo.
2 pavyzdys
Dabar imsime langelių nuorodas kodavimui. Žemiau yra data, kurią turime darbalapyje.
Taigi iš langelio A2 datos vertės turime išskirti mėnesio skaičių į langelį B2.
Kodas:
Antrinis mėnesio_pavyzdys2 () diapazonas („B2“). Reikšmė = pabaigos antrinė dalis
Atidarykite MONTH funkciją ir nurodykite datą kaip RANGE A2 reikšmę.
Kodas:
Mėnesio_pavyzdys2 () diapazonas („B2“). Reikšmė = mėnuo (diapazonas („A2“)) Pabaiga
Priežastis, kodėl mes tiekėme A2 diapazono langelį, nes šį kartą mūsų data yra langelyje A2, taigi ta pati bus nuoroda.
Dabar vykdykite kodą ir gaukite mėnesio numerį nuo datos langelyje B2.
Štai, mes gavome mėnesio skaičių langelyje B2.
3 pavyzdys
Mes išskyrėme vienos langelio datos mėnesį, bet kas bus, jei turėsime kelias duomenų eilutes, tokias kaip žemiau.
Tokiais atvejais turime peržvelgti langelius ir atlikti užduotį išgauti mėnesio skaičių iš kiekvienos atitinkamos datos.
Žemiau pateiktas kodas atliks darbą už mus.
Kodas:
Mėnesio_pavyzdys3 () Dimensija k tol, kol k = nuo 2 iki 12 langelių (k, 3). Vertė = mėnuo (langeliai (k, 2). Vertė) Kitas k pabaiga Sub
Šis kodas padarys tai, kad jis pereis nuo 2 iki 12 eilučių ir išgaus mėnesio numerį iš antrojo stulpelio ir išsaugos rezultatą trečiame stulpelyje.
Ką čia reikia atsiminti
- MONTH yra darbalapio funkcija, taip pat VBA funkcija.
- MONTH reikalauja teisingos datos nuorodos kitaip, gausime klaidos pranešimą.
- Jei mėnesio skaičius yra 12, tai bus klaidos pranešimas.
