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

Anda dapat menggunakan fungsi DateSerial() di VBA dengan nilai 1 untuk argumen hari guna menemukan hari pertama setiap bulan untuk suatu tanggal di sel tertentu.

Misalnya, Anda bisa menggunakan sintaks berikut untuk menemukan hari pertama setiap bulan 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)

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

Contoh berikut menunjukkan cara menggunakan fungsi ini dalam praktiknya.

Contoh: Gunakan VBA untuk Menemukan Hari Pertama Setiap Bulan

Misalkan 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 pertama setiap bulan untuk setiap tanggal di kolom A dan mengembalikan tanggal di sel terkait 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)
Next i

End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Masing-masing tanggal di kolom C mewakili hari pertama 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