Cara menggunakan fungsi hari kerja di vba (dengan contoh)

Anda dapat menggunakan fungsi Hari Kerja di VBA untuk mendapatkan hari dalam seminggu (sebagai bilangan bulat) dari tanggal tertentu.

Berikut cara umum untuk menggunakan fungsi ini dalam praktik:

 Sub FindWeekday()
    
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.Weekday(Range(" A " & i))
    Next i
    
End Sub

Makro khusus ini akan menemukan hari dalam seminggu (sebagai bilangan bulat) untuk setiap tanggal dalam rentang A2:A9 dan menampilkan hasilnya dalam rentang B2:B9 .

Perhatikan bahwa bilangan bulat berikut sesuai dengan setiap hari dalam seminggu:

• 1 : Minggu
• 2 : Senin
• 3 : Selasa
• 4 : Rabu
• 5 : Kamis
• 6 : Jumat
• 7 : Sabtu

Contoh berikut menunjukkan cara menggunakan fungsi Hari Kerja dalam praktiknya.

Catatan : Jika Anda memilih untuk mengembalikan hari dalam seminggu sebagai nama, Anda harus menggunakan fungsi WeekdayName sebagai gantinya.

Contoh: Gunakan fungsi Weekday di VBA untuk mencari hari dalam seminggu

Misalkan kita memiliki kolom tanggal berikut di Excel:

Misalkan kita ingin mendapatkan hari dalam seminggu (sebagai bilangan bulat) untuk setiap tanggal dan menampilkan hasilnya di kolom B.

Kita dapat membuat makro berikut untuk melakukan ini:

 Sub FindWeekday()
    
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.Weekday(Range(" A " & i))
    Next i
    
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Kolom B menampilkan hari dalam seminggu (sebagai bilangan bulat) untuk setiap tanggal di kolom A.

Misalnya:

• 1/1/2023 adalah hari Minggu, jadi fungsi Hari Kerja mengembalikan 1 .
• 1/4/2023 adalah hari Rabu, jadi fungsi Hari Kerja mengembalikan 4 .
• 23/02/2023 adalah hari Kamis, jadi fungsi Hari Kerja mengembalikan 5 .

Dan seterusnya.

Catatan : Anda dapat menemukan dokumentasi lengkap untuk fungsi VBA Weekday di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

Bagaimana membandingkan tanggal di VBA
Bagaimana mengkonversi nomor tanggal ke minggu di VBA
Cara menghitung hari antara dua tanggal di VBA