Cara menggunakan fungsi workday di vba (dengan contoh)


Anda dapat menggunakan metode WorkDay di VBA untuk menambah atau mengurangi jumlah hari kerja tertentu dari suatu tanggal.

Berikut adalah cara umum untuk menggunakan metode ini dalam praktik:

 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

Makro khusus ini menambahkan jumlah hari kerja yang ditentukan dalam rentang B2:B10 ke setiap tanggal dalam rentang A2:A10 dan menampilkan hasilnya dalam rentang C2:C10 .

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Cara menggunakan fungsi WorkDay di VBA

Katakanlah kita memiliki kolom tanggal di Excel serta kolom lain yang menentukan jumlah hari kerja yang akan ditambahkan ke setiap tanggal:

Kita bisa membuat makro berikut untuk menambahkan jumlah hari kerja di kolom B ke setiap tanggal terkait di kolom A:

 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

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Secara default, kolom C menampilkan tanggal sebagai nomor seri.

Untuk menampilkan nilai-nilai ini sebagai tanggal yang dapat dikenali, sorot rentang C2:C10 , lalu klik tab Sisipkan di sepanjang pita atas, lalu klik menu tarik-turun Format Angka dan klik Tanggal Singkat :

Setiap nomor seri sekarang akan ditampilkan sebagai tanggal:

Kolom C menampilkan setiap tanggal di kolom A dengan penambahan jumlah hari kerja tertentu di kolom B.

Perhatikan bahwa jika kita menentukan angka negatif di kolom B, metode Hari Kerja akan mengurangi jumlah hari kerja tersebut dari tanggal di kolom A.

Catatan : Anda dapat menemukan dokumentasi lengkap untuk metode VBA WorkDay di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara mendapatkan nama bulan dari tanggal
VBA: Cara mengurutkan berdasarkan tanggal
VBA: Bagaimana cara menambahkan if di antara dua tanggal

Tambahkan komentar

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *