Fungsi Bulan VBA

Bulan VBA Excel

Fungsi Bulan VBA adalah fungsi bawaan yang digunakan untuk mendapatkan bulan dari tanggal. Output yang dikembalikan oleh fungsi ini adalah Integer mulai dari 1 sampai 12. Fungsi ini hanya mengekstrak nomor bulan dari nilai tanggal yang diberikan.

Misalnya, jika tanggalnya adalah 28-Mei-2019, maka untuk mengekstrak angka bulan dari tanggal tersebut, kita dapat menggunakan fungsi MONTH.

Anda bebas menggunakan gambar ini di situs web Anda, templat, dll., Harap berikan kami tautan atribusiBagaimana Memberikan Atribusi? Tautan Artikel untuk Di-Hyperlink
Misalnya:Sumber : Fungsi Bulan VBA (wallstreetmojo.com)

Bagaimana Cara Menggunakan Fungsi Bulan di VBA?

Di bawah ini adalah sintaks dari fungsi MONTH.

Kami perlu memberikan tanggal dari mana kami mencoba mengekstrak nomor bulan.

Contoh 1

Kami akan melihat cara menulis kode untuk mengekstrak nomor bulan dari tanggal. Kami akan mengambil tanggal sebagai ’10 Oktober ^2019.″

Langkah 1: Mulai prosedur makro.

Kode:

Sub Month_Example1() Akhir Sub

Langkah 2: Tentukan variabel untuk menampung nilai tanggal. Karena kita menyimpan nilai data, tipe data kita harus ‘Tanggal’. Jadi nyatakan variabel dan tetapkan tipe data sebagai ‘Tanggal’ ke variabel yang dideklarasikan.

Kode:

Sub Month_Example1() Dim DDTanggal Sebagai Tanggal Akhir Sub

Langkah 3: Untuk variabel ini, tetapkan nilai tanggal 10 Okt 2019 ^.

Kode:

Sub Month_Example1() Dim DDTanggal Sebagai Tanggal DDTanggal = “10 Okt 2019” Akhir Sub

Langkah 4: Sekarang tetapkan nomor bulan untuk mendeklarasikan satu variabel lagi sebagai ‘Bilangan Bulat’.

Kode:

Sub Month_Example1() Dim DDTanggal Sebagai Tanggal Dim MonthNum Sebagai Integer DDTanggal = “10 Okt 2019” End Sub

Catatan: Kami telah mendeklarasikan variabel Integer karena hitungan bulan kami hanya berakhir pada 12. Jadi, tipe data integer dapat menampung angka ini.

Langkah 5: Untuk variabel ini, kita akan membuka fungsi MONTH.

Kode:

Sub Month_Example1() Dim DDTanggal Sebagai Tanggal Dim MonthNum Sebagai Integer DDTanggal = “10 Okt 2019” MonthNum = Bulan( End Sub

Langkah 6: Fungsi Bulan meminta ‘Tanggal’ yang harus kita berikan 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() Dim DDTanggal Sebagai Tanggal Dim MonthNum Sebagai Integer DDTanggal = “10 Okt 2019” MonthNum = Bulan(DDTanggal) Akhir Sub

Langkah 7: Sekarang, fungsi ‘Bulan’ akan mengembalikan nomor bulan dari tanggal yang disediakan ke variabel ‘BulanBulan’ dan akhirnya menunjukkan hasilnya di kotak pesan di VBA.

Kode:

Sub Month_Example1() Dim DDTanggal Sebagai Tanggal Dim MonthNum Sebagai Integer DDTanggal = “10 Okt 2019” MonthNum = Bulan(DDTanggal) MsgBox MonthNum End Sub

Jalankan kode dan lihat nomor bulan di kotak pesan.

Keluaran:

Jadi, angka bulan dari tanggal yang diberikan adalah 10, yaitu Oktober.

Contoh #2

Sekarang, kita akan mengambil referensi selReferensi SelReferensi sel di excel merujuk sel lain ke sel untuk menggunakan nilai atau propertinya. Misalnya, jika kita memiliki data di sel A2 dan ingin menggunakannya di sel A1, gunakan =A2 di sel A1, dan ini akan menyalin nilai A2 di A1.baca selengkapnya untuk pengkodean. Di bawah ini adalah tanggal yang kami miliki di lembar kerja.

Jadi, dari nilai tanggal sel A2, kita perlu mengekstrak nomor bulan dari sel B2.

Kode:

Sub Month_Example2() Range(“B2”).Value = End Sub

Buka fungsi MONTH dan berikan tanggal sebagai nilai RANGE A2.

Kode:

Sub Month_Example2() Range(“B2”).Value = Bulan(Range(“A2”)) End Sub

Kami telah menyediakan sel Rentang A2 karena saat ini tanggal kami ada di sel A2, jadi referensinya akan sama.

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 mengekstraksi bulan untuk tanggal sel tunggal, tetapi bagaimana jika kami memiliki beberapa baris data seperti di bawah ini?

Dalam kasus ini, kita perlu mengulang 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 Selama k = 2 Sampai 12 Cells(k, 3).Value = Month(Cells(k, 2).Value) Next k Akhir Sub

Apa yang akan dilakukan kode ini adalah mengulang baris dari 2 hingga 12 dan mengekstrak nomor bulan dari kolom kedua dan menyimpan hasilnya di kolom ketiga.

Hal yang Perlu Diingat di sini

Fungsi MONTH adalah fungsi lembar kerja dan fungsi VBA Fungsi VBA Fungsi VBA melayani tujuan utama untuk melakukan perhitungan tertentu dan mengembalikan nilai. Oleh karena itu, di VBA, kami menggunakan sintaks untuk menentukan parameter dan tipe data saat mendefinisikan fungsi. Fungsi semacam itu disebut fungsi yang ditentukan pengguna.Baca lebih lanjut.
Fungsi MONTH membutuhkan referensi tanggal yang valid. Jika tidak, kita akan mendapatkan pesan kesalahan.
Jika angka bulan <1 dan >12, maka akan muncul pesan error.

Artikel yang Direkomendasikan

Artikel ini telah menjadi panduan untuk Bulan VBA. Di sini, kita membahas penggunaan fungsi bulan VBA untuk mengekstrak nomor bulan dari tanggal yang diberikan, beserta contoh dan template Excel yang dapat diunduh. Di bawah ini Anda dapat menemukan beberapa artikel Excel VBA yang berguna: –