- Katılım
- 28 May 2018
- Mesajlar
- 238
- En iyi yanıt
- 7
- Puanları
- 28
- Yaş
- 38
- Konum
- İstanbul
- Web sitesi
- analistadam.com
- Ad Soyad
- Özkan Sabancı
- Office Vers.
- Microsoft 365 Apps for enterprise TR
Merhaba arkadaşlar,
Hepinizin bildiği üzere VBA da yazılan kodlar satır satır işletilmektedir. Her satırdaki kod işlendikten hemen sonra bir alt satırdaki koda geçmektedir.
Oysa bir alt satıra geçmeden önce araya bekleme süresi koyabileceğinizi biliyor musunuz? Bir çok kişinin bunu zaten şu şu kod ile yapıyorum dediğini duyar gibi oldum
Evet belki herkes bildiği yöntemler ile bunu yapabiliyor ama ben size Sleep Function ile bunu daha kolay yapabildiğinizi anlatmak istiyorum.
Öncelikle aşağıdaki kodu en üst satırda deklare ediyoruz.
Daha sonra yazdığımız kodların içerisine Sleep yazıp yanına bekleteceğimiz milisaniyeyi yazıyoruz. Bu sayede kodlar Sleep satırına geldiğinde belirtilen milisaniye kadar bekleyip daha sonra bir alt satırdan devam edecektir.
Örnek olarak mesaj kutusu bekleten örneği ve excel dosyasını aşağıda paylaşıyorum.
Faydalı olması dileğiyle..
Hepinizin bildiği üzere VBA da yazılan kodlar satır satır işletilmektedir. Her satırdaki kod işlendikten hemen sonra bir alt satırdaki koda geçmektedir.
Oysa bir alt satıra geçmeden önce araya bekleme süresi koyabileceğinizi biliyor musunuz? Bir çok kişinin bunu zaten şu şu kod ile yapıyorum dediğini duyar gibi oldum
Evet belki herkes bildiği yöntemler ile bunu yapabiliyor ama ben size Sleep Function ile bunu daha kolay yapabildiğinizi anlatmak istiyorum.
Öncelikle aşağıdaki kodu en üst satırda deklare ediyoruz.
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Daha sonra yazdığımız kodların içerisine Sleep yazıp yanına bekleteceğimiz milisaniyeyi yazıyoruz. Bu sayede kodlar Sleep satırına geldiğinde belirtilen milisaniye kadar bekleyip daha sonra bir alt satırdan devam edecektir.
Örnek olarak mesaj kutusu bekleten örneği ve excel dosyasını aşağıda paylaşıyorum.
Faydalı olması dileğiyle..
PHP:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub MakroUyutma()
MsgBox "Mesaj başladı"
Sleep 3000
MsgBox "Mesaj bitti"
End Sub