Pengurutan khusus di Excel adalah fitur yang sangat berguna. Di artikel ini, kita akan membahas tentang cara memperbarui pengurutan kustom secara otomatis dalam rentang menggunakan Excel VBA.
Saat Anda menggunakan pengurutan khusus, Anda akan menemukan bahwa ini adalah fitur luar biasa di Excel. Namun, jika Anda sering menggunakan fitur ini, Anda mungkin juga menemukan masalah. Anda akan mengurutkan dalam rentang dengan data dan informasi tertentu. Saat Anda menambahkan data dan informasi tambahan ke dalam rentang, urutan dalam rentang tidak akan berubah secara otomatis. Gambar di bawah menunjukkan contoh kondisi seperti itu.
Saat Anda menambahkan kumpulan data baru ke dalam rentang, itu tidak akan mengubah peringkat secara otomatis. Jika Anda masih ingin mengurutkan rentang yang lebih besar ini dengan kumpulan data baru menurut kriteria yang sama, Anda perlu melakukan proses pengurutan kustom lagi. Anda dapat melihat bahwa hal ini sangat merepotkan, terutama bila Anda perlu terus menerus memperbarui data dan informasi di lembar kerja. Setiap kali Anda menambahkan informasi baru ke dalam rentang, Anda perlu menyortir lagi. Untuk mengatasi masalah ini dan menyelesaikan tugas Anda dengan cepat, Anda dapat melanjutkan membaca artikel ini.
Rekam Makro
Jika kriteria pengurutan khusus sangat kompleks, Anda akan kesulitan menulis kode VBA secara langsung. Jadi, sekarang Anda bisa merekam makro terlebih dahulu. Dan kode di makro ini dapat digunakan di makro lain. Proses pencatatan kode sangat mudah.
- Sebelum Anda merekam makro, Anda perlu menambahkan tab VBA di pita. Di sini klik kanan salah satu tab di pita.
- Dan kemudian pilih "Customize the Ribbon" di menu.
- Sekarang di jendela "Opsi Excel", centang opsi "Pengembang" dalam daftar "Tab Utama".
- Setelah itu, klik "OK" di jendela tersebut. Oleh karena itu, Anda telah menambahkan tab di pita.
- Sekarang Anda akan kembali ke lembar kerja. Klik tab "Pengembang" yang telah Anda tambahkan.
- Dan kemudian klik tombol "Rekam Makro" di toolbar. Dengan demikian, jendela "Rekam Makro" akan muncul.
Di sisi lain, Anda juga dapat mengklik tombol kecil di bagian bawah lembar kerja untuk mengganti 6 langkah di atas.
- Sekarang di jendela "Rekam Makro", masukkan nama ke dalam kotak teks pertama. Tetapkan tombol pintas jika Anda perlu. Dan kemudian tambahkan deskripsi sesuai kebutuhan Anda.
- Selanjutnya klik "OK". Dengan demikian, makro mulai merekam setiap operasi yang Anda lakukan.
- Pilih rentang yang perlu Anda urutkan di lembar kerja.
- Klik tab "Beranda".
- Dan kemudian klik tombol “Sort & Filter” di pita.
- Dalam daftar drop-down, pilih opsi "Custom Sort".
- Di jendela “Sort”, atur kriteria sesuai kebutuhan Anda. Semua tindakan akan direkam di makro.
Saat Anda merekam makro, jangan lakukan langkah tambahan. Jika tidak, langkah-langkah itu juga akan direkam. Dan ini akan menimbulkan masalah di bagian selanjutnya.
- Setelah Anda menyelesaikan pengaturan di jendela "Sort", klik "OK" untuk menyimpan pengaturan.
- Sekarang klik tab "Pengembang" di pita lagi.
- Dan kemudian klik tombol "Stop Recording". Saat lembar kerja dalam kondisi pencatatan makro, tombol akan berubah menjadi “Berhenti Merekam”.
Anda juga dapat mengklik tombol di bagian bawah lembar kerja untuk berhenti merekam makro. Dengan demikian, Anda telah menyelesaikan perekaman. Semua kriteria pengurutan telah disimpan di Makro 1.
Gunakan Makro VBA Excel
Di bagian ini, kami akan menunjukkan cara menggunakan makro VBA untuk memperbarui pengurutan kustom di lembar kerja Anda. Dan Anda juga akan menggunakan makro yang direkam di bagian ini.
- Klik tab "Pengembang" di pita.
- Dan kemudian klik tombol "Visual Basic" di toolbar. Sebagai gantinya, Anda juga dapat menekan tombol “Alt + F11” pada keyboard untuk mengganti 2 langkah tersebut.
- Di editor Visual Basic, klik dua kali lembar di area "VBAProject". Di sheet ini, Anda perlu memperbarui pengurutan kustom. Dan di file Anda yang sebenarnya, Anda perlu mengklik dua kali lembar yang sesuai.
- Sekarang masukkan kode berikut ke area tersebut.
Private Sub Worksheet_Change(ByVal Target As Range) End Sub
- Dan kemudian masukkan kode berikut di antara dua kalimat VBA di atas.
Application.ScreenUpdating = False
If Not Intersect(Target, Range("A1:C13")) Is Nothing Then
End If
Di sini kisarannya diperkirakan. Akan ada 12 bulan untuk volume penjualan, dan bersama dengan baris pertama tajuk, kami memasukkan kisaran "A1: C13". Anda juga dapat memasukkan rentang ke dalam kode sesuai dengan lembar kerja Anda yang sebenarnya.
- Pada langkah ini, buka modul 1 di editor. Kode-kode dalam modul ini adalah proses pengurutan khusus yang telah Anda buat sebelumnya. Anda dapat melihat bahwa menggunakan fitur perekaman makro dapat menghemat banyak waktu.
- Sekarang salin bagian utama dari modul ini.
- Dan kemudian klik dua kali file tardapatkan sheet di bagian "VBAProject".
- Setelah itu, tempel kode tersebut ke dalam kode IF-END IF.
- Dan kemudian ubah rentang kode sesuai dengan kebutuhan Anda. Makro yang direkam agak rumit dan berlebihan. Anda juga bisa memodifikasinya sesuai kebutuhan Anda. Oleh karena itu, kode VBA lengkapnya akan seperti ini:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("A1:C13")) Is Nothing Then
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("B2:B13"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("C2:C13"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
End With
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:C13")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End If
End Sub
Kami menambahkan lagi WITH-END WITH ke dalam kode. Dengan demikian, akan lebih jelas dari hasil rekaman. Jika Anda memiliki persyaratan lain, Anda juga dapat memodifikasinya sesuai dengan kebutuhan Anda yang sebenarnya. Anda harus berhati-hati saat memodifikasi kode. Jika tidak, Anda akan menghasilkan beberapa hasil yang salah di lembar kerja.
- Sekarang Anda telah menyelesaikan kode VBA di editor. Anda dapat kembali ke lembar kerja dan menguji hasilnya. Saat Anda menambahkan bulan berikutnya dan nomor yang sesuai ke dalam rentang, pengurutan kustom akan otomatis disegarkan.
Oleh karena itu, Anda tidak perlu memperbarui pengurutan khusus secara manual setiap kali Anda memasukkan elemen baru ke dalam tarmendapatkan jangkauan. Di sisi lain, Anda perlu menyimpan buku kerja ini sebagai file Excel dengan makro aktif. Jika tidak, Anda akan kehilangan kode jika Anda menyimpan sebagai file biasa.
Kami akan Memberikan Bantuan kepada Korban Korupsi Excel
Kita semua tahu bahwa Excel sangat kuat dan dapat membantu Anda menyelesaikan pekerjaan dengan cepat dan mudah. Namun aplikasi Excel masih jauh dari sempurna. Terkadang Excel akan rusak karena berbagai alasan. Setelah Excel rusak, Anda tidak akan dapat menyelesaikan tugas Anda dengan aplikasi ini. Untuk bekerja lebih baik, Anda perlu memperbaikinya sesegera mungkin.
Perusahaan kami telah bekerja di area pemulihan selama bertahun-tahun, terutama pemulihan Excel. Oleh karena itu, Anda dapat meminta bantuan staf teknis kami. Dengan pengalaman bertahun-tahun, kami dapat dengan mudah mengetahui alasan yang menyebabkan kerusakan pada file Anda. Dan untuk membantu Anda lebih baik memperbaiki kerusakan file Excel xlsx, kami telah mengembangkan alat pihak ketiga. Alat ini sangat mudah dimanipulasi dan Anda tidak perlu khawatir dengan masalah privasi.
Pengantar Penulis:
Anna Ma adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki kesalahan Word docx dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com