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