Spin up event procedure for spin button : SpinButton « Forms « VBA / Excel / Access / Word





Spin up event procedure for spin button

 
     Private Sub SpinButton1_SpinUp()
         With Range("B4")
             'Increase value in B4 by .05%. Stop at 1%
             .Value = WorksheetFunction.Min(0.01, .Value + 0.0005)
         End With
     End Sub

 

Related examples in the same category

1.Set the SpinButton Min/Max and current value
2.Set Spinner value to a TextBox
3.Assign value from a TextBox to a Spinner
4.The spin button control uses the SpinDown and SpinUp events to decrease and increase the value in cell B4