Excel VBA Kronometre скачать в хорошем качестве

Excel VBA Kronometre

Excel kronometre Excel vba kronometre Excel kronometre Excel geri sayım Excel vba ortamında bir zaman sistemi oluşturmaya çalıştım. Geri sayım ve kronometre Excel vba bileşenleri: Application.OnTime (Erkenzaman, çalıştırılacak prosedür, engeçzaman, program) Örnekler: 15 saniye sonra çalıştır: Application.OnTime Now + TimeValue("00:00:15"), "kronometre" Saat 16’da çalıştır: Application.OnTime TimeValue("16:00:00"), "kronometre" İşlemin iptali: Application.OnTime EarliestTime:=TimeValue("16:00:00"), "kronometre", Schedule:=False Otomatik başlatma: Sub auto_open Application.OnTime Now() + TimeValue("00:00:01"), "kronometre" End sub Yazdığım kodlar: Sub kronometrebaslat() Application.OnTime Now() + TimeValue("00:00:01"), "kronometre" End Sub Sub kronometredurdur() Application.OnTime Now() + TimeValue("00:00:01"), "kronometre", , False End Sub Sub kronometre() Sayfa2.Range("d5").Value = Time Application.OnTime Now() + TimeValue("00:00:01"), "kronometre" End Sub Mevcut kodlar: sub Saat_baslat() Sayfa1.Range("h3").Value = 0 Application.OnTime Now() + TimeValue("00:00:01"), "Saatdevam" End Sub Sub Saat_durdur() Application.OnTime Now() + TimeValue("00:00:01"), "Saatdevam", , False End Sub Sub Saatdevam() On Error Resume Next 'Application.EnableEvents = False If Sayfa1.Range("e17").Value Then If Sayfa1.Range("d5").Value = 0 Then MsgBox "SÜRE BİTTİ" Exit Sub End If Sayfa1.Range("d5").Value = Range("d5").Value - TimeValue("00:00:01") Application.OnTime Now() + TimeValue("00:00:01"), "Saatdevam" Else Sayfa1.Range("a1").Value = Time Sayfa1.Range("d5").Value = Sayfa1.Range("a1").Value Application.OnTime Now() + TimeValue("00:00:01"), "Saatdevam" Application.OnTime Now + (TimeValue("00:00:01") / 1000), "degerartir" End If 'Application.EnableEvents = True End Sub Sub degerartir() ' kronometre için bir artırma sistemi Sayfa1.Range("h3").Value = Sayfa1.Range("h3").Value + 1 End Sub Faruk Çubukçu - Bilgi Teknolojileri Danışmanlık www.farukcubukcu.com www.excelakademi.com