Excel'de Kronometre Oluşturma (Temel + Toastmasters Stili)

IBM'de çalışırken bir ToastMasters International kulübünün parçasıydım. İletişim ve liderlik becerilerinizi geliştirebileceğiniz bir yerdir.

Haftalık toplantılardaki ilginç bir bölüm hazırlıksız konuşmaydı. Toplantının bu bölümünde kişiye bir konu verilmiş ve 2 dakika bu konu üzerinde konuşması istenmiştir. Konuşmanın zamanını ayarlayan ve 1 dakika yeşil kart, 1:30 dakika sarı kart, 2 dakika sonra kırmızı kart gösteren belirlenmiş bir kişi vardı.

Genellikle bir akıllı telefon veya saat konuşmanın süresini ayarlamak için kullanılır ve geçen süre bir kağıda manuel olarak kaydedilir.

Çoğu zaman, kişi renkli kartları göstermeyi unutur veya bazen konuşmacıların zamanlamasını kaydetmeyi unutur (bana her zaman olur). Bunları göz önünde bulundurarak, Excel'de zamana yardımcı olacak ve konuşmaları kaydedecek bir kronometre oluşturdum.

Önce Excel'de temel bir kronometrenin nasıl oluşturulacağını öğrenelim.

Excel'de Kronometre Nasıl Oluşturulur (Temel)

Excel'de basit/temel bir kronometre ile, başlat düğmesine bastığımızda başlayacak ve durdur düğmesine bastığımızda duracak bir şeyi kastediyorum.

Aşağıda gösterildiği gibi bir şey:

Bu Temel Kronometreyi Excel'de indirin

Bu kronometreyi Excel'de oluşturmak için aşağıdakileri bilmeniz gerekir: Uygulama.Zamanında VBA'daki yöntem.

VBA'da Application.OnTime Yöntemi

Application.OnTime yöntemi, gelecekte belirli bir kodu çalıştırmak istediğinizde kullanılabilir. Örneğin, 1 saat sonra ayağa kalkıp bacaklarınızı esnetmenizi hatırlatmak için bir mesaj kutusu göstermek veya 3 saat sonra ilaç almak için kullanabilirsiniz.

Application.OnTime Yönteminin Sözdizimi:

Application.OnTime(En erken zaman, prosedür, En son zaman, Takvim)

• EarlyTime: Prosedürü çalıştırmak istediğiniz zaman.
• Prosedür: Çalıştırılması gereken prosedürün adı.
• LastTime (Opsiyonel): Başka bir kodun çalışıyor olması ve belirttiğiniz kodun belirtilen zamanda çalıştırılamaması durumunda beklemesi gereken En SonZamanı belirtebilirsiniz. Örneğin, EarlyTime + 45 olabilir (bu, diğer prosedürün tamamlanması için 45 saniye bekleyeceği anlamına gelir). 45 saniye sonra bile işlem yapılamıyorsa, terk edilir. Bunu belirtmezseniz, Excel kodun çalıştırılabilmesini bekleyecek ve ardından çalıştıracaktır.
• Program (İsteğe bağlı): True olarak ayarlanırsa yeni zaman prosedürünü planlar. False ise, önceden ayarlanmış prosedürü iptal eder. Varsayılan olarak, bu Doğru'dur.

Application.OnTime Yöntemine Bir Örnek

Sub test() Application.OnTime Now + TimeValue("00:00:05"), "ShowMessage" End Sub Sub ShowMessage() MsgBox ("HELLO") End Sub

Makronun ilk bölümü Application.OnTime yöntemini kullanır ve beş saniye sonra ShowMessage (çift tırnak içinde) yordamını çalıştırır. ShowMessage prosedürü, HELLO istemiyle mesaj kutusunu gösterir.

Geçerli zamandan belirli bir süre sonra herhangi bir yordamı çalıştırmak için bu biçimi kullanabilirsiniz.

Şimdi bu konsepti kullanarak, Excel'de basit bir kronometre oluşturma koduna bakalım.

Dim NextTick As Date, t As Date Sub StartStopWatch() t = Zaman Çağrısı StartTimer End Sub Sub StartTimer() NextTick = Time + TimeValue("00:00:01") Range("A1").Value = Format(NextTick - t - TimeValue("00:00:01"), "ss:mm:ss") Application.OnTime NextTick, "StartTimer" End Sub Sub StopTimer() Hatada Sonraki Application.OnTime EarliestTime:=NextTick, Prosedür:= "StartTimer", Schedule:=False End Sub

Bu kodun 3 bölümü vardır:

• İlk kısım, geçerli zamanı t değişkenine başlatır. Ardından başka bir StartTimer prosedürünü çağırır.
• StartTimer prosedürü, her geçen saniyede 1 artan bir NextTick değişkeni kullanır. Çalışma sayfasında, A1 hücresi, NextTick - t -TimeValue(“00:00:01”), “ss:dd:ss”) o hücredeki değer olarak belirttiğimiz gibi çalışan zamanlayıcıya sahiptir. Ardından her saniyeden sonra StartTimer kodunu yeniden çalıştırır.
• StopTimer, zamanlama değerini False yaparak Application.Ontime prosedürünü iptal eder. Bu, zamanlayıcıyı durdurur.

İşte yukarıdaki kodla elde edeceğiniz şey (makroları başlat/durdur düğmelerine atadım):

Bu, Excel'deki temel bir kronometredir.

Ortada duramayacağınız ve kaldığınız yerden yeniden başlayamayacağınız için temel diyorum. Başlat düğmesine bastığınızda her zaman 1'den yeniden başlar.

Artık Application.OnTime yönteminin temellerini öğrendiğinize göre, Excel'de istediğiniz türde bir kronometre oluşturmak için bunu kolayca değiştirebilirsiniz.

Excel'de Kronometre (ToastMasters için)

Yukarıda tartışılan konsepti kullandım ve Excel'de Toastmasters toplantısında kullanılabilecek bir Kronometre oluşturdum (ki bu eğitimin başında bahsettim).

Bu kronometre kullanılarak yapılabilecekler şunlardır:

• Zamanlayıcıyı durdurabilir ve ardından aynı andan itibaren yeniden başlatabilirsiniz (o zamana kadar kaydedilmiştir).
• Zamanlayıcıyı sıfırlayabilirsiniz. Bu, zamanlayıcı değerini 0'a ayarlar. Bunu yaptığınız anda, geçen toplam süreyi otomatik olarak kaydeder.
• Kronometre değerine bağlı olarak zamanlayıcı kutusunun rengini değiştirir (bu yeşil/sarı/kırmızı kartları göstermek için iyi bir hatırlatma olabilir).

İşte nasıl göründüğü:

Bu yukarıdaki demoda, renk değişimini her beş saniyede bir ayarladım. Hesaplama sayfasındaki değerleri değiştirerek rengin ne zaman değişmesini istediğinizi (yeşil kart 1 dk, sarı kart 1.5 dk ve kırmızı kart 2 dk) kolayca belirleyebilirsiniz.

Reset butonuna basar basmaz timer'ın rengi beyaza döner, timer değeri 0 olur ve zamanı G sütununa kaydeder.

Not: Bu dosyalar makro içerdiğinden, kullanmadan önce makroları etkinleştirmeniz gerekecektir. Çalışma kitabını açtığınızda sarı bir düğme göreceksiniz - İçeriği Etkinleştir. Makroları etkinleştirmek için üzerine tıklayın.

Bir zamanlayıcı kullanarak harika bir şey yaratırsanız, benimle paylaşın.