- ©«¤l
- 116
- ¥DÃD
- 29
- ºëµØ
- 0
- ¿n¤À
- 232
- ÂI¦W
- 0
- §@·~¨t²Î
- winXp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- ¨Ó¦Û
- ¥xÆW¥x¤¤¥«
- µù¥U®É¶¡
- 2010-9-6
- ³Ì«áµn¿ý
- 2023-7-11
|
·PÁ¤j®aªºÀ°§U¡Aì¨Ó¦³¦UÓ¤èªk¥i¥H¹F¨ì
¦ýÁÙ¬O±ÀGBKEE ª©¤j©Ò¼gªº
¦]¬°¹B¥Î¤ñ¸û¤è«K¡A¦]¬°°}¦C1¨ì50ªºÃe¤j±a¤JÈ¥i¥Îfor to ..... next¸Ñ¨M¡A
¦Ó¥B¥Øªº¬O±NMachine(1)±a¤Jfor to ..... next(¤º§t¤j¶qµ{¦¡½X)¹Bºâ¤@¹M¡A«á¦AMachine(2)....Machine(50)¡A¤§«á¥un§ïMachine(1)=123¡AMachine(2)=412¡A.....Machine(50)=816¡A§Y¨Ï¦UÓ¼ÆȤ§¶¡¤£¦s¥ô¦óµ¥¤ñ©Îµ¥®tÃö«Y¤]¤ñ¸û¤è«K
Sub macro()
Dim Machine(1 To 50) '«Å§iÅܼƬ°°}¦C,¨Ã³]©w°}¦Cªººû¼Æ.
Machine(1) = 123
Machine(2) = 412
.
.
.
Machine(50) = 816
For n = 1 To 50
Cells(n, 1) = Machine(n)
.
.
.
.
Next
End Sub |
|