Spinbutton İle Textbox Nesnesinde Artırma Ve Azaltma

Bu dosya, bir UserForm üzerindeki SpinButton (çevirme düğmesi) ile TextBox içindeki sayının nasıl artırılıp azaltılacağını gösteren çalışan bir örnektir. Adet, miktar gibi sayısal girişlerin klavye yerine oklarla değiştirilmesi gereken formlar için başlangıç noktası olarak kullanılabilir.

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

Dosyanın içeriği​

• Module1: Formu açan makroyu barındırır.
• UserForm1: sbQty adlı SpinButton ve tbQty adlı TextBox nesnelerini içeren formdur; artırma ve azaltma kodları bu formun içindedir.

Makrolar​

• openuserform1 (Module1): UserForm1 formunu ekrana getirir. Alt+F8 ile çalıştırılabilir ya da sayfaya eklenen bir düğmeye atanabilir.
• sbQty_SpinUp (UserForm1): SpinButton yukarı oka basıldığında çalışır. TextBox boşsa değeri 0 yapar, ardından değeri 1 artırır.
• sbQty_SpinDown (UserForm1): Aşağı oka basıldığında çalışır. TextBox boşsa değeri 0 yapar, ardından değeri 1 azaltır; değer 0'ın altına da inebilir.

Her iki olay makrosunda On Error Resume Next kullanılır; TextBox'a sayı olmayan bir metin yazılırsa hata mesajı çıkmaz, işlem sessizce atlanır. Kodda dosya silme veya dışarıya bağlantı gibi işlem bulunmaz.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Alt+F8 ile openuserform1 makrosunu çalıştırın; form açılır.
3. SpinButton'un yukarı okuna basarak TextBox'taki sayıyı artırın, aşağı okuna basarak azaltın.
4. Artış miktarını değiştirmek için Alt+F11 ile UserForm1 kodunda yer alan 1 değerini istediğiniz sayıyla değiştirin.
5. Kendi formunuza uyarlamak için nesne adlarını (sbQty, tbQty) kendi nesnelerinizin adlarıyla eşleştirin.