ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

½Ð°Ý¤@¤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

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh


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

TOP

¦^´_ 3# yiwei0707


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

TOP

¦^´_ 4# Hsieh


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

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

TOP

¦^´_ 5# yiwei0707


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

TOP

¦^´_ 6# Hsieh


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

TOP

        ÀR«ä¦Û¦b : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD