Cara Mengambil Tanggal Otomatis Dari Tanggal Bulan Tahun Menggunakan Macro VBA

Ada banyak cara untuk menyelesaikan masalah Excel, dan cara ini ada yang menggunakan rumus tetapi juga ada yang menggunakan VBA atau dengan coding Macro Excel. Nah pada kesempatan kali ini saya akan membagi bagaimana cara mengambil tanggal dari sebuah tanggal bulan dan tahun yang lengkap secara otomatis dengan hanya satu kali klik saja.

Maksud otomatis ini adalah saya tambahkan dengan bantuan coding VBA sehingga Anda tidak perlu mengetikan rumus untuk mengambil tanggal tersebut. Untuk membuat hal tersebut tentunya Anda harus menambahkan atau menuliskan coding yang akan saya bahas pada kesempatan kali ini.

BAca:
Cara Menentukan Tanggal terakhir dengan rumus EMONTH

Langkah pertama silakan ketikkan terlebih dahulu data tanggalnya seperti dibawah ini

03/10/2017
14/09/2017
18/02/2017
07/09/2017

Terserah mau tanggal berapa saja yang penting dengan format (dd/mm/yyyy) atau gunakan format date "ShortDate" dan tanggal tersebut saya contohkan pada kolom A

Kemudian tuliskan coding berikut ini :

Sub MengambilTanggal()
Dim tempCell As Range
Selection.Value = Selection.Value
For Each tempCell In Selection
If IsDate(tempCell) = True Then
With tempCell
.Value = Day(tempCell)
.NumberFormat = "0"
End With
End If
Next tempCell
End Sub

Lalu Anda tambahkan commandbutton atau tombol untuk memanggil module yang telah Anda buat diatas tadi

Setelah itu coba Anda coba Run codingnya dan lihat hasilnya, jika benar akan tampak pada gambar dibawah ini :


Jreng... Berhasil
Jika benar coding yang Anda ketikan maka hasilnya seperti gambar diatas data yang hilang adalah bulan dan tahun dan data yang ditampilkan hanya tanggalnya saja alhasil dapat diperoleh data seperti diatas tersebut.

Baca Juga :
Cara Menentukan Tanggal Jatuh Tempo

Oke, segitu ajah semoga bermanfaat jangan lupa untuk koment

Related

Macro Excel VBA 5046924497799209520

Posting Komentar

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item