Bagaimana beberapa lembar kerja bekerja di vba?

Biasanya, kita dapat menjalankan makro di lembar kerja, jika ada beberapa lembar yang perlu menerapkan makro yang sama ini, Anda harus memicu kode satu per satu lembar. Jika ada cara cepat lain untuk menjalankan makro yang sama di beberapa lembar kerja sekaligus di Excel?

Jalankan atau jalankan makro yang sama di beberapa lembar kerja sekaligus dengan kode VBA

Untuk menjalankan makro pada beberapa lembar sekaligus tanpa memicunya satu per satu lembar, Anda dapat menerapkan kode VBA berikut, lakukan seperti ini

1. Tahan tombol ALT + F11 untuk membuka jendela Microsoft Visual Basic for Applications

2. Klik Sisipkan > Modul, dan tempelkan makro berikut di Jendela Modul

kode VBA. Jalankan makro yang sama di beberapa lembar kerja secara bersamaan

Sub Dosomething()
    Dim xSh As Worksheet
    Application.ScreenUpdating = False
    For Each xSh In Worksheets
        xSh.Select
        Call RunCode
    Next
    Application.ScreenUpdating = True
End Sub
Sub RunCode()
    'your code here
End Sub

Catatan. Pada kode di atas, silakan salin dan tempel kode Anda sendiri tanpa tajuk Sub dan End Sub footer between the Sub Runcode() and End Sub scripts. See screenshot:

3. Kemudian letakkan kursor di bagian pertama makro, dan tekan tombol F5 untuk menjalankan kode, dan kode makro Anda akan diterapkan satu per satu lembar

Hapus semua makro dari beberapa buku kerja

Kutools for Excel's Batch Remove All Macros utilitas dapat membantu Anda menghapus semua makro dari beberapa buku kerja sesuai kebutuhan. Unduh dan uji coba gratis Kutools untuk Excel sekarang.

Kutools untuk Excel. dengan lebih dari 300 add-in Excel praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan uji coba gratis Sekarang.

Alat Produktivitas Kantor Terbaik

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

• Gunakan kembali. Masukkan dengan cepat rumus kompleks, bagan  dan apa pun yang pernah Anda gunakan sebelumnya; . Encrypt Cells with password; Create Mailing List and send emails...
• Super Formula Bar (mengedit beberapa baris teks dan formula dengan mudah); . Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
• Menggabungkan Sel/Baris/Kolom tanpa kehilangan Data; . Cegah Sel Duplikat; . Combine Duplicate Rows/Columns.. Prevent Duplicate Cells; Compare Ranges...
• Pilih Baris Duplikat atau Unik ; . Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
• Exact Copy Beberapa Sel tanpa mengubah referensi rumus; . Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
• Ekstrak Teks , Tambah Teks, Hapus berdasarkan Posisi, Hapus Spasi ; . Convert Between Cells Content and Comments...
• Filter Super (simpan dan terapkan skema filter ke sheet lain); . Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
• Menggabungkan Buku Kerja dan Lembar Kerja ; . Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
• Lebih dari 300 fitur canggih . Mendukung Office / Excel 2007-2021 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.

Baca selengkapnya. Download Gratis. Pembelian.  

Office Tab Menghadirkan antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Lebih Mudah

• Aktifkan pengeditan dan pembacaan bertab 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
• Meningkatkan produktivitas Anda hingga 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari

Baca selengkapnya. Download Gratis. Pembelian.  

Terlama Pertama

Urutkan komentar menurut

Terlama Pertama

Pertama Terbaru

Komentar ( 13 )

Belum ada peringkat. Jadilah yang pertama menilai

kuda betina

sekitar 4 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Sub Lakukan Sesuatu()
Dim xSh Sebagai Lembar Kerja
Aplikasi. Pembaruan Layar = Salah
Untuk Setiap xSh Di Lembar Kerja
xSh. Pilih
Panggil RunCode
Lanjut
Aplikasi. Pembaruan Layar = Benar
Akhir Sub
Sub RunCode()
Dengan Lembar Kerja("2018")
EnableOutlining = Benar
EnableSelection = xlNoRestrictions
Lindungi Kata Sandi. ="workana1234", _
Isi. =Benar, UserInterfaceOnly. = Benar
Berakhir dengan
Akhir Sub


Halo. he seguido las pautras pero me señala como error la fila xSh. Pilih

Al dar F5 me indica que se ha producido un error 1004 en waktu eksekusi

Kesalahan dalam metode "Pilih" dari Objek "_Lembar Kerja"



Membantu

Membalas

0

0

kris     kuda betina

sekitar 1 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Pada Kesalahan Lanjutkan Selanjutnya
di atas
xSh. Pilih

Membalas

0

0

dmitri

sekitar 4 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

1004 kesalahan waktu proses

Membalas

0

0

Metafaniel

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Bagi mereka yang memiliki kesalahan runtime 1004, pastikan Anda tidak memiliki lembar tersembunyi. Jika Anda melakukannya, perlihatkan mereka. Maka potongan kode ini berfungsi. Salam. th 1004 runtime error, pastikan Anda tidak memiliki lembar tersembunyi. Jika Anda melakukannya, perlihatkan mereka. Maka potongan kode ini berfungsi. Salam

Membalas

0

0

kris     Metafaniel

sekitar 1 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

atau
Pada Kesalahan Lanjutkan Selanjutnya

'di atas

xSh. Pilih

Membalas

0

0

Michal     Metafaniel

sekitar 1 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Apakah ada cara untuk menjalankan ini hanya pada lembar yang tidak disembunyikan?

Membalas

0

0

Rokhy

sekitar 2 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Kode "Jalankan makro yang sama di beberapa lembar kerja sekaligus" berfungsi dengan baik, Terima kasih

Namun saya memiliki kesalahan ini di "xSh. Pilih" dan saya tidak tahu mengapa. tidak ada masalah yang terlihat di seprai. DAN saya tidak punya lembar tersembunyi

Kesalahannya adalah '1004'. Metode'Pilih' objek '_Lembar Kerja' gagal


Terima kasih sebelumnya atas bantuan Anda

Membalas

0

0

Pira

sekitar 1 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Sebelum xSh. pilih Anda harus mengaktifkan
Jadi, xSh. aktifkanxSh. Pilih

Membalas

0

0

Daniel Alegre

sekitar 9 bulan yang lalu

Komentar ini diminimalkan oleh moderator di situs

Bagaimana Anda mengecualikan sheet tertentu dan menambahkan On Error Resume Next?

Membalas

Laporan

0

0

Anqi hou

sekitar 5 bulan yang lalu

Komentar ini diminimalkan oleh moderator di situs

Ini berfungsi, tetapi lembar saat ini selalu berjalan dua kali. Lembar sisanya sempurna dan hanya berjalan sekali

Bagaimana cara menggunakan banyak lembar di VBA?

Apakah makro berfungsi di banyak lembar?

Bagaimana Anda bisa bekerja dengan banyak lembar kerja?

Bagaimana cara menggabungkan beberapa lembar kerja menjadi satu di VBA?