Vba: cara mendapatkan nama bulan dari tanggal

Anda dapat menggunakan fungsi Nama Bulan di VBA untuk mendapatkan nama bulan dari suatu tanggal di Excel.

Berikut cara umum untuk menggunakan fungsi ini dalam praktik:

 SubGetMonthName ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i) = MonthName(Month(Range(" A " & i)))
Next i

End Sub

Makro khusus ini menemukan nama bulan untuk setiap tanggal dalam rentang A2:A11 dan menampilkan nama-nama ini di sel terkait dalam rentang C2:C11 .

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Cara mendapatkan nama bulan dari tanggal menggunakan 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 mendapatkan nama bulan untuk setiap sel di kolom Tanggal .

Kita dapat membuat makro berikut untuk melakukan ini:

 SubGetMonthName ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i)= MonthName(Month(Range(" A " & i)))
Next i

End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

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

Jika Anda ingin mengembalikan nama bulan yang disingkat, Anda dapat menggunakan argumen opsional True dalam fungsi Nama Bulan sebagai berikut:

 SubGetMonthName ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i)= MonthName(Month(Range(" A " & i)), True )
Next i

End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Kolom C sekarang berisi singkatan nama bulan untuk setiap tanggal yang cocok di kolom A.

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