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

µn¿ý©ú²ÓªíÁÙ¬O¦³°ÝÃD

¨D±Ï¤X~~EXCEL¦p¦ó§â¶i³f³æ¼g¤J¶i³f¦s®w©ú²Óªí¤¤

¥»©«³Ì«á¥Ñ JEAN ©ó 2012-1-18 12:28 ½s¿è

¤j®a¦n:
§Ú¦³¤@­Ó«D±`§xÁ}ªº°ÝÃD
§Ú¥ÎEXCEL°µ¤@­Ó¤å¨ã¨t²Î ,¹J¨ì¤@­Ó«ÜÀYµhªº°ÝÃD,°Ý¤H®a³£¤£·|¥Î¡C

§Úªº°ÝÃD´N¬O~~¦p¦ó§â¶i³f³æªº¤º®e¼g¤J¶i³f¦s®w©ú²Óªí¤¤¡C

§Ú¥Î¥¨¶°¸Õ¤F¦n´X¦¸,¥L³£·|½Æ»\±¼²Ä¤@¦¸°µªº°Ê§@¸ê®Æ,¤£·|ºô¤U½Æ»s¡C

±Ï±Ï¤j®aÀ°À°§Ú~~§Ú«Ü«æ

»s§@¤å¨ã - ½Æ»s2.rar (80 KB)

TOP

¦^´_ 1# JEAN
  1. Sub Macro3()
  2. Set b = Sheets("¶i³f¦s®w©ú²Óªí").[A1048576].End(xlUp).Offset(1, 0)
  3. Rng = Range([A9], [A9].End(xlDown).Offset(, 9))
  4.     b.Offset(, 1).Resize(UBound(Rng, 1), UBound(Rng, 2)) = Rng
  5.     b.Resize(UBound(Rng), 1) = [I3]
  6. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

±z¦n:

ª©¥D,§Ú¥u­n§â³o­Ó¼Ò²Õ«Ø¥ß°_¨Ó´N¥i¥HÂà¨ì©ú²Óªí¤F¶Ü

TOP

¦^´_ 3# JEAN


    test.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

µn¿ý©ú²ÓªíÁÙ¬O¦³°ÝÃD

±z¦n:

¥i¥H½Ðª©¥DÀ°§Ú¥Î    "¶i³f¦s®w©ú²Óªí"©M"»â¥Î°O¿ý©ú²Óªí"ªºµn¿ý

§Ú¥þ³¡³£°µ¦n¤F,¥u®tµn¿ý³¡¥÷~~«ô°Uª©¥D

½Ð°Ý¤@¤U...°²¦p:¦³¤H¥u»â¥Î¤@¥ó¤å¨ã,µn¿ý®É·|¤£·|¤@¥ó¤@¥óµn¿ý

¦]¬°©ú¦~1/1¤é¤@©w­n¥Î¦n,¤£µM§Ú·|³Q½|!!

»s§@¤å¨ã - ½Æ»s2.rar (45.41 KB)

¦^´_ 5# JEAN
  1. Sub »â¥Î³æ¼g¤J()
  2. Dim Ar()
  3. With Sheets("»â¥Î³æ")
  4. If Application.CountA(.[A6:A16]) > 0 Then
  5. For Each a In .[A6:A16].SpecialCells(xlCellTypeConstants)
  6.   ReDim Preserve Ar(s)
  7.   Ar(s) = Array(.[B3].Value, .[B4].Value, a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value, a.Offset(, 3).Value, a.Offset(, 4).Value, a.Offset(, 5).Value, a.Offset(, 6).Value, a.Offset(, 7).Value)
  8.   s = s + 1
  9. Next
  10. Sheets("»â¥Î°O¿ý©ú²Óªí").[A1048576].End(xlUp).Offset(1, 0).Resize(s, 10) = Application.Transpose(Application.Transpose(Ar))
  11. End If
  12. End With
  13. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ª©¥D
¬°¤°»òÂà¨ì©ú²Óªí®æ¤l·|¶]±¼©O

TOP

¦^´_ 7# JEAN

«ç¼Ë®æ¤l¶]±¼?
³o¥u¬O±N­È¼g¤J¡A®æ¦¡À³¸Ó»P§A­ì¥»³]©wµLÃö
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¼g¤J®É,¨S¦³¼g¨ì"¤é´Á"ªº®æ¤l
¨ä¥L³£¨S¦³°ÝÃD®æ¤l¨S¦³°ÝÃD

TOP

¦^´_ 9# JEAN
  1. Sub »â¥Î³æ¼g¤J()
  2. Dim Ar()
  3. With Sheets("»â¥Î³æ")
  4. If Application.CountA(.[A6:A16]) > 0 Then
  5. For Each a In .[A6:A16].SpecialCells(xlCellTypeConstants)
  6.   ReDim Preserve Ar(s)
  7.   Ar(s) = Array(.[B3].Value, .[B4].Value, .[H3].Value, a.Value, a.Offset(, 1).Value, a.Offset(, 2).Value, a.Offset(, 3).Value, a.Offset(, 4).Value, a.Offset(, 5).Value, a.Offset(, 6).Value, a.Offset(, 7).Value)
  8.   s = s + 1
  9. Next
  10. Sheets("»â¥Î°O¿ý©ú²Óªí").[A1048576].End(xlUp).Offset(1, 0).Resize(s, 11) = Application.Transpose(Application.Transpose(Ar))
  11. End If
  12. End With
  13. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

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