Cara mengurutkan berdasarkan tanggal di vba (dengan contoh)

Anda dapat menggunakan sintaks dasar berikut di VBA untuk mengurutkan baris berdasarkan tanggal:

 Sub SortByDate()
Range(" A1:C10 ").Sort Key1:=Range(" A1 "), Order1:=xlAscending, Header:=xlYes
End Sub

Contoh khusus ini mengurutkan baris dalam rentang A1:C10 berdasarkan tanggal di kolom A, dari terlama hingga terbaru.

Jika Anda ingin mengurutkan baris berdasarkan tanggal dari terbaru ke terlama, Anda dapat menentukan Order1:=xlDescending sebagai gantinya.

Perhatikan bahwa Header:=xlYes menetapkan bahwa baris pertama harus diperlakukan sebagai baris header.

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Urutkan berdasarkan tanggal menggunakan VBA

Katakanlah kita memiliki kumpulan data berikut di Excel yang berisi informasi tentang penjualan dan pengembalian dana di toko pada tanggal berbeda:

Katakanlah kita ingin mengurutkan baris berdasarkan tanggal, terlama hingga terbaru.

Kita dapat membuat makro berikut untuk melakukan ini:

 Sub SortByDate()
Range(" A1:C10 ").Sort Key1:=Range(" A1 "), Order1:=xlAscending, Header:=xlYes
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa baris sekarang diurutkan berdasarkan tanggal, dari tanggal terlama hingga terbaru.

Untuk mengurutkan baris berdasarkan tanggal dari terbaru ke terlama, kita dapat menentukan Order1:=xlDescending :

 Sub SortByDate()
Range(" A1:C10 ").Sort Key1:=Range(" A1 "), Order1:=xlDescending, Header:=xlYes
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa baris sekarang diurutkan berdasarkan tanggal, dari terbaru ke terlama.

Catatan #1 : Dalam contoh ini, kami mengurutkan dalam satu kolom. Namun, Anda dapat menentukan lebih banyak kunci untuk mengurutkan pada beberapa kolom.

Catatan #2 : Anda dapat menemukan dokumentasi lengkap metode pengurutan VBA di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara mengurutkan lembar berdasarkan beberapa kolom
VBA: Cara menghitung jumlah baris dalam jangkauan
VBA: cara memfilter kolom