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

or

Bagaimana untuk menukar semua jadual ke jajaran dalam Lembaran Kerja aktif?

Dalam Excel, anda boleh menggunakan beberapa jadual untuk merakam data, tetapi, dalam beberapa kali, anda mahu menukar jadual untuk pelbagai untuk melakukan beberapa edisi. Umumnya, anda hanya boleh menukar satu jadual ke jajaran sekali, ia akan menyusahkan sekiranya terdapat lusinan meja dalam lembaran yang diperlukan untuk ditukar kepada julat. Di sini saya mempunyai kod VBA yang boleh menukar jadual lembaran aktif ke jajaran sekali gus.


Tukar Formula ke teks atau sebaliknya dalam Excel

dengan Kutools untuk Excel's Tukar Formula ke Teks, anda boleh dengan cepat menukar formula kepada rentetan teks yang bermaksud hanya memaparkan rentetan formula dalam sel dan tidak mendapat hasilnya. Dan juga Tukar Teks kepada Formula boleh menukar rentetan teks kembali ke formula dan memaparkan hasil yang dikira. Klik untuk 60 hari percubaan percuma!
formula covnvert doc untuk teks
Kutools untuk Excel: dengan lebih daripada 200 berguna Excel tambahan, bebas untuk mencuba tanpa had pada hari 60.

Tukar semua jadual ke julat lembaran aktif dengan VBA


Tukar semua jadual ke julat lembaran aktif dengan VBA


1. Aktifkan helaian yang anda mahu untuk menukar jadualnya, kemudian tekan Alt + F11 kunci untuk membolehkannya Microsoft Visual Basic untuk Aplikasi tingkap.

2. klik Memasukkan > Modul untuk membuat skrip modul baru, salin dan tampal di bawah kod ke modul kosong.

VBA: Tukar semua jadual lembaran aktif ke julat

Sub ConvertTablesToRange()
'UpdatebyExtendoffice20180530
    Dim xSheet As Worksheet
    Dim xList As ListObject
    Set xSheet = ActiveWorkbook.ActiveSheet
    For Each xList In xSheet.ListObjects
        xList.Unlist
    Next
End Sub

doc menukar jadual kepada julat 1

3. Akhbar F5 kunci untuk menjalankan kod, kini semua jadual helaian semasa telah ditukar kepada julat.


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.