Vba: cara mendapatkan bulan dan tahun dari tanggal

Anda dapat menggunakan properti NumberFormat di VBA untuk mendapatkan bulan dan tahun dari suatu tanggal.

Berikut cara umum untuk menggunakan properti ini dalam praktik:

 SubGetMonthYear ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i).Value = DateValue(Range(" A " & i))
    Range(" C " & i).NumberFormat = " mm/yyyy "
Next i

End Sub

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

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Tambahkan hari ke hari ini 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 mendapatkan bulan dan tahun untuk setiap sel di kolom tanggal.

Kita dapat membuat makro berikut untuk melakukan ini:

 SubGetMonthYear ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i).Value = DateValue(Range(" A " & i))
    Range(" C " & i).NumberFormat = " mm/yyyy "
Next i

End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa kolom C berisi bulan dan tahun dari setiap tanggal yang bersesuaian di kolom A.

Perhatikan bahwa kami menggunakan properti NumberFormat untuk memformat tanggal dengan dua digit untuk bulan dan empat digit untuk tahun.

Kita dapat memilih untuk menampilkan nilai-nilai ini dalam format berbeda jika kita mau.

Misalnya, kita dapat menggunakan sintaks berikut untuk menampilkan bulan dengan satu digit (jika bulan hanya berisi satu digit) dan tahun dengan dua digit:

 SubGetMonthYear ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i).Value = DateValue(Range(" A " & i))
    Range(" C " & i).NumberFormat = " m/yy "
Next i

End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Jangan ragu untuk bermain-main dengan opsi pemformatan yang berbeda untuk menampilkan nilai bulan dan tahun sesuai keinginan.

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