Note: The other languages of the website are Google-translated. Back to English
English English

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?

doc urutkan dengan klik 1

Urutkan data dengan mengklik header kolom dengan kode VBA


panah gelembung kanan biru 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

doc urutkan dengan klik 2

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

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (6)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Berfungsi dengan baik untuk naik, klik dua kali untuk kedua kalinya seperti yang dinyatakan untuk turun tidak menghasilkan apa-apa
Komentar ini diminimalkan oleh moderator di situs
Tidak berfungsi, tidak ada yang terjadi, tahu cara membuat modul di vba, melakukan itu, disimpan dan tidak ada apa-apa ketika header diklik dua kali. Tolong perbaiki.
Komentar ini diminimalkan oleh moderator di situs
Tidak bisa melakukan crackerjack - tidak bekerja
Komentar ini diminimalkan oleh moderator di situs
Hai, Rob, Kode di atas berfungsi dengan baik di Excel saya, dapatkah Anda memberikan tangkapan layar masalah Anda di sini?
Komentar ini diminimalkan oleh moderator di situs
Halo,
der Kode funktioniert auch gut bei mir. Allerdings würde ich gerne die oberen beiden Zeilen nicht mit sortieren, da diese die berschriften sind.
Wie muss ich dann diesen Code ndern?

Terimakasih banyak!!
Komentar ini diminimalkan oleh moderator di situs
Halo teman,
Inilah VBA yang Anda butuhkan:

bln Publik Beralih Sebagai Boolean
Sub Lembar Kerja Pribadi_BeforeDoubleClick _
(ByVal Target Sebagai Rentang, Batalkan Sebagai Boolean)
'Perbarui oleh Extendoffice
Redupkan Kolom Terakhir Selamanya, Kolom Kunci Selamanya, Baris Terakhir Selamanya
Rentang Sortir Redup Sebagai Rentang
Kolom Terakhir = _
Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByColumns, SearchDirection:=xlSebelumnya).Column
keyColumn = Target.Kolom
Jika keyColumn > LastColumn Kemudian Keluar Sub
Application.ScreenUpdating = Salah
Batal = Benar
Baris Terakhir = Sel(Rows.Count, keyColumn).End(xlUp).Baris
On Error Resume Next
Setel SortRange = Target.CurrentRegion
Redupkan Aku Selamanya
i = 2
Atur SortRange = SortRange.Offset(i, 0)
Atur SortRange = SortRange.Resize(SortRange.Rows.Count - i, SortRange.Columns.Count)
blnToggle = Bukan blnToggle
Jika blnToggle = Benar Maka
SortirRange.Urut _
Key1:=Sel(2, keyColumn), Urutan1:=xlAscending, Header:=xlNo
Lain
SortirRange.Urut _
Kunci1:=Sel(2, kolom kunci), Urutan1:=xlMenurun, Header:=xlNo
End If
Setel SortRange = Tidak Ada
Application.ScreenUpdating = Benar
End Sub


Jika Anda memiliki header 3 baris, cukup ubah "i =2" menjadi "i =3" di VBA. Semoga membantu. Semoga harimu menyenangkan.

Hormat kami,
Mandy
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan