Bulan Excel VBA
Fungsi Bulan VBA adalah fungsi terbina dalam yang digunakan untuk mendapatkan bulan dari tarikh dan output yang dikembalikan oleh fungsi ini adalah bilangan bulat antara 1 hingga 12. Fungsi ini hanya mengekstrak nombor bulan dari nilai tarikh yang dibekalkan.
Sebagai contoh, jika tarikhnya adalah 28-Mei-2019 maka untuk mengekstrak nombor bulan dari tarikh ini, kita boleh menggunakan fungsi BULAN.
Bagaimana Menggunakan Fungsi Bulan di VBA?
Berikut adalah sintaks fungsi BULAN.
Kita hanya perlu memberikan tarikh dari mana kita berusaha mengekstrak nombor bulan.
Anda boleh memuat turun Templat Excel Bulan VBA ini di sini - Templat Excel Bulan VBAContoh # 1
Kami akan melihat cara menulis kod untuk mengekstrak nombor bulan dari tarikh. Kami akan mengambil tarikh sebagai “10 Okt 2019 ″.
Langkah 1: Mulakan prosedur makro.
Kod:
Sub Bulan_Contoh1 () Akhir Sub
Langkah 2: Tentukan pemboleh ubah untuk mengekalkan nilai tarikh. Oleh kerana kami menyimpan nilai data, jenis data kami harus "Tarikh". Oleh itu, nyatakan pemboleh ubah dan tetapkan jenis data sebagai "Tarikh" kepada pemboleh ubah yang dinyatakan.
Kod:
Sub Bulan_Contoh1 () Dim DDate Sebagai Tarikh Akhir Sub
Langkah 3: Untuk pemboleh ubah ini tetapkan nilai tarikh 10 Oktober 2019.
Kod:
Sub Bulan_Contoh1 () Dim DDate Tarikh Tarikh Tarikh = "10 Okt 2019" Akhir Sub
Langkah 4: Sekarang tetapkan nombor bulan untuk menyatakan satu lagi pemboleh ubah sebagai "Integer".
Kod:
Sub Bulan_Contoh1 () Dim DDate Tarikh Tarikh Dim BulanNum As Integer DDate = "10 Oct 2019" End Sub
Langkah 5: Untuk pemboleh ubah ini, kita akan membuka fungsi BULAN.
Kod:
Sub Bulan_Contoh1 () Dim DDate Tarikh Tarikh Dim BulanNum Sebagai Integer DDate = "10 Okt 2019" MonthNum = Bulan (End Sub
Langkah 6: Fungsi bulan meminta "Tarikh" yang perlu disediakan untuk mengekstrak nombor bulan. Oleh kerana kita sudah menyimpan tarikh yang disasarkan kepada pemboleh ubah "DDate" berikan pemboleh ubah ini sebagai parameter input untuk fungsi bulan.
Kod:
Sub Bulan_Contoh1 () Dim DDate Tarikh Tarikh Dim BulanNum Sebagai Integer DDate = "10 Okt 2019" MonthNum = Bulan (DDate) End Sub
Langkah 7: Sekarang fungsi "Bulan" akan mengembalikan nombor bulan dari tarikh yang dibekalkan ke pemboleh ubah "MonthNum" dan akhirnya menunjukkan hasilnya dalam kotak mesej di VBA.
Kod:
Sub Bulan_Contoh1 () Dim DDate Seperti Tarikh Dim BulanNum Sebagai Integer DDate = "10 Oct 2019" MonthNum = Month (DDate) MsgBox MonthNum End Sub
Jalankan kod dan lihat nombor bulan di kotak mesej.
Pengeluaran:
Jadi, nombor bulan dari tarikh yang dibekalkan adalah 10 iaitu bulan Oktober.
Contoh # 2
Sekarang kita akan mengambil rujukan sel untuk pengekodan. Berikut adalah tarikh yang terdapat dalam lembaran kerja.
Jadi dari nilai tarikh sel A2, kita perlu mengekstrak nombor bulan ke sel B2.
Kod:
Sub Bulan_Contoh2 () Julat ("B2"). Nilai = Sub Akhir
Buka fungsi BULAN dan berikan tarikh sebagai nilai RANGE A2.
Kod:
Sub Bulan_Contoh2 () Julat ("B2"). Nilai = Bulan (Julat ("A2")) Sub Akhir
Sebab mengapa kami membekalkan sel Range A2 kerana kali ini tarikh kami berada di sel A2, jadi perkara yang sama akan menjadi rujukan.
Sekarang jalankan kod dan dapatkan nombor bulan dari tarikh di sel B2.
Ini dia kami mendapat nombor bulan di sel B2.
Contoh # 3
Kami telah mengekstrak bulan untuk tarikh sel tunggal tetapi bagaimana jika kita mempunyai beberapa baris data seperti yang berikut.
Dalam kes-kes ini, kita perlu mencari sel-sel dan melaksanakan tugas mengekstrak nombor bulan dari setiap tarikh masing-masing.
Kod di bawah akan berfungsi untuk kita.
Kod:
Sub Bulan_Contoh3 () Dim k Selagi k = 2 Hingga 12 Sel (k, 3). Nilai = Bulan (Sel (k, 2). Nilai) Seterusnya k Akhir Sub
Apa yang akan dilakukan oleh kod ini ialah melancarkan baris dari 2 hingga 12 dan mengeluarkan nombor bulan dari lajur kedua dan menyimpan hasilnya di lajur ketiga.
Perkara yang Perlu Diingat di sini
- BULAN adalah fungsi lembaran kerja dan juga fungsi VBA.
- BULAN memerlukan rujukan tarikh yang sah, jika tidak, kita akan mendapat mesej ralat.
- Sekiranya nombor bulan adalah 12 maka ia akan membuang mesej kesalahan.