Konversi Tanggal Menjadi Nama Bulan

Halo sobat, kali ini mimin akan berbagi contoh code macro vba untuk konversi tanggal menjadi nama bulan. Postingan ini masih terkait dengan pembahasan sebelumnya mengenai code macro untuk Konversi Tanggal Menjadi Nama Hari.  Seperti halnya nama hari, contoh code dibagi menjadi 2 bagian. Contoh pertama untuk merubah tanggal menjadi nama bulan dalam bahasa Inggris. Sedangkan contoh ke-2 untuk merubah tanggal mejadi nama bulan dalam bahasa Indonesia.

Baiklah langsung saja menuju TKP:

Konversi Tanggal Menjadi Nama Bulan Dalam Bahasa Inggris

Alur code vba untuk konversi tanggal menjadi nama bulan sama dengan alur code vba untuk merubah tanggal menjadi hari. Kita hanya perlu sedikit modifikasi pada kode format number. Format nama hari menggunakan kode "dddd", sedangkan format nama bulan menggunakan kode "mmmm" (nama bulan panjang) atau "mmm" (nama bulan pendek).

Baiklah langsung saja di copas code nya:

Sub TanggalJadiMonthName() Dim target As Range, sel As Range, MonthName 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 MonthName = Format(sel.Value, "mmmm") sel.Value = MonthName End If Next End Sub

Cara menggunakan code:

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

Konversi Tanggal Menjadi Nama Bulan Dalam Bahasa Indonesia

Untuk merubah tanggal menjadi nama bulan dalam bahasa Indonesia, kita bisa memanfaatkan worksheet function TEXT dan menggunakan code format number "[$-421]mmmm".   

Sekedar mengingat kembali, apa yang dimaksud dengan worksheet function?

Worksheet function merupakan fungsi-fungsi bawaan aplikasi Microsoft Excel yang biasa digunakan untuk membuat formula dalam worksheet (misal: SUM, AVERAGE, IF, SUMIF, COUNTIF VLOOKUP, TEXT dan fungsi-fungsi lainya yang tidak bisa disebutkan di sini satu per satu)

Worksheet function ini bisa dipanggil oleh code VBA sehingga bisa dijalankan via VBA.

Berikut contoh code macro. Sobat bisa copas dahulu sehingga bisa langsung mencoba dan mempraktikannya.

Sub TanggalJadiNamabulan() Dim target As Range, sel As Range, namabulan 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 namabulan = WorksheetFunction.Text(sel.Value, "[$-421]mmmm") sel.Value = namabulan End If Next

Langkah-langkah menggunakan code untuk merubah tanggal menjadi nama bulan sama: Setelah code tersedia / dicopy paste ke module vba standar, selanjutnya sobat pilih atau seleksi range berisi data tanggal. Terakhir jalankan macro-nya (Tab developer ⇨ Macros ⇨ Pili nama macro yang sesuai ⇨ klik Run.

Sampai di sini pembahasan contoh code macro vba untuk merubah data tanggal menjadi nama bulan. Semoga bisa bermanfaat buat sobat semua.

***

Jika sobat tertarik untuk mendapatkan contoh-contoh code macro siap pakai lainnya. Yuk.. kite telusuri konten blog ini satu persatu. Silahkan di klik tautan Daftar Isi.

Link berikut mungkin bermanfaat buat sobat:

• Merubah Tanggal Menjadi Nama Hari
• Cara Hapus Gambar Sekaligus

Jika sobat ada saran / koreksi,  mimin sangat berterimakasih jika sobat dapat meluangkan waktu sebentar untuk memberikan feedback dalam kolom komentar.

Salam...😎😎😎

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...😎😎