[µo°Ý] ½Ð°ÝÀx¦s®æ½Æ»sªº°ÝÃD

yiwei0707

½Ð°Ý¤@¤U"06"&"TEMP"¬Ò¦b¦P¤@¬¡­¶Ã¯¸Ì
¦ý¥Î¥H¤Uªº¤è¦¡·|¥X²{¿ù»~°T®§
°õ¦æ¶¥¬q¿ù»~ '1004':
À³¥Îµ{¦¡©Îª«¥ó©w¸q¤Wªº¿ù»~

½Ð°Ý»yªk¨º¸Ì¦³¿ù»~??
¬O§_¦³¤j¤j¥i¥HÀ°¦£¸Ñ»¡¤@¤U¡CÁÂÁÂ

1.     If K = 1 Then
   
2.     Else
   
3.         For I = 1 To K
   
4.             J = Sheets("TEMP").Cells(I, 1)
   
5.             Sheets("06").Range(Cells(J, 5), Cells(J, 6)) = Sheets("TEMP").Range(Cells(I, 2), Cells(I, 3))
   
6.         Next
   
7.     End If

½Æ»s¥N½X

Hsieh

¦^´_ 1# yiwei0707
    If K = 1 Then

    Else

        For I = 1 To K

            J = Sheets("TEMP").Cells(I, 1)

            Sheets("06").Range(Sheets("06").Cells(J, 5), Sheets("06").Cells(J, 6)) = Sheets("TEMP").Range(Sheets("TEMP").Cells(I, 2), Sheets("TEMP").Cells(I, 3))

        Next

    End If

yiwei0707

¦^´_ 2# Hsieh


    ´ú¸Õ§ó§ï¤F¤§«á´N¨S¥X²{¿ù»~¡A¦ý¸ê®Æ¨Ã¤£·|COPY¨ì"06"¤u§@ªíªº¦ì¤l¡K

Hsieh

¦^´_ 3# yiwei0707


    ³o¬O°w¹ïµ{¦¡½X¿ù»~ªº­×¥¿¡A¦Ü©ó¸ê®Æ¨S¿ìªk¼g¤J¡A¥ú¬Ý³¡¥÷µ{¦¡½X¬OµLªkµ¹§A¥ô¦ó«Øijªº

yiwei0707

¦^´_ 4# Hsieh


    ªþ¤WÀɮסA½Ð¤j¤jÀ°¦£¨ó§U¤@¤U¡CÁÂÁÂ

¤ÀÃþ¾P°â¬d¸ß.zip (669.57 KB)

¤U¸ü¦¸¼Æ: 5

2017-12-8 12:13

Hsieh

¦^´_ 5# yiwei0707


    ÁÙ¬O¥X¦b«ü©w¤u§@ªíªº°ÝÃD
¤ÀÃþ¾P°â¬d¸ß.rar (256.71 KB)

¤U¸ü¦¸¼Æ: 3

2017-12-10 09:52

yiwei0707

¦^´_ 6# Hsieh


    ÁÂÁ¤j¤jªºÀ°¦£~