Bu yazımızda tanımlanan zaman aralıklarından sonra başka bir makroyu çağırmak veya bir komut çalıştırmak için bir makro oluşturacağız.
Makroyu çalıştırmak için “Zamanlayıcıyı Başlat” düğmesine tıklayın.
Makroyu çalıştırırken “TimerMsg” makrosu bir mesaj kutusu görüntüleyecektir.
Kullanıcı “Tamam” butonuna tıkladığında üç saniye sonra “MsgProcedure” makrosu çağrılır. “MsgProcedure” makrosu bir mesaj kutusu görüntüler.
Mantıksal açıklama
Bu örnekte, “TimerMsg” ve “MsgProcedure” olmak üzere iki makro oluşturduk. “Zamanlayıcı Mesajı” makro bir bilgi mesajı görüntüler ve kodda tanımlandığı gibi üç saniye bekledikten sonra “MsgProcedure” öğesini çağırır.
Kod açıklaması
Application.OnTime Yöntemi
Application.OnTime yöntemi, tanımlanmış zaman aralıklarında çalışacak bir prosedürü planlamak için kullanılır.
Sözdizimi
Uygulama .OnTime Zamanı, Prosedür_adı
Zaman, prosedürün çalıştırılması gereken zaman aralığını belirtir.
Prosedür_adı, prosedürün adını tanımlar.
“MsgProcedure” makrosunu programlamak için Application.onTime yöntemini kullandık.
Lütfen kod için aşağıdan takip edin
Seçenek Explicit Sub TimerMsg() 'Tarih değişkeni Dim AlertTime As Date olarak bildiriliyor 'Zamanlayıcının başlangıcında mesaj kutusu gösteriliyor MsgBox "Alarm 3 saniye içinde kapanacak!" 'Aktivasyon süresinden sonra 3 saniye için zamanlayıcı süresini ayarlama AlertTime = Now + TimeValue("00:00:03") 'Zamanlayıcıyı etkinleştirme ve zamanlayıcının sonunda MsgProcedure uygulamasını çalıştırma Application.OnTime AlertTime, "MsgProcedure" End Sub Sub MsgProcedure() 'Zamanlayıcı örneği için oluşturulan örnek prosedür MsgBox "Üç Saniye doldu!" Alt Bitiş
Bu blogu beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl geliştirebileceğimizi ve sizin için nasıl daha iyi hale getirebileceğimizi bize bildirin. E-posta sitesinde bize yazın