添加以下代碼。
私有子SpinButton1_SpinDown()
將下限設置為0。
if Shapes(" textbox 1 ")text frame . text range & gt;那麽0
Shapes(" textbox 1 ")text frame . text range = Shapes(" textbox 1 ")text frame . text range-1)。
如果…就會結束
末端接頭
私有子SpinButton1_SpinUp()
如果需要,還可以將上限設置為100。
if Shapes(" textbox 1 ")text frame . text range & lt;那就100
Shapes(" textbox 1 ")text frame . text range = Shapes(" textbox 1 ")text frame . text range+1)。
如果…就會結束
末端接頭
其余的都差不多。
如果使用文本框控件而不是文本框來顯示數字,假定名稱為textbox1,則代碼中的形狀(" textbox 1 ")text frame . text range。
需要更改為文本框1.value