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 SubCatatan. 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