Bulan VBA Excel
Fungsi Bulan VBA adalah fungsi bawaan yang digunakan untuk mendapatkan bulan dari tanggal dan keluaran yang dikembalikan oleh fungsi ini adalah bilangan bulat mulai dari 1 hingga 12. Fungsi ini hanya mengekstrak nomor bulan dari nilai tanggal yang disediakan.
Misal tanggal 28-Mei-2019, maka untuk mengekstrak nomor bulan dari tanggal ini, kita dapat menggunakan fungsi MONTH.
Bagaimana Cara Menggunakan Fungsi Bulan di VBA?
Di bawah ini adalah sintaks dari fungsi MONTH.
Kami hanya perlu memberikan tanggal mulai kami mencoba mengekstrak nomor bulan.
Contoh 1
Kita akan melihat bagaimana menulis kode untuk mengekstrak nomor bulan dari tanggal. Kami akan mengambil tanggal sebagai “10 th Oktober 2019".
Langkah 1: Mulai prosedur makro.
Kode:
Sub Month_Example1 () End Sub
Langkah 2: Tentukan variabel untuk menampung nilai tanggal. Karena kita menyimpan nilai data, tipe data kita harus "Tanggal". Jadi deklarasikan variabel dan tetapkan tipe datanya sebagai "Tanggal" ke variabel yang dideklarasikan.
Kode:
Sub Month_Example1 () Redupkan DDate As Date End Sub
Langkah 3: Untuk variabel ini, menetapkan nilai tanggal 10 th Oktober 2019.
Kode:
Sub Month_Example1 () Redupkan DDate As Date DDate = "10 Okt 2019" End Sub
Langkah 4: Sekarang tetapkan nomor bulan untuk mendeklarasikan satu variabel lagi sebagai "Integer".
Kode:
Sub Month_Example1 () Redup DDate As Tanggal Redup MonthNum As Integer DDate = "10 Okt 2019" End Sub
Langkah 5: Untuk variabel ini, kita akan membuka fungsi MONTH.
Kode:
Sub Month_Example1 () Redup DDate As Date Redup MonthNum As Integer DDate = "10 Okt 2019" MonthNum = Bulan (End Sub
Langkah 6: Fungsi bulan menanyakan "Tanggal" yang perlu disediakan untuk mengekstrak nomor bulan. Karena kita telah menyimpan tanggal yang ditargetkan ke variabel "DDate", berikan variabel ini sebagai parameter input untuk fungsi bulan.
Kode:
Sub Month_Example1 () Redup DDate As Date Redup MonthNum As Integer DDate = "10 Okt 2019" MonthNum = Month (DDate) End Sub
Langkah 7: Sekarang fungsi "Bulan" akan mengembalikan nomor bulan dari tanggal yang diberikan ke variabel "MonthNum" dan akhirnya menampilkan hasilnya di kotak pesan di VBA.
Kode:
Sub Month_Example1 () Redup DDate As Date Redup MonthNum As Integer DDate = "10 Okt 2019" MonthNum = Bulan (DDate) MsgBox MonthNum End Sub
Jalankan kode dan lihat nomor bulan di kotak pesan.
Keluaran:
Jadi, nomor bulan dari tanggal yang diberikan adalah 10, yaitu bulan Oktober.
Contoh # 2
Sekarang kita akan mengambil referensi sel untuk pengkodean. Di bawah ini adalah tanggal yang kami miliki di lembar kerja.
Jadi dari nilai tanggal sel A2, kita perlu mengekstrak nomor bulan ke sel B2.
Kode:
Sub Month_Example2 () Range ("B2"). Nilai = End Sub
Buka fungsi MONTH dan berikan tanggal sebagai nilai RANGE A2.
Kode:
Sub Month_Example2 () Range ("B2"). Nilai = Bulan (Rentang ("A2")) End Sub
Alasan mengapa kami menyediakan sel Range A2 karena saat ini, tanggal kami ada di sel A2, jadi yang sama akan menjadi referensi.
Sekarang jalankan kode dan dapatkan nomor bulan dari tanggal di sel B2.
Ini dia, kami mendapat nomor bulan di sel B2.
Contoh # 3
Kami telah mengekstrak bulan untuk tanggal sel tunggal, tetapi bagaimana jika kami memiliki beberapa baris data seperti di bawah ini.
Dalam kasus ini, kita perlu melakukan loop melalui sel dan menjalankan tugas mengekstraksi nomor bulan dari masing-masing tanggal.
Kode di bawah ini akan melakukan pekerjaan untuk kita.
Kode:
Sub Month_Example3 () Dim k As Long For k = 2 to 12 Cells (k, 3) .Value = Month (Cells (k, 2). Value) Next k End Sub
Apa yang akan dilakukan kode ini adalah akan mengulang melalui baris dari 2 hingga 12 dan mengekstrak nomor bulan dari kolom kedua dan menyimpan hasilnya di kolom ketiga.
Hal-hal yang Perlu Diingat di sini
- MONTH adalah fungsi lembar kerja, serta fungsi VBA.
- MONTH membutuhkan referensi tanggal yang valid jika tidak, kami akan mendapatkan pesan kesalahan.
- Jika nomor bulan adalah 12, maka itu akan memunculkan pesan kesalahan.
