Hari Kerja VBA

Fungsi Hari Kerja VBA Excel

Hari kerja di VBA adalah fungsi tanggal dan waktu yang dapat digunakan seseorang untuk mengidentifikasi hari kerja dari tanggal tertentu yang diberikan sebagai input. Fungsi ini mengembalikan nilai integer dari rentang 1 hingga 7. Argumen opsional disediakan untuk fungsi ini, yang merupakan hari pertama dalam seminggu. Namun, jika kita tidak menyediakan hari pertama dalam seminggu, fungsi akan menganggap hari Minggu sebagai hari pertama dalam seminggu secara default.

Bisakah kita mengetahui nomor hari kerja dengan melihat tanggal tertentu? Ya, kami dapat memberi tahu nomor hari dalam minggu itu, tergantung pada hari awal minggu itu. Dalam fungsi lembar kerja biasa, kami memiliki fungsi bernama WEEKDAY di excel untuk memberi tahu nomor minggu untuk tanggal tertentu. Di VBA juga, kami memiliki fungsi yang sama untuk menemukan hal yang sama.

Anda bebas menggunakan gambar ini di situs web Anda, templat, dll., Harap berikan kami tautan atribusiBagaimana Memberikan Atribusi? Tautan Artikel menjadi Hyperlink
Misalnya: Sumber: Hari Kerja VBA (wallstreetmojo.com)

Apa yang dilakukan Fungsi Hari Kerja?

Fungsi Weekday mengembalikan nomor hari tanggal yang disediakan dalam seminggu. Jadi, misalnya, jika Anda memiliki tanggal 01 April hingga 07 April dan jika Anda ingin mengetahui hari dari tanggal 05 April jika hari awal dalam seminggu adalah dari Senin, itu adalah hari ke-5.

Untuk menemukannya, kami memiliki fungsi yang sama dengan “Hari Kerja” di lembar kerja dan VBA. Di bawah ini adalah sintaks dari fungsi tersebut.

Tanggal: Untuk tanggal berapa kita mencoba menemukan hari kerja? Ini harus menjadi tanggal yang tepat dengan format yang benar.

[Hari Pertama dalam Seminggu]: Untuk menentukan hari kerja dari Tanggal yang disediakan , kita perlu menyebutkan hari pertama dalam seminggu. Secara default, VBA menganggap “Senin” sebagai hari awal dalam seminggu. Selain itu, kami juga dapat menyediakan hari-hari di bawah ini.

Contoh

Contoh 1

Untuk memulai prosesnya, izinkan saya memulai dengan contoh sederhana terlebih dahulu. Sekarang kita akan mencoba mencari hari kerja untuk tanggal “10-April-2019”.

Langkah 1: Tentukan variabel sebagai String

Kode:

Sub Weekday_Example1() Dim k As String End Sub

Langkah 2: Tetapkan nilai ke variabel

Tetapkan nilai ke variabel “k” dengan menerapkan fungsi WEEKDAY.

Kode:

