Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana cara menyusun lembaran dengan nilai sel dalam Excel?

Apabila kami menggunakan fail Excel, kami selalu menyusun lembaran kerja mengikut warna abjad, angka atau tab, tetapi adakah anda pernah cuba menyusun tab helaian dengan nilai sel tertentu?

Sekiranya anda mempunyai buku kerja dengan berpuluh-puluh lembaran kerja, dalam setiap lembaran kerja, sel A1 mempunyai nilai khusus, dan kini anda perlu mengisih semua lembaran kerja dalam buku kerja ini berdasarkan nilai sel A1 dalam setiap lembaran kerja bersamaan. Dengan artikel ini, anda akan mendapat penyelesaian.

Susun semua helaian kerja berdasarkan nilai sel dengan kod VBA


anak panah gelembung kanan biru Susun semua helaian kerja berdasarkan nilai sel dengan kod VBA


Untuk mengisih semua helaian kerja berdasarkan nilai sel dalam Excel, tidak ada cara langsung untuk kami, tetapi kod VBA berikut mungkin memberi sokongan kepada anda.

1. Tahan ALT + F11 kunci, dan ia membuka Tetingkap Microsoft Visual Basic untuk Aplikasi.

2. Klik Memasukkan > Modul, dan tampal kod berikut dalam Modul Window.

Kod VBA: Susun semua helaian berdasarkan nilai sel

Sub SortWksByCell()
'Update 20141127
Dim WorkRng As Range
Dim WorkAddress As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range (Single)", xTitleId, WorkRng.Address, Type:=8)
WorkAddress = WorkRng.Address
Application.ScreenUpdating = False
For i = 1 To Application.Worksheets.Count
    For j = i To Application.Worksheets.Count
        If VBA.UCase(Application.Worksheets(j).Range(WorkAddress)) < VBA.UCase(Application.Worksheets(i).Range(WorkAddress)) Then
            Application.Worksheets(j).Move Before:=Application.Worksheets(i)
        End If
    Next
Next
Application.ScreenUpdating = True
End Sub

3. Selepas menampal kod itu, kemudian tekan F5 kekunci untuk menjalankan kod ini, dan kotak petanda akan muncul untuk mengingatkan anda memilih sel yang anda ingin mengisih helaian berdasarkan, lihat tangkapan skrin:

doc-sort-sheets-by-cell-1

4. Dan sekarang, anda dapat melihat semua lembaran kerja telah disusun mengikut nilai teks sel A1 dalam setiap lembaran kerja yang naik.

Nota:

1. Jika terdapat kedua-dua nombor dan rentetan teks dalam sel yang anda pilih, helaian mengandungi nombor akan disusun sebelum helaian teks.

2. Jika kosong di salah satu sel A1, lembaran kerja relatif akan disusun di hadapan semua helaian.


Related articles:

Bagaimana untuk menyusun lembaran kerja mengikut abjad / abjad angka dalam Excel?

Bagaimana untuk menyusun tab lembaran kerja mengikut warna dalam Excel?

Bagaimana untuk membalikkan tab lembaran kerja?


Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.