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

¦Û§Ú·Pı¨}¦n

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

kimbal

±¾ªº±¡ªp¦³«Ü¦h. ³Ì±`¨£ªº¬O°O¾ÐÅ餣¨¬.
»Ý­n¬Ý¥¨¶°¤º®e,³Ì¦n¬O±¾±¼ªº¤j¬ù¦ì¸m. ³o¼Ë¤~¥i¥H¦³µª®×.
¦pªG¥¨¶°¥u¬O³o­Ó¼Ë¤l, ¦æ100¦¸³£¤£·|¦º

1. sub test
   
2.   dim a
   
3.   a= 1
   
4. end sub

½Æ»s¥N½X

mark15jill

¦^´_ 1# ¦Û§Ú·Pı¨}¦n


    ¨º­Ó¦³®É­Ô¬O©M EXCEL ¦³Ãö«Y...
¤§«e¦³´ú¸Õ¹L °õ¦æ²³æªº+-*/    ³Ì«á¼Æ­È¤£¶W¹L 60000 ¤]¬O Àú«Ü¤j
«á¨Ó¾ã­Ó Office­«¦w¸Ë«á ´N¨S¦¹°ÝÃD

¦Û§Ú·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