¥¨¶°ªº¨Ï¥Î¦³­­¨î¡H

¦Û§Ú·Pı¨}¦n

excel 2007
¥¨¶°°õ¦æ80´X¦¸´N±¾¤F¡C
¦³¤°»ò¦nªºªk¤è¼W¥[¥¨¶°ªº°õ¦æªº¦¸¼Æ¡T

¦Û§Ú·Pı¨}¦n

§ä¨ì¤F
¤£¬O°O¾ÐÅ骺°ÝÃD
¬Oµ{¦¡¨Ö¸Ë¤£¤Ó¦X¾A




Private Sub SpinButton1_SpinDown()
SpinButton1.Value = IIf(SpinButton1.Value - 0 < 1, 1, SpinButton1.Value - 0)
k = SpinButton1.Value
If k < SpinButton1.Min Then Exit Sub
Run "Macro" & k
End Sub


Private Sub SpinButton1_SpinLeft()
SpinButton1.Value = IIf(SpinButton1.Value - 1 < 1, 1, SpinButton1.Value - 1)
k = SpinButton1.Value
If k < SpinButton1.Min Then Exit Sub
Run "Macro" & k
End Sub

Private Sub SpinButton1_SpinRight()
SpinButton1.Value = IIf(SpinButton1.Value + 1 > SpinButton1.Max, SpinButton1.Max, SpinButton1.Value + 1)
k = SpinButton1.Value
If k > SpinButton1.Max Then Exit Sub
Run "Macro" & k
End Sub