Bagaimana cara mengurutkan tanggal secara otomatis saat tanggal dimasukkan atau diubah di Excel?
Di Excel, file Jenis Fungsi dapat membantu Anda mengurutkan tanggal dalam urutan naik atau turun sesuai kebutuhan. Tetapi itu tidak dinamis, jika Anda telah mengurutkan tanggal dan kemudian menambahkan tanggal baru ke dalamnya, Anda perlu mengurutkannya lagi. Adakah cara yang baik dan cepat bagi Anda untuk mengurutkan tanggal secara otomatis saat memasukkan tanggal baru setiap kali di lembar kerja?
Tanggal pengurutan otomatis ketika tanggal dimasukkan atau diubah dengan rumus
Tanggal pengurutan otomatis ketika tanggal dimasukkan atau diubah dengan kode VBA
Tanggal pengurutan otomatis ketika tanggal dimasukkan atau diubah dengan rumus
Misalnya, tanggal asli di Kolom A, rumus berikut dapat membantu Anda mengurutkan tanggal atau string teks lainnya secara otomatis di kolom pembantu baru berdasarkan kolom yang ingin Anda urutkan, lakukan hal berikut:
1. Masukkan rumus ini:
=INDEX($A$2:$A$15,MATCH(ROWS($A$2:A2),COUNTIF($A$2:$A$15,"<="&$A$2:$A$15),0)) ke dalam sel kosong di samping kolom tanggal Anda, C2, misalnya, lalu tekan Ctrl + Shift + Enter kunci bersama-sama, dan Anda akan mendapatkan urutan nomor, lalu seret pegangan isi ke sel yang ingin Anda gunakan, lihat tangkapan layar:
Note: Dalam rumus di atas: A2: A15 adalah rentang tanggal awal yang ingin Anda sortir secara otomatis.
2. Kemudian format angka sebagai format tanggal dengan mengklik Kencan singkat dari Umum daftar drop-down di bawah Beranda tab, lihat tangkapan layar:
3. Kemudian nomor urut telah diubah ke format tanggal, dan tanggal asli telah diurutkan juga, lihat tangkapan layar:
4. Mulai sekarang, ketika Anda memasukkan tanggal baru atau mengubah tanggal di kolom A, tanggal di kolom C akan diurutkan dalam urutan menaik secara otomatis, lihat tangkapan layar:
Tanggal pengurutan otomatis ketika tanggal dimasukkan atau diubah dengan kode VBA
Kode VBA berikut dapat membantu Anda mengurutkan tanggal secara otomatis di kolom asli saat Anda memasukkan tanggal baru atau mengubah tanggal sesuai kebutuhan.
1. Buka lembar kerja yang ingin Anda urutkan tanggalnya secara otomatis saat Anda memasukkan atau mengubah tanggal.
2. Klik kanan tab lembar, lalu pilih Lihat kode dari menu konteks, di-pop-out Microsoft Visual Basic untuk Aplikasi jendela, harap salin dan tempel kode berikut ke dalam kolom kosong Modul jendela, lihat tangkapan layar:
Kode VBA: urutkan otomatis ketika tanggal dimasukkan atau diubah:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
On Error Resume Next
If Application.Intersect(Target, Application.Columns(1)) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
Range("A1").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Note: Pada kode di atas, tanggal yang dimasukkan akan diurutkan secara otomatis di kolom A, Anda dapat mengubahnya A1 dan A2 ke sel Anda sendiri sesuai kebutuhan.
3. Mulai sekarang, saat Anda memasukkan tanggal di kolom A, tanggal akan diurutkan secara otomatis.
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!