Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara mengulang atau mengulang Makro setiap X menit di Excel?

Saat bekerja dengan Microsoft Excel, Anda mungkin perlu membuat Macro untuk menjalankan beberapa operasi. Misalnya, Anda ingin membuat Makro untuk secara otomatis menyalin berbagai data ke tempat baru. Karena data akan sering diubah, Anda memerlukan Makro ini untuk berjalan secara otomatis setiap 5 menit tanpa memicunya secara manual untuk menyinkronkan kedua rentang data ini. Bagaimana cara mencapainya? Metode dalam artikel ini dapat membantu Anda.

Ulangi atau ulangi Makro setiap X menit di Excel


Ulangi atau ulangi Makro setiap X menit di Excel

Kode VBA berikut dapat membantu Anda mengulang Makro setiap X menit di Excel. Silakan lakukan sebagai berikut.

1. tekan lain + F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, silakan klik Menyisipkan > Modul. Kemudian salin dan tempel kode VBA di bawah ini ke file Kode jendela. Lihat tangkapan layar:

Kode VBA: Ulangi atau ulangi Makro setiap X menit di Excel

Sub ReRunMacro()
Dim xMin As String

'Insert your code here
    xMin = GetSetting(AppName:="Kutools", Section:="Macro", Key:="min", Default:="")
    If xMin = "Exit" Then
    SaveSetting "Kutools", "Macro", "min", "False"
    Exit Sub
    End If
    If (xMin = "") Or (xMin = "False") Then
      xMin = Application.InputBox(prompt:="Please input the interval time you need to repeat the Macro", Title:="Kutools for Excel", Type:=2)
      SaveSetting "Kutools", "Macro", "min", xMin
    End If
    If (xMin <> "") And (xMin <> "False") Then
      Application.OnTime Now() + TimeValue("0:" + xMin + ":0"), "ReRunMacro"
    Else
      Exit Sub
    End If
End Sub

Note: Di dalam kode, harap ganti baris ini 'Masukkan kode Anda di sini dengan kode tersebut Anda akan menjalankan setiap X menit.

3. tekan F5 kunci untuk menjalankan kode. Dalam bermunculan Kutools untuk Excel kotak dialog, masukkan waktu interval Anda akan mengulangi makro berdasarkan, dan kemudian klik OK tombol. Lihat tangkapan layar:

Mulai sekarang, Makro tertentu akan berjalan berulang kali setiap 5 menit di buku kerja Anda.

Note: Jika Anda perlu menghentikan eksekusi makro dan mengubah interval siklus, salin kode VBA di bawah ini ke kode yang sama Modul jendela dan tekan F5 kunci untuk menjalankan kode. Kemudian Makro akan dihentikan, jalankan kembali kode di atas untuk menentukan interval baru.

Kode VBA: Hentikan eksekusi makro

Sub ExitReRunMacro()
SaveSetting "Kutools", "Macro", "min", "Exit"
End Sub

Office Tab - Penjelajahan dengan Tab, Pengeditan, dan Pengelolaan Buku Kerja di Excel:

Office Tab menghadirkan antarmuka tab seperti yang terlihat di browser web seperti Google Chrome, versi baru Internet Explorer dan Firefox ke Microsoft Excel. Ini akan menjadi alat yang menghemat waktu dan tidak dapat digantikan dalam pekerjaan Anda. Lihat demo di bawah ini:

Klik untuk uji coba gratis Office Tab!

Tab Office untuk Excel


Terkait artikel:


Alat Produktivitas Kantor Terbaik

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

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 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.
tab kte 201905

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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (29)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Bagus! Tolong bagaimana cara menghentikan loop setelah mengatakan 10 kali?
Komentar ini diminimalkan oleh moderator di situs
Selamat siang,
Anda bisa masuk ke jendela Kode untuk memecahkan kode (klik tombol Break) secara manual untuk menghentikan loop.
Komentar ini diminimalkan oleh moderator di situs
Selamat siang! Saya tidak mengerti bagaimana memecahkan kode makro untuk mengatur waktu eksekusi loop lagi. Bisakah Anda menjelaskan lebih detail bagaimana melakukan ini? Di mana nilai run cycle time dicatat?
Komentar ini diminimalkan oleh moderator di situs
Hai Jack,
Kesalahanku.
Kode VBA baru yang dapat menghentikan makro telah ditambahkan di akhir artikel. Silakan coba. Terima kasih atas komentarmu.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih untuk ini, berhasil. Saya seorang pemula untuk pengkodean jadi tolong maafkan saya jika ini sederhana ...

Bagaimana cara agar kotak dialog muncul lagi? Saya memilikinya macet pada loop 1 menit. Terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Selamat siang,
Pecahkan saja kodenya dan jalankan lagi.
Komentar ini diminimalkan oleh moderator di situs
Hai!
Ini bagus, tetapi apakah ada cara untuk membuatnya mengulang kembali ke baris pertama spreadsheet sebelum memulai lagi?


Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Ceritakan lebih banyak bagaimana menghentikan eksekusi makro dan mengubah interval siklus?
Komentar ini diminimalkan oleh moderator di situs
Ceritakan lebih banyak bagaimana menghentikan eksekusi makro dan mengubah interval siklus?
Komentar ini diminimalkan oleh moderator di situs
Selamat siang,
Kode VBA baru yang dapat menghentikan makro telah ditambahkan di akhir artikel. Silakan coba. Terima kasih atas komentarmu.
Komentar ini diminimalkan oleh moderator di situs
Harap berikan Kode untuk:


"Cara mengulang atau mengulang Makro setiap X Detik di Excel"


Terima kasih
Komentar ini diminimalkan oleh moderator di situs
Hai,
Silakan ubah baris "Application.OnTime Now() + TimeValue("0:" + xMin + ":0"), "ReRunMacro"" menjadi
Application.OnTime Now() + TimeValue("0:" + "0:" + xMin), "ReRunMacro"
Komentar ini diminimalkan oleh moderator di situs
Hei
Saya punya pertanyaan, kode Anda berfungsi dengan baik dan menyalin data di kolom saya berikutnya setiap 5 menit tetapi setelah 3 jam semua kolom saya menjadi penuh karena 2003 excel. Bisakah Anda membantu saya dengan kode untuk memeriksa apakah tidak ada kolom lain yang kosong, lalu buat lembar baru dan salin tempel data ke lembar itu
Komentar ini diminimalkan oleh moderator di situs
Halo, Bantu saya untuk "masukkan kode Anda di sini". Saya seorang pemula dan membutuhkan bantuan tentang apa yang harus diisi dan bagaimana caranya! Terima kasih, saya tidak melakukannya dengan benar
Komentar ini diminimalkan oleh moderator di situs
Hai Padma,
"Masukkan kode Anda di sini" menunjukkan kode VBA yang Anda gunakan untuk mencapai beberapa operasi di Excel. Misalkan Anda perlu menerapkan VBA untuk memindahkan baris ke lembar lain berdasarkan nilai tertentu, dan ingin menjalankan kode setiap X menit secara otomatis, Anda perlu menempatkan kode VBA di sini.
Komentar ini diminimalkan oleh moderator di situs
Hai, saya mengacaukan dan mengatur waktu sebagai 0.5 dan sekarang saya tidak dapat mengubahnya, ada ide bagaimana mengubah Pengaturan xMin?
Komentar ini diminimalkan oleh moderator di situs
Hai David.

Seperti yang kami sebutkan di akhir posting, jika Anda perlu menghentikan eksekusi makro dan mengubah interval siklus, silakan salin kode VBA di bawah ini ke jendela Modul yang sama dan tekan tombol F5 untuk menjalankan kode. Maka Macro akan berhenti, silahkan jalankan kembali kode diatas untuk menentukan interval baru.



Sub KeluarReRunMacro()

Simpan Pengaturan "Kutools", "Makro", "min", "Keluar"

End Sub
Komentar ini diminimalkan oleh moderator di situs
Hei, Terima kasih! tapi saya takut marco bahkan tidak berjalan, ketika saya menekan F5 excel mengirimi saya pesan kesalahan ini: Run time error 13 'Type Missmatch".



Saya menghapusnya, tetapi jika saya mencoba membuatnya lagi, pesan kesalahan yang sama muncul, satu-satunya dugaan saya adalah saya mengatur waktu sebagai 0.5 dan dalam kode, jadi tidak tahu bagaimana memodifikasinya sekarang.



Terima kasih Sekali lagi atas bantuan Anda.
Komentar ini diminimalkan oleh moderator di situs
Hai sangat berguna, namun saya pikir saya mengacaukan dan mengatur waktu sebagai 0.5 dan sekarang saya tidak dapat mengubahnya, ada ide bagaimana mengubah Pengaturan xMin?
Komentar ini diminimalkan oleh moderator di situs
Cara membuat makro di excel dengan loop terus menerus dan tombol yang ditekan hanya akan pg up dan pg down
Komentar ini diminimalkan oleh moderator di situs
Hai Jack, Secara tidak sengaja saya memasukkan 0.5 menit dan itu menunjukkan kesalahan,
Maksud saya xMin diambil sebagai 0.5 menit.
Bagaimana cara menghilangkan dan mengubahnya menjadi 1 menit?
Komentar ini diminimalkan oleh moderator di situs
Halo LIMCA,
Maaf untuk ketidaknyamanannya. Kode tidak mendukung memasukkan desimal.

Harap hentikan perulangan dengan menjalankan kode VBA di bawah ini, lalu jalankan kembali kode perulangan dan masukkan 1 ke dalam kotak dialog yang muncul.

Sub KeluarReRunMacro()

Simpan Pengaturan "Kutools", "Makro", "min", "Keluar"

End Sub
Komentar ini diminimalkan oleh moderator di situs
Saya menempelkan kode di bawah ini di mana saya telah mengganti baris untuk memasukkan kode dengan kode saya. Kesalahan yang saya dapatkan adalah- Kompilasi kesalahan: Diharapkan Akhir Sub. Mohon bantuannya.

Sub Jalankan Ulang Makro ()
Redupkan xMin Sebagai String
Sub Segarkan()
'
'Segarkan Makro
'

'
Sheets("Sheet1").Pilih
ActiveWorkbook.RefreshAll
Sheets("Pivot-Dash").Pilih
End Sub


xMin = GetSetting(AppName:="Kutools", Bagian:="Makro", Kunci:="min", Default:="")
Jika xMin = "Keluar" Maka
Simpan Pengaturan "Kutools", "Makro", "min", "Salah"
Keluar dari Sub
End If
Jika (xMin = "") Atau (xMin = "False") Maka
xMin = Application.InputBox(prompt:="Silakan masukkan interval waktu yang Anda butuhkan untuk mengulang Makro", Judul:="Kutools for Excel", Ketik:=2)
SimpanPengaturan "Kutools", "Makro", "min", xMin
End If
Jika (xMin <> "") Dan (xMin <> "False") Maka
Application.OnTime Now() + TimeValue("0:" + xMin + ":0"), "ReRunMacro"
Lain
Keluar dari Sub
End If
Komentar ini diminimalkan oleh moderator di situs
Selamat siang, Anda harus menghapus Sub baris dan Sub baris Akhir dari kode Anda. Sub Refresh()
'
'Segarkan Makro
'

'
Sheets("Sheet1").Pilih
ActiveWorkbook.RefreshAll
Sheets("Pivot-Dash").Pilih
Akhiri SubPerubahan menjadi: '
'Segarkan Makro
'

'
Sheets("Sheet1").Pilih
ActiveWorkbook.RefreshAll
Sheets("Pivot-Dash").Pilih
Komentar ini diminimalkan oleh moderator di situs
có cách nào dừng makro khi tắt file và makro tự khởi ng lại khi mở lại file không tambahkan
Komentar ini diminimalkan oleh moderator di situs
Di Excel 365 saya mendapatkan kesalahan Run-time '13' Ketik ketidakcocokan pada baris berikut: Application.OnTime Now() + TimeValue("0:" + "0:" + xMin), "ReRunMacro"
Komentar ini diminimalkan oleh moderator di situs
Hai Ron Franklin, saya mencobanya di Excel 365, tetapi masalah ini tidak dapat direproduksi. 
Komentar ini diminimalkan oleh moderator di situs
Kompilasi kesalahan:

Sub Akhir yang Diharapkan

Mam przekopiowane dokładnie jak jest napisane wyzej i nie moge odnaleźć problemu
Komentar ini diminimalkan oleh moderator di situs
Hai Pawid,
Bisakah Anda memberikan tangkapan layar kesalahan dan baris yang disorot dalam kode vba? Masalahnya tidak dapat direproduksi dalam kasus saya. Maaf atas ketidaknyamanannya.
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan