Cara menemukan hari terakhir setiap bulan menggunakan vba (dengan contoh)

Anda dapat menggunakan fungsi DateSerial() di VBA dengan nilai 0 untuk argumen hari guna menemukan hari terakhir dalam sebulan untuk suatu tanggal di sel tertentu.

Misalnya, Anda bisa menggunakan sintaks berikut untuk menemukan hari terakhir bulan itu untuk tanggal di sel A1 dan mengembalikan tanggal tersebut di sel B1 :

 dateVal = DateValue(Range(" A1 "))

Range(" B1 ").Value = DateSerial(Year(dateVal), Month(dateVal)+1, 0)

Misalnya, jika sel A1 berisi 1/5/2023 , sel B1 akan mengembalikan 31/1/2023 .

Contoh berikut menunjukkan cara menggunakan fungsi ini dalam praktiknya.

Contoh: Menggunakan VBA untuk Menemukan Hari Terakhir dalam Bulan Ini

Katakanlah kita memiliki kumpulan data berikut di Excel yang berisi informasi tentang penjualan yang dilakukan pada tanggal berbeda di sebuah perusahaan:

Misalkan kita ingin mencari hari terakhir suatu bulan untuk setiap tanggal di kolom A dan mengembalikan tanggal di sel yang sesuai di kolom C.

Kita dapat menggunakan sintaks berikut untuk melakukan ini:

 SubFirstDayOfMonth ()

Dim i As Integer

For i = 2 To 11
    dateVal = DateValue(Range(" A " & i))
    Range(" C " & i).Value = DateSerial(Year(dateVal), Month(dateVal)+1, 0)
Next i

End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Masing-masing tanggal di kolom C mewakili hari terakhir bulan tersebut untuk tanggal yang bersangkutan di kolom A.

Catatan #1: Dalam kodenya, kami menggunakan For i = 2 hingga 11 karena sel A2 hingga A11 berisi tanggal yang kami minati. Jangan ragu untuk mengubah rentang ini tergantung pada rentang sel yang ingin Anda gunakan.

Catatan #2 : Anda dapat menemukan dokumentasi lengkap fungsi DateSerial() di VBA di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya menggunakan VBA:

Cara mengurutkan berdasarkan tanggal di VBA
Bagaimana cara menambahkan if antara dua tanggal di VBA
Cara menghitung lebih besar dari tanggal di VBA