Excel VBA Ayı
VBA Ay İşlevi , bir tarihten ay almak için kullanılan yerleşik bir işlevdir ve bu işlev tarafından döndürülen çıktı, 1'den 12'ye kadar değişen bir tam sayıdır. Bu işlev, yalnızca sağlanan tarih değerinden ay numarasını çıkarır.
Örneğin tarih 28-Mayıs-2019 ise, bu tarihten ay numarasını çıkarmak için AY fonksiyonunu kullanabiliriz.
VBA'da Ay İşlevi Nasıl Kullanılır?
MONTH işlevinin söz dizimi aşağıdadır.
Sadece ay numarasını çıkarmaya çalıştığımız tarihi sağlamamız gerekiyor.
Örnek 1
Tarihten ay numarasını çıkarmak için nasıl kod yazacağımızı göreceğiz. Biz, “10 olarak tarih alacaktır inci Eki 2019".
Adım 1: Makro prosedürünü başlatın.
Kod:
Alt Ay_Örnek1 () Son Alt
Adım 2: Tarih değerini tutacak değişkeni tanımlayın. Veri değerini sakladığımız için veri tipimiz "Tarih" olmalıdır. Bu yüzden değişkeni tanımlayın ve veri tipini "Tarih" olarak belirtilen değişkene atayın.
Kod:
Alt Ay_Örnek1 () Dim DDate As Date End Sub
3. Adım: Bu değişkeni için 10 tarih değeri atamak inci Eki 2019.
Kod:
Sub Month_Example1 () Dim DDate As Date DDate = "10 Oct 2019" End Sub
4. Adım: Şimdi, bir değişkeni daha "Tamsayı" olarak bildirmek için ay numarasını atayın.
Kod:
Sub Month_Example1 () Dim DDate As Date Dim MonthNum As Integer DDate = "10 Oct 2019" End Sub
Adım 5: Bu değişken için MONTH fonksiyonunu açacağız.
Kod:
Sub Month_Example1 () Dim DDate As Date Dim MonthNum As Integer DDate = "10 Oct 2019" MonthNum = Ay (Son Alt
Adım 6: Ay numarasını çıkarmak için verilmesi gereken "Tarihi" soran Ay işlevi. Hedeflenen tarihi "DDate" değişkenine zaten kaydetmiş olduğumuz için, bu değişkeni ay işlevi için girdi parametresi olarak sağlayın.
Kod:
Sub Month_Example1 () Dim DDate As Date Dim MonthNum As Integer DDate = "10 Oct 2019" MonthNum = Month (DDate) End Sub
Adım 7: Şimdi "Ay" işlevi, verilen tarihten ay numarasını "MonthNum" değişkenine döndürecek ve son olarak sonucu VBA'da bir mesaj kutusunda gösterecektir.
Kod:
Sub Month_Example1 () Dim DDate As Date Dim MonthNum As Integer DDate = "10 Oct 2019" MonthNum = Month (DDate) MsgBox MonthNum End Sub
Kodu çalıştırın ve mesaj kutusunda ay numarasını görün.
Çıktı:
Yani, verilen tarihten itibaren ay numarası 10'dur, yani Ekim ayı.
Örnek 2
Şimdi kodlama için hücre referanslarını alacağız. Aşağıda, çalışma sayfasındaki tarihimiz var.
Yani A2 hücresinden tarih değerinden ay numarasını B2 hücresine çıkarmamız gerekir.
Kod:
Alt Ay_Örnek2 () Aralık ("B2"). Değer = Son Alt
AY işlevini açın ve tarihi ARALIK A2 değeri olarak girin.
Kod:
Alt Ay_Örnek2 () Aralık ("B2"). Değer = Ay (Aralık ("A2")) Son Alt
Aralık A2 hücresini vermemizin nedeni, çünkü bu sefer tarihimiz A2 hücresinde, dolayısıyla aynı referans olacaktır.
Şimdi kodu yürütün ve ay numarasını B2 hücresindeki tarihten alın.
İşte burada, B2 hücresindeki ay numarasını aldık.
Örnek 3
Tek hücreli tarih için ayı çıkardık, ancak aşağıdaki gibi birden çok veri satırımız varsa ne olur?
Bu durumlarda, hücreler arasında döngü yapmamız ve her bir ilgili tarihten ay numarasını çıkarma görevini yürütmemiz gerekir.
Aşağıdaki kod işi bizim için yapacak.
Kod:
Alt Ay_Örnek3 () Dim k As Long For k = 2 ila 12 Hücre (k, 3) .Değer = Ay (Hücreler (k, 2) .Değer) Sonraki k Son Alt
Bu kodun yapacağı şey, 2'den 12'ye kadar olan satırlar arasında döngü oluşturacak ve ikinci sütundan ay numarasını çıkaracak ve sonucu üçüncü sütunda depolayacak.
Burada Hatırlanması Gereken Şeyler
- MONTH, bir çalışma sayfası işlevinin yanı sıra bir VBA işlevidir.
- MONTH geçerli bir tarih referansı gerektirir, aksi takdirde bir hata mesajı alırız.
- Ay sayısı 12 ise bir hata mesajı verecektir.
