Ada banyak cara untuk menuntaskan persoalan Excel, dan cara ini ada yang memakai rumus tetapi juga ada yang memakai VBA atau dengan coding Macro Excel. Nah pada kesempatan kali ini aku 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 yaitu aku tambahkan dengan pemberian coding VBA sehingga Anda tidak perlu mengetikan rumus untuk mengambil tanggal tersebut. Untuk menciptakan hal tersebut tentunya Anda harus menambahkan atau menuliskan coding yang akan aku bahas pada kesempatan kali ini.
BAca:
Cara Menentukan Tanggal terakhir dengan rumus EMONTH
Langkah pertama silakan ketikkan terlebih dahulu data tanggalnya menyerupai 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 aku 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, jikalau benar akan tampak pada gambar dibawah ini :
Jreng... Berhasil
Jika benar coding yang Anda ketikan maka hasilnya menyerupai gambar diatas data yang hilang yaitu bulan dan tahun dan data yang ditampilkan hanya tanggalnya saja karenanya sanggup diperoleh data menyerupai diatas tersebut.
Baca Juga :
Cara Menentukan Tanggal Jatuh Tempo
Oke, segitu ajah biar bermanfaat jangan lupa untuk koment Sumber http://www.excel-id.com/