hugh0620

¦^´_ 5# oobird


    ©êºp­ò~ ¬O§Ú¶Ç¿ùÀÉ~ Åý¤j¤j»~·|¤F~
    ­«¶Ç¤@¦¸
    array °}¦CÀ³¥Î.rar (7.76 KB)

¤U¸ü¦¸¼Æ: 31

2010-12-9 09:42

oobird

¨º»òÀ³¸Ó¬O§A¶Ç¿ù¤å¥ó¤F¡C
§Aªº¤å¥ó¤¤¨Ã¨S¦³§A»¡ªº
1. Customer ¸ê®Æ¦³¨âµ§       (¤j¬ù»Ý©ñ¤j¦Ü100µ§)
    2. ª¬ºA ¸ê®Æ¦³¤Tµ§
    3. ABÄæ¬O§Ú®i¶}«á©Ò»Ý­nªºµ²ªG

hugh0620

¦^´_ 3# oobird


    ¤j¤j ³o¬O§Ú²Ä¤@¦¸µo       §Ú¦bµo¤§«e¦³²{§ä´M¹L«á
            ¨S¦³¬d¨ì¬ÛÃöªº¸ê®Æ   §Ú¤~µo©«
        ½Ð¤Å»~·|

oobird

³o­Ó¤£¬O¸Ñ¨M¹L¤F¶Ü¡H«ç»ò¤S¨Ó¤@¦¸¡H

hugh0620

¦^´_ 1# hugh0620


   ¤j¤j­Ì

   «á¨Ó§Ú¬Ý¨ì¤@¨Ç¤j¤j¥H«e¼gªº¤è¦¡,À°¦£¬Ý¤@¤U¦³¨S¦³»Ý­n§ï¶iªº  (­Y¬O°}¦C¤¤ªº¸ê®Æ¦³´X¤Qµ§®É,¦³§_§ó¦nªº¤è¦¡©O?????)
    N = 0
     I = 0
     Do Until Sheet1.Cells(3 + I, 4) = ""
           For Each R In Array("F", "O", "P")
               Sheet1.Cells(3 + N, 1) = R
               Sheet1.Cells(3 + N, 2) = Sheet1.Cells(3 + I, 4)
               N = N + 1
           Next
         I = I + 1
     Loop