'微调按钮控件属性
Sub SpinButtonAttribute1()
'最大最小值
Sheet2.SpinButton1.Min = 1
Sheet2.SpinButton1.Max = 10
End Sub
Sub SpinButtonAttribute2()
'返回值
Sheet2.Range("A1") = Sheet2.SpinButton1.Value
End Sub
Sub SpinButtonAttribute3()
Sheet2.SpinButton1.Visible = True
End Sub
Sub SpinButtonAttribute4()
Sheet2.SpinButton1.Enabled = True
End Sub
Private Sub SpinButton1_Change()
Call SpinButtonAttribute2
End Sub