Mega Code Archive

 

Categories / VisualBasic Script / Forms

 

The spin button control uses the SpinDown and SpinUp events to decrease and increase the value in cell B4

'Spin down event procedure for spin button      Private Sub SpinButton1_SpinDown()          With Range("B4")              'Decrease value in B4 by .05%. Stop at 0%              .Value = WorksheetFunction.Max(0, .Value - 0.0005)          End With      End Sub