Cara menggunakan eomonth di vba (dengan contoh)

Anda dapat menggunakan metode EoMonth di VBA untuk mengembalikan hari terakhir suatu bulan pada tanggal tertentu.

Berikut adalah cara umum untuk menggunakan metode ini dalam praktik:

 Sub LastDayOfMonth()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i).Value = Application.WorksheetFunction.EoMonth(Range(" A " & i), 0)
    Range(" C " & i).NumberFormat = " m/d/yyyy "
Next i

End Sub

Makro khusus ini menemukan hari terakhir dalam sebulan untuk setiap tanggal dalam rentang A2:A11 dan menampilkan tanggal tersebut di sel terkait dalam rentang C2:C11 .

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Cara menggunakan EoMonth di VBA

Misalkan kita memiliki kumpulan data berikut di Excel yang berisi informasi tentang penjualan yang dilakukan oleh suatu perusahaan pada tanggal berbeda:

Misalkan kita ingin mencari hari terakhir suatu bulan untuk setiap tanggal di kolom A dan menampilkannya di kolom C.

Kita dapat membuat makro berikut untuk melakukan ini:

 Sub LastDayOfMonth()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i).Value = Application.WorksheetFunction.EoMonth(Range(" A " & i), 0)
    Range(" C " & i).NumberFormat = " m/d/yyyy "
Next i

End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa kolom C berisi hari terakhir setiap bulan untuk setiap tanggal terkait di kolom A.

Perhatikan bahwa kami menggunakan properti NumberFormat untuk menampilkan nilai tanggal dalam format tanggal yang dapat dikenali di kolom C, bukan nomor seri, yang merupakan format default di Excel.

Perhatikan juga bahwa argumen terakhir metode EoMonth menentukan jumlah bulan ke depan atau ke belakang untuk digunakan saat menghitung hari terakhir pada bulan tersebut.

Dalam contoh ini, kami menggunakan nilai 0 untuk menentukan bahwa kami ingin mencari hari terakhir bulan ini.

Namun, kita bisa menggunakan nilai -1 untuk menentukan bahwa kita ingin mencari hari terakhir bulan sebelumnya atau nilai 1 untuk menentukan bahwa kita ingin mencari hari terakhir bulan berikutnya.

Catatan : Anda dapat menemukan dokumentasi lengkap metode EoMonth di VBA di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

Bagaimana membandingkan tanggal di VBA
Bagaimana mengkonversi string ke tanggal di VBA
Cara menghitung hari antara dua tanggal di VBA