Assuming you would like to create a button in Excel that will increment or decrement a number in a cell:
Private Sub CommandButton1_Click()
Dim oldValue As Double
Dim newValue As Double
'Get value from cell A1.
oldValue = Range("A1").Value
'Increment or decrement value in cell A1.
If oldValue >= 0 Then
newValue = oldValue + 1
ElseIf oldValue < 0 Then
newValue = oldValue - 1
End If
'Update cell A1 with new value.
Range("A1").Value = newValue
End Sub
This code will create a button that will appear on your worksheet. When clicked, it will increment or decrement the number in cell A1.