Vba: tarihten ay ve yıl nasıl alınır?

Bir tarihten ay ve yılı almak için VBA’daki NumberFormat özelliğini kullanabilirsiniz.

Bu özelliği pratikte kullanmanın yaygın bir yolu aşağıda verilmiştir:

 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

Bu özel makro, A2:A11 aralığındaki her tarihin ayını ve yılını bulur ve bu değerleri C2:C11 aralığındaki karşılık gelen hücrelerde görüntüler.

Aşağıdaki örnek, bu sözdiziminin pratikte nasıl kullanılacağını gösterir.

Örnek: VBA’da bu güne gün ekleme

Bir şirketin farklı tarihlerde yaptığı satışlara ilişkin bilgileri içeren Excel’de aşağıdaki veri setine sahip olduğumuzu varsayalım:

Tarih sütunundaki her hücre için ayı ve yılı almak istediğimizi varsayalım.

Bunun için aşağıdaki makroyu oluşturabiliriz:

 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

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

C sütununun, A sütununda karşılık gelen her tarihin ayını ve yılını içerdiğini unutmayın.

Tarihleri aylar için iki basamaklı ve yıllar için dört basamaklı olarak biçimlendirmek için NumberFormat özelliğini kullandığımızı unutmayın.

İsteseydik bu değerleri farklı bir formatta göstermeyi tercih edebilirdik.

Örneğin, ayı tek rakamla (ay yalnızca bir rakam içeriyorsa) ve yılı iki rakamla görüntülemek için aşağıdaki sözdizimini kullanabiliriz:

 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

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

Ay ve yıl değerlerini dilediğiniz gibi görüntülemek için farklı biçimlendirme seçenekleriyle oynamaktan çekinmeyin.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA’da tarihler nasıl karşılaştırılır
VBA’da dizeyi tarihe dönüştürme
VBA’da iki tarih arasındaki günler nasıl hesaplanır