Konversi Tanggal Menjadi Nama Hari

Halo sobat, di kesempatan ini mimin akan sharing contoh code macro untuk Konversi Tanggal Menjadi Nama Hari.  Tanpa VBA juga sebenarnya kita juga bisa mengkonversi tanggal menjadi nama hari dengan mudah dengan menggunakan formula maupun tehnik number formating.

Perlu diketahui bahwa semua proses yang dijalankan melalui macro juga bisa dijalankan secara manual melalui fitur-fitur di excel. Hanya saja macro menawarkan proses yang berkali lipat lebih cepat dan hasil yang konsisten. Pun pada proses konversi tanggal menjadi nama hari. Alih alih mengetikan formula atau number formating dan melalui beberapa langkah manual, macro menawarkan cara kerja yang lebih cepat dengan langkah minimal.

Baiklah langsung saja kita ke topik contoh Konversi Tanggal Jadi Nama Hari

Konversi Tanggal Menjadi Nama Hari Dalam Bahasa Inggris

Untuk mengubah tanggal menjadi nama hari di VBA bisa menggunakan fungsi Format. Akan tetapi fungsi ini memiliki kelemahan yaitu output yang dihasilkan berupa nama hari hanya dalam bahasa Inggris. Jika kamu memang bermaksud merubah tanggal menjadi nama hari dalam bahasa Inggris maka contoh code ini sudah cukup membantu:

Sub TanggalJadiDayName() Dim target As Range, sel As Range, dayName As String If Not TypeName(Selection) = "Range" Then MsgBox "Tidak bisa diproses, range yang anda pilih tidak valid", vbCritical Exit Sub End If Set target = Selection For Each sel In target If IsDate(sel) = True Then dayName = Format(sel.Value, "dddd") sel.Value = dayName End If Next End Sub

Cara menggunakan code:

• Copy code ke module vba standar dalam workbook kumpulan macro yang kamu miliki
• Pilih range sel yang disinyalir berisi data tanggal dan kamu ingin merubahnya menjadi nama hari
• Jalankan macro (Tab Developer ⇨ Macros ⇨ Pilih nama macro yang sesuai ⇨ Run

Konversi Tanggal Menjadi Nama Hari Dalam Bahasa Indonesia

Meskipun fungsi bawaan VBA tidak bisa merubah tanggal ke bahasa Indonesia, untungnya masih ada worksheet function TEXT yang bisa merubah tanggal ke nama hari dalam berbagai bahasa. 

Apakan yang dimaksud worksheet function?

Worksheet function merupakan fungsi-fungsi bawaan aplikasi Microsoft Excel yang biasa digunakan untuk membuat formula dalam worksheet (misal: SUM, IF, VLOOKUP, SUMIF, TEXT dan masih banyak lagi.

Worksheet function TEXT bisa dipanggil oleh code VBA sehingga bisa dijalankan dalam VBA.

Langsung saja dicopas contohnya ya:

Sub TanggalJadiNamaHari() Dim target As Range, sel As Range, namaHari As String If Not TypeName(Selection) = "Range" Then MsgBox "Tidak bisa diproses, range yang anda pilih tidak valid", vbCritical Exit Sub End If Set target = Selection For Each sel In target If IsDate(sel) = True Then namaHari = WorksheetFunction.Text(sel.Value, "[$-421]dddd") sel.Value = namaHari End If Next End Sub

Cara menggunakan contoh code yang ke-2 ini sama dengan contoh pertama yaitu: setelah code tersedia / dicopy paste ke module vba standar, maka kemudian seleksi range berisi data tanggal, lalu jalankan macro.

Itulan 2 contoh code macro yang bisa kamu gunakan untuk mengkonversi data tanggal menjadi nama hari. Contoh pertama mengkonversi tanggal menjadi nama hari dalam bahasa Inggris. Sedangkan contoh kedua mengkonversi tanggal menjadi nama hari dalam bahasa Indonesia.

***

Sobat... belajar VBA Excel akan lebih cepat dimengerti jika langsung mempraktekannya. Karena dengan mempratekannya kamu akan langsung mengetahui kegunaannya. Jika sudah tahu kegunaannya maka kamu akan lebih bersemangat lagi untuk mempelajarinya. 

Karena itulan blog ini menyediakan contoh-contoh code vba yang bisa langsung di copy-paste dan langsung digunakan. Silahkan telusuri Daftar Isi untuk mendapatkan contoh-contoh code macro lainnya.

Barangkali juga kamu tertarik dengan contoh berikut ini:

• Cek Validitas Hyperlink Internal
• Cara Cepat Menghapus Semua Gambar Sekaligus

Jika sobat ada saran, kritik atau koreksi, Mimin sangat berterimakasih jika sobat bisa menyampaikan feedbacknya di kolom komentar.

Salam...😎😎