Vba'da workday i̇şlevi nasıl kullanılır (örnekle)

Bir tarihe belirli sayıda iş günü eklemek veya çıkarmak için VBA’da WorkDay yöntemini kullanabilirsiniz.

Bu yöntemi pratikte kullanmanın yaygın bir yolu:

 SubAddWorkDays ()

Dim i As Integer

For i = 2 To 10
    Range("C" & i) = WorksheetFunction.WorkDay(Range("A" & i), Range("B" & i))
Next i

End Sub

Bu özel makro, B2:B10 aralığında belirtilen iş günü sayısını A2:A10 aralığındaki her tarihe ekler ve sonuçları C2:C10 aralığında görüntüler.

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

Örnek: VBA’da WorkDay işlevi nasıl kullanılır?

Diyelim ki Excel’de bir tarih sütunumuz ve her tarihe eklenecek iş günü sayısını belirten başka bir sütunumuz var:

B sütunundaki iş günü sayısını, A sütununda karşılık gelen her bir tarihe eklemek için aşağıdaki makroyu oluşturabiliriz:

 SubAddWorkDays ()

Dim i As Integer

For i = 2 To 10
    Range("C" & i) = WorksheetFunction.WorkDay(Range("A" & i), Range("B" & i))
Next i

End Sub

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

Varsayılan olarak, C sütunu tarihleri seri numaraları olarak görüntüler.

Bu değerleri tanınabilir tarihler olarak görüntülemek için C2:C10 aralığını vurgulayın, ardından üst şeritteki Ekle sekmesine tıklayın, ardından Sayı Biçimi açılır menüsüne tıklayın ve Kısa Tarih’e tıklayın:

Artık her seri numarası tarih olarak görüntülenecektir:

C sütunu, A sütunundaki her tarihi, B sütununa eklenen belirli iş günü sayısıyla birlikte görüntüler.

B sütununda negatif bir sayı belirtirsek WorkDay yönteminin bu iş günü sayısını A sütunundaki tarihten çıkaracağını unutmayın.

Not : VBA WorkDay yöntemine ilişkin tüm belgeleri burada bulabilirsiniz.

Ek kaynaklar

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

VBA: Tarihten ay adı nasıl alınır
VBA: Tarihe göre nasıl sıralanır
VBA: İki tarih arasında ise nasıl eklenir