„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 norėdami išskirti mėnesio skaičių 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ų.
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:
Antrinis mėnuo_pavyzdys1 () Pabaigos antrinis
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_pavyzdys1 () Dim DDate kaip datos pabaiga
3 žingsnis: Šiam kintamajam priskirkite 2019 m. Spalio 10 d. Reikšmę.
Kodas:
Mėnesio antrasis_pavyzdys1 () DIM 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ėn.
7 žingsnis: Dabar funkcija „Mėnuo“ grąžins mėnesio skaičių nuo pateiktos datos iki kintamojo „MonthNum“ ir galiausiai parodys rezultatą VBA pranešimų laukelyje.
Kodas:
Antrasis mėnesio_pavyzdys1 () DIM data kaip data Dim MonthNum As Integer DDate = "2019 m. Spalio 10 d." MonthNum = mėnuo (DDate) MsgBox MonthNum End Sub
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:
Antrasis 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 nuoroda bus.
Dabar vykdykite kodą ir gaukite mėnesio numerį nuo datos langelyje B2.
Štai, mes gavome mėnesio skaičių langelyje B2.
3 pavyzdys
Išskyrėme vienos langelio datos mėnesį, bet kas, jei turime kelias duomenų eilutes, tokias kaip žemiau.
Tokiais atvejais turime pereiti per 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ų, iš antrojo stulpelio išskirs mėnesio numerį ir išsaugos rezultatą trečiame stulpelyje.
Ką čia reikia atsiminti
- MĖNESIS yra darbalapio funkcija, taip pat VBA funkcija.
- MONTH reikalauja teisingos datos nuorodos kitaip, gausime klaidos pranešimą.
- Jei mėnesio skaičius yra 12, tada bus rodomas klaidos pranešimas.