Sub Hari Kerja_ Contoh1() Dim k Sebagai String k = Hari Kerja( Akhir Sub

Langkah 3: Masukkan Tanggal di Fungsi

Tanggal yang kami uji di sini adalah “10-Apr-2019”, jadi berikan tanggal sebagai “10-Apr-2019”.

Kode:

Sub Weekday_Example1() Dim k As String k = Weekday(“10-Apr-2019” End Sub

Langkah 4: Tampilkan Nilai Variabel di MsgBox

Secara default, dibutuhkan hari pertama dalam seminggu sebagai “Senin”, jadi abaikan bagian ini. Tutup braket. Baris berikutnya menunjukkan nilai variabel “k” di kotak pesan VBAKotak Pesan VBAFungsi VBA MsgBox adalah fungsi keluaran yang menampilkan pesan umum yang disediakan oleh pengembang. Pernyataan ini tidak memiliki argumen dan pesan yang dipersonalisasi dalam fungsi ini ditulis di bawah tanda kutip ganda sedangkan untuk nilai referensi variabel disediakan.baca lebih lanjut.

Kode:

Sub Weekday_Example1() Dim k As String k = Weekday(“10-Apr-2019”) MsgBox k End Sub

Kami telah menyelesaikannya sekarang.

Jika kita menjalankan kode tersebut, kita akan mendapatkan hasil sebagai “4” karena mulai dari hari Minggu, tanggal yang diberikan (10-Apr-2019) jatuh pada hari ke-4 dalam seminggu.

Catatan: Hari awal sistem saya dalam seminggu adalah ‘Minggu’.

Demikian pula, jika Anda mengubah hari awal dalam seminggu, itu tetap bervariasi. Di bawah ini adalah contoh baris untuk hal yang sama.

Kode:

k = Weekday(“10-Apr-2019”, vbMonday) ‘Ini mengembalikan 3 k = Weekday(“10-Apr-2019”, vbTuesday) ‘Ini mengembalikan 2 k = Weekday(“10-Apr-2019”, vbWednesday) ‘Ini mengembalikan 1 k = Hari Kerja(“10-Apr-2019”, vbThursday) ‘Ini mengembalikan 7 k = Hari Kerja(“10-Apr-2019”, vbFriday) ‘Ini mengembalikan 6 k = Hari Kerja(“10-Apr-2019 “, vbSaturday) ‘Ini mengembalikan 5 k = Weekday(“10-Apr-2019”, vbSunday) ‘Ini mengembalikan 4

Contoh #2 – Tiba Apakah Tanggal di Akhir Pekan atau Tidak

Asumsikan Anda memiliki kencan seperti di bawah ini. Anda ingin menemukan tanggal akhir pekan depan. Kemudian, kita dapat menggunakan fungsi WEEKDAY untuk mendapatkan hasilnya.

Kita perlu menggunakan WEEKDAY dengan kondisi IF dan loop untuk mendapatkan hasilnya. Kami telah menulis kode untuk Anda gunakan baris demi baris untuk mendapatkan logikanya.

Kode:

Sub Weekend_Dates() Dim k Sebagai Integer Untuk k = 2 Sampai 9 If Hari Kerja(Sel(k, 1).Nilai, vbMonday) = 1 Maka Sel(k, 2).Nilai = Sel(k, 1) + 5 ElseJika Hari Kerja (Sel(k, 1).Nilai, vbMonday) = 2 Kemudian Sel(k, 2).Nilai = Sel(k, 1) + 4 ElseIf Hari Kerja(Sel(k, 1).Nilai, vbSenin) = 3 Kemudian Sel (k, 2).Nilai = Sel(k, 1) + 3 ElseIf Hari Kerja(Sel(k, 1).Nilai, vbMonday) = 4 Maka Sel(k, 2).Nilai = Sel(k, 1) + 2 ElseIf Hari Kerja(Cells(k, 1).Value, vbMonday) = 5 Kemudian Cells(k, 2).Value = Cells(k, 1) + 1 Else Cells(k, 2).Value = “Ini sebenarnya akhir pekan Tanggal” Akhir Jika Berikutnya k Akhir Sub

Itu akan sampai pada hasil di bawah ini.

Lihatlah sel B6 dan B7. Kami mendapat hasil sebagai “Ini sebenarnya tanggal akhir pekan” karena tanggal “04-Mei-2019” dan “06-Apr-2019” adalah tanggal akhir pekan, jadi tidak perlu menunjukkan tanggal akhir pekan untuk tanggal akhir pekan. Secara default, kami mendapatkan hasil seperti ini.

Artikel yang Direkomendasikan

Artikel ini telah menjadi panduan untuk Hari Kerja VBA. Di sini, kita belajar cara menggunakan fungsi VBA Weekday untuk mendapatkan hari terakhir dalam seminggu dengan contoh dan template Excel yang dapat diunduh. Di bawah ini adalah beberapa artikel Excel berguna yang terkait dengan VBA: –