Bagaimana cara mengurutkan data kolom dengan mengklik header di Excel?
Misalkan, saya memiliki sejumlah data, sekarang, saya ingin mengurutkan data dalam urutan naik atau turun dengan mengklik tajuk kolom mana saja untuk menampilkan tangkapan layar berikut. Bagaimana Anda bisa menyelesaikan pekerjaan ini di Excel?
Urutkan data dengan mengklik header kolom dengan kode VBA
Urutkan data dengan mengklik header kolom dengan kode VBA
Biasanya, di Excel, Anda dapat menerapkan fitur Sortir untuk mengurutkan data dengan cepat dan mudah, tetapi untuk mengurutkan data hanya dengan mengklik sel, kode VBA berikut dapat membantu Anda.
1. Klik kanan tab lembar yang ingin Anda urutkan datanya dengan mengklik sel, lalu pilih Lihat kode dari menu konteks, dan di buka Microsoft Visual Basic untuk aplikasi jendela, salin dan tempel kode berikut ke dalam Modul kosong:
Kode VBA: Urutkan data dengan mengklik pada sel atau header kolom:
Public blnToggle As Boolean
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
Dim LastColumn As Long, keyColumn As Long, LastRow As Long
Dim SortRange As Range
LastColumn = _
Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
keyColumn = Target.Column
If keyColumn > LastColumn Then Exit Sub
Application.ScreenUpdating = False
Cancel = True
LastRow = Cells(Rows.Count, keyColumn).End(xlUp).Row
Set SortRange = Target.CurrentRegion
blnToggle = Not blnToggle
If blnToggle = True Then
SortRange.Sort _
Key1:=Cells(2, keyColumn), Order1:=xlAscending, Header:=xlYes
Else
SortRange.Sort _
Key1:=Cells(2, keyColumn), Order1:=xlDescending, Header:=xlYes
End If
Set SortRange = Nothing
Application.ScreenUpdating = True
End Sub
2. Dan kemudian simpan dan tutup jendela kode, sekarang, saat Anda mengklik dua kali header sel atau kolom dalam rentang data, kolom akan diurutkan dalam urutan menaik, jika Anda mengklik dua kali lagi, kolom akan diurutkan secara turun sekaligus.
Artikel terkait lainnya:
Bagaimana cara mengubah nilai sel dengan mengklik sel?
Bagaimana cara memfilter data hanya dengan mengklik konten sel di Excel?
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!