SpinButton İle Kronometre Sayacı

Bu dosya, bir UserForm üzerindeki TextBox'ın SpinButton denetimiyle kronometre gibi otomatik sayması için hazırlanmış bir VBA örneğidir. Ok düğmesine bir kez tıklandığında sayaç kendiliğinden artmaya veya azalmaya başlar, ikinci tıklamada durur.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• exceldestekc.om | exceldepo.com sayfası: A1:F11 aralığında yer alan tek sayfadır. Üzerinde formu açan bir CommandButton bulunur; sayfada formül yoktur.
• UserForm1: Sayacı gösteren TextBox1 ile sayacı yöneten SpinButton1 denetimlerini barındıran formdur.
• Module1: Formu açan form makrosunu içerir.

Makrolar​

• CommandButton1_Click (Sayfa1): Sayfadaki düğmeye basıldığında UserForm1 açılır.
• form (Module1): Aynı şekilde UserForm1'i açar; Alt+F8 ile de çalıştırılabilir.
• UserForm_Initialize: Form açılırken SpinButton1 için alt sınır 0, üst sınır 100000 olarak ayarlanır.
• SpinButton1_Change: SpinButton1 değeri her değiştiğinde TextBox1'e yazılır; böylece sayaç ekranda izlenir.
• SpinButton1_SpinUp ve SpinButton1_SpinDown: Yukarı veya aşağı oka her tıklamada onay değişkeni tersine çevrilir. Değer doğruysa sırasıyla arttır veya azalt prosedürü başlar.
• arttır ve azalt: Mevcut değerden üst sınıra (100000) veya alt sınıra (0) kadar birer birer sayan döngüyü çalıştırır. Her adımda DoEvents ile form yanıt vermeye devam eder; onay yanlış olduğunda döngüden çıkılır ve sayaç durur. Koddaki Application.Wait satırı yorum olarak bırakılmıştır; bu satır etkinleştirilirse sayım saniyede bir adıma yavaşlatılabilir.

Kodda dosya silme veya dışarıya bağlantı gibi işlem yoktur.

Nasıl kullanılır​

1. Dosyayı açıp makroları etkinleştirin.
2. Sayfadaki düğmeye tıklayarak UserForm1'i açın.
3. Sayacı başlatmak için SpinButton'un yukarı okuna tıklayın; değer TextBox'ta artarak ilerler.
4. Sayacı durdurmak için aynı oka tekrar tıklayın.
5. Geriye doğru saymak için aşağı oku kullanın; durdurmak için yine tekrar tıklayın.
6. Kodu incelemek veya sınır değerlerini değiştirmek için Alt+F11 ile VBA düzenleyicisinde UserForm1 kodunu açın.