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

or

Bagaimana untuk mengembangkan atau menutup semua baris dan lajur kumpulan dalam Excel?

Dalam Excel, anda boleh menggunakan utiliti Kumpulan untuk mengumpulkan data yang anda perlukan. Tetapi jika terdapat banyak kumpulan dalam helaian, bagaimana anda dapat dengan cepat mengembangkan atau menutup semua kumpulan tanpa mengklik secara manual? Di sini, saya memperkenalkan kod VBA untuk menyelesaikan tugas ini dengan mudah di Excel.
doc memperluas semua kumpulan 1

Kembangkan atau tutup semua kumpulan dan lajur dalam Excel

Melayari penyemakan & mengedit beberapa buku kerja Excel / Dokumen Word sebagai Firefox, Chrome, Internet Explore 10!

Anda mungkin terbiasa melihat beberapa halaman web di Firefox / Chrome / IE, dan beralih di antara mereka dengan mengklik tab yang sesuai dengan mudah. Di sini, Tab Office menyokong pemprosesan yang sama, yang membolehkan anda menyemak imbas buku kerja Excel atau dokumen Word dalam satu tetingkap Excel atau tetingkap Word, dan dengan mudah bertukar di antara mereka dengan mengklik tab mereka. Klik untuk percubaan 45 hari Tab Pejabat!

ot excel

Kembangkan atau tutup semua kumpulan dan lajur dalam Excel

Berikut adalah beberapa kod VBA yang dapat membantu anda mengembangkan atau menutup semua kumpulan sekaligus.

1. Akhbar Alt + F11 kunci untuk membolehkan Microsoft Visual Basic untuk Aplikasi tingkap.

2. klik Memasukkan > Modul, salin dan tampal kod pukulan ke Modul baru.

VBA: Buka semua kumpulan

Sub ExpandAll () 'UpdatebyExtendoffice20181031 Dim I Sebagai Integer Dim J Sebagai Integer Pada Kesalahan Resume Seterusnya Untuk I = 1 Untuk 100 Worksheets ("Sheet1"). Outline.ShowLevels rowLevels: = I Jika Err.Number <> 0 Lalu Err.Clear Exit Untuk Akhir Jika Seterusnya I Untuk J = 1 Kepada Lembaran 100 ("Sheet1"). Outline.ShowLevels columnLevels: = J Jika Err.Number <> 0 Kemudian Err.Clear Keluar Untuk Akhir Jika Sub Akhir J Sub

3. Akhbar F5 utama, kumpulan dalam Sheet1 telah diperluaskan.
doc memperluas semua kumpulan 2

Jika anda mahu menutup semua kumpulan, anda boleh menggunakan kod di bawah:

Sub CollapseAll () Worksheets ("sheet1"). Outline.ShowLevels 1, 1 End Sub

doc memperluas semua kumpulan 3

Catatan: dalam kod di atas, Sheet1 adalah helaian mengandungi kumpulan yang anda akan diperluaskan atau ditutup. Sila ubahnya ke nama kunci anda sendiri jika anda perlukan.



Cadangan Alat Produktiviti untuk Excel

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.