SpinButton ile Saat Hareketlerini Kontrol Etme

Bu dosya, saat değerinin klavyeden yazılması yerine bir UserForm üzerindeki SpinButton ile girilmesini gösteren örnek bir çalışmadır. Saat kutusundaki değer, butonun yukarı ve aşağı oklarıyla 30 dakikalık adımlarla değiştirilir.

Dosya makro içerir (.xlsm); açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: Sayfada veri ve formül bulunmaz; UserForm1 formunu açan tetikleyici nesne bu sayfadadır.
• UserForm1: Saat değerinin gösterildiği metin kutusu (tbTime) ve SpinButton1 nesnesini barındıran form.
• Module1: Formu açan makroyu içeren modül.

Makrolar​

• DikdörtgenKöşeleriYuvarlatılmış1_Tıkla (Module1): UserForm1 formunu ekrana getirir. Sayfadaki yuvarlatılmış köşeli dikdörtgen şekle atanarak çalıştırılır.
• SpinButton1_SpinUp (UserForm1): Metin kutusundaki saati okur ve 30 dakika ileri alır. Değer 11:30 PM ise sonuç 12:00 AM olur.
• SpinButton1_SpinDown (UserForm1): Metin kutusundaki saati 30 dakika geri alır. Değer 12:00 AM ise 11:30 PM, 12:30 AM ise 12:00 AM değerine geçilir.

Hesaplamada CDate ile metin saat değerine, DateAdd ile dakika ekleme ve çıkarma işlemine çevrilir. Kodda dosya silme ya da dış bağlantı gibi işlem bulunmaz.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1 üzerindeki yuvarlatılmış köşeli dikdörtgene tıklayarak formu açın.
3. Metin kutusunda başlangıç saatinin yazılı olduğundan emin olun; kutu boşsa SpinButton saati okuyamaz.
4. SpinButton'un yukarı okuyla saati 30 dakika artırın, aşağı okuyla 30 dakika azaltın.
5. Kendi çalışmanızda kullanmak için VBA düzenleyicisinde SpinButton1_SpinUp ve SpinButton1_SpinDown yordamlarındaki adım değerini (30) değiştirebilirsiniz.