spinbutton otomatik hale getirme

[serseri26]

merhaba arkadaşlar spinbutton otomatik hale nasıl getirebilirim.
yani üst dügmesine bir kere bastığım zaman saymaya başlayacak bir daha bastığım zaman duracak böyle birşey mümkünmüdür.kod bölümüne nasıl bir kod eklemem gerekiyor
teşekkürler

 

[janveljan]

Merhaba
Bir örnek yaptım inceler misiniz?

Dim onay
Private Sub SpinButton1_Change()
TextBox1.Value = SpinButton1.Value
End Sub
Private Sub SpinButton1_SpinDown()
onay = Not onay
If onay Then azalt
End Sub
Private Sub SpinButton1_SpinUp()
onay = Not onay
If onay Then arttır
End Sub
Private Sub UserForm_Initialize()
SpinButton1.Max = 100000
SpinButton1.Min = 0
End Sub
Sub arttır()
ilk = SpinButton1.Value
son = SpinButton1.Max
For i = ilk To son
If onay = False Then Exit Sub
'Application.Wait Now + TimeValue("00:00:01")
DoEvents
SpinButton1.Value = i
Next
End Sub
Sub azalt()
ilk = SpinButton1.Value
son = SpinButton1.Min
For i = ilk To son Step -1
If onay = False Then Exit Sub
'Application.Wait Now + TimeValue("00:00:01")
DoEvents
SpinButton1.Value = i
Next
End Sub

 

[serseri26]

cevabın için teşekkür ederim
ben bunu kendime uyarlıyamadım

Private Sub SpinButton1_Change()
Range("f2").Value = CStr(SpinButton1.Value)
If SpinButton1.Value = SpinButton1.Max Then
SpinButton1.Value = SpinButton1.Min
Range("e2").Select
SAYI = Range("e2").Value
SAYI = SAYI + 1
Range("e2").Value = SAYI
End If
End Sub

bu kod benim orjinal kodum bu koda göre verdiğin kodu uyarlıyabilirmisin.sadece bir kere tıkldığım zaman otomatik çalışmasını istiyorum ve tekrar tıkladığım zaman durmasını istiyorum
şimdiden teşekkürler

 

[janveljan]

Böyle dener misin?

Dim onay
Private Sub SpinButton1_Change()
Range("f2").Value = CStr(SpinButton1.Value)
If SpinButton1.Value = SpinButton1.Max Then
SpinButton1.Value = SpinButton1.Min
Range("e2").Select
SAYI = Range("e2").Value
SAYI = SAYI + 1
Range("e2").Value = SAYI
End If
End Sub
Private Sub SpinButton1_SpinDown()
onay = Not onay
If onay Then azalt
End Sub
Private Sub SpinButton1_SpinUp()
onay = Not onay
If onay Then arttır
End Sub
Private Sub UserForm_Initialize()
SpinButton1.Max = 100000
SpinButton1.Min = 0
End Sub
Sub arttır()
ilk = SpinButton1.Value
son = SpinButton1.Max
For i = ilk To son
If onay = False Then Exit Sub
'Application.Wait Now + TimeValue("00:00:01")
DoEvents
SpinButton1.Value = i
Next
End Sub
Sub azalt()
ilk = SpinButton1.Value
son = SpinButton1.Min
For i = ilk To son Step -1
If onay = False Then Exit Sub
'Application.Wait Now + TimeValue("00:00:01")
DoEvents
SpinButton1.Value = i
Next
End Sub

 

[serseri26]

cevabın için teşekkürler
ama olmadı kardeş bu kod ben örnek dosya ekliyorum tekrar bakarsanız sevinirim.
teşekkürler

 

[serseri26]

uzman arkadaşların yardımlarını bekliyorum

 

[janveljan]

Kodların tümünü almaya dikkat edin, bu kodları bir deneyin, istediğiniz işlemi yapacağını düşünüyorum.

Dim onay
Private Sub SpinButton1_Change()
Range("F2").Value = CStr(SpinButton1.Value)
If SpinButton1.Value = SpinButton1.Max Then
SpinButton1.Value = SpinButton1.Min
'Range("E2").Value = Range("E2").Value + 1
arttır
End If
End Sub
Private Sub SpinButton1_SpinDown()
onay = Not onay
If onay Then azalt
End Sub
Private Sub SpinButton1_SpinUp()
onay = Not onay
If onay Then arttır
End Sub
Private Sub UserForm_Initialize()
SpinButton1.Max = 100000
SpinButton1.Min = 0
End Sub
Sub arttır()
ilk = SpinButton1.Value
son = SpinButton1.Max
For i = ilk To son
If onay = False Then Exit Sub
'Application.Wait Now + TimeValue("00:00:01")
DoEvents
SpinButton1.Value = i
Next
End Sub
Sub azalt()
ilk = SpinButton1.Value
son = SpinButton1.Min
For i = ilk To son Step -1
If onay = False Then Exit Sub
'Application.Wait Now + TimeValue("00:00:01")
DoEvents
SpinButton1.Value = i
Next
End Sub

 

[serseri26]

oldu çok sağolun