Bagaimana cara menjalankan makro pada waktu yang sama di beberapa file buku kerja?
Artikel ini, saya akan berbicara tentang cara menjalankan makro di beberapa file buku kerja secara bersamaan tanpa membukanya. Metode berikut dapat membantu Anda menyelesaikan tugas ini di Excel.
Jalankan makro secara bersamaan di beberapa buku kerja dengan kode VBA
Jalankan makro secara bersamaan di beberapa buku kerja dengan kode VBA
Untuk menjalankan makro di beberapa buku kerja tanpa membukanya, harap terapkan kode VBA berikut:
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempelkan makro berikut di file Modul Jendela.
Kode VBA: Jalankan makro yang sama di beberapa buku kerja secara bersamaan:
Sub LoopThroughFiles()
Dim xFd As FileDialog
Dim xFdItem As Variant
Dim xFileName As String
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
If xFd.Show = -1 Then
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.xls*")
Do While xFileName <> ""
With Workbooks.Open(xFdItem & xFileName)
'your code here
End With
xFileName = Dir
Loop
End If
End Sub
Note: Pada kode di atas, silahkan copy dan paste kode Anda sendiri tanpa Sub menuju dan End Sub footer antara Dengan Workbooks.Open (xFdItem & xFileName) dan Berakhir dengan skrip. Lihat tangkapan layar:
3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan a Browse jendela ditampilkan, pilih folder yang berisi buku kerja yang Anda ingin semua menerapkan makro ini, lihat tangkapan layar:
4. Dan kemudian klik OK tombol, makro yang diinginkan akan dijalankan sekaligus dari satu buku kerja ke yang lain.
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab 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 sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!