Bagaimana cara mengurutkan kolom secara otomatis berdasarkan nilai di Excel?
Misalnya, Anda memiliki tabel pembelian seperti gambar di bawah ini. Sekarang Anda ingin kolom Harga diurutkan secara otomatis ketika Anda memasukkan angka/harga baru di kolom ini, bagaimana cara mengatasinya? Di sini saya memperkenalkan makro VBA untuk membantu Anda mengurutkan kolom tertentu secara otomatis berdasarkan nilai di Excel.
Kolom urutkan otomatis berdasarkan nilai dengan VBA
Kolom urutkan otomatis berdasarkan nilai dengan VBA
Makro VBA ini akan mengurutkan semua data di kolom tertentu secara otomatis segera setelah Anda memasukkan data baru atau mengubah nilai di kolom di Excel.
1. Klik kanan nama sheet saat ini di Bilah Tab Lembar, lalu klik Lihat kode dari menu klik kanan.
2. Di kotak dialog pembukaan Microsoft Visual Basic for Application, tempel kode makro VBA berikut ke jendela pembuka.
VBA: Kolom Urutkan Otomatis di Excel
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B1").Sort Key1:=Range("B2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub
Note:
1) Dalam kode vba di atas, B: B berarti akan otomatis mengurutkan Kolom B, B1 adalah sel pertama di Kolom B, B2 adalah sel kedua di Kolom B, dan Anda dapat mengubahnya berdasarkan kebutuhan Anda.
2) cuplikan Judul:=xlYa di baris ke-5 memberi tahu Excel bahwa rentang yang akan Anda urutkan memiliki header, sehingga baris pertama dari rentang tersebut tidak akan disertakan saat pengurutan. Jika tidak ada header, silakan ubah ke Judul:=xlNo; dan ubah Kunci1:=Rentang("B2") di baris ke-4 ke Kunci1:=Rentang("B1").
3. Lalu kembali ke lembar kerja, saat Anda memasukkan angka baru di kolom Harga atau mengubah harga yang ada, kolom Harga akan otomatis diurutkan dalam urutan menaik.
Note: Saat Anda memasukkan nomor baru di kolom Harga, Anda harus memasukkan nomor di sel kosong pertama di bawah angka asli. Jika ada sel kosong di antara angka yang baru dimasukkan dan angka asli serta sel kosong di antara angka asli, kolom ini tidak akan diurutkan secara otomatis.
Demo: Urutkan kolom secara otomatis berdasarkan nilai dengan VBA di Excel
Urutkan dengan mudah berdasarkan frekuensi kejadian di Excel
Kutools untuk Excel Penyortiran Lanjutan utilitas mendukung pengurutan data berdasarkan panjang teks, nama belakang, nilai absolut, frekuensi, dll. di Excel dengan cepat.
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!