µLªk±a¤J·Q­nªº­È

yanto913

Sub macro()
Machine1=100
Machine2=200
Machine3=300
For n = 1 To 3
Cells(n, 1)=machine & n
Next
End Sub
§Æ±æ±a¥X
A1=100
A2=200
A3=300
¥Ø«e¬O¥d¦bCells(n, 1)=machine & n¤£ª¾¹D¸Ó¦p¦ó¼g

yanto913

·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¤§«á¥u­n§ï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