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

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

µ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)

¦^´_ 14# JEAN


¨Ã¤£«Øij¥Î¤½¦¡¥t¥~¨ú±o¿é¤J¸ê®Æ
­pºâ¤]¥i¥]§t¦bVBA¤º°õ¦æ
¤j­Pµ²ºc¤W¦pªþÀÉ´N¯à¹B§@
    »s§@¤å¨ã.zip (59.91 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ª©¥D~~§Úªº¶i³f©ú²Ó¼g¤J®ÉÁÙ¬O¦³¤@ÂIÂI°ÝÃD¡C
¬O§_À°§Ú¬Ý¤@¤U

ÁÙ¦³¤@­Ó°ÝÃD·Q½Ð°Ýª©¥D,§Ú¥i¥H§â¨ä¥Lªº¤u§@ªíÁôÂð_¨Ó¶Ü?
§Ú¦³°µ¤@­Ó­º­¶,¸Ì­±¦³«ö¶s¥i¥H¿ï¾Ü¡C
»s§@¤å¨ã - ½Æ»s2.rar (86.64 KB)

TOP

¤£¦n·N«ä~~ª©¥D,¶i³f³æªº¼g¤J¦³¤@ÂI°ÝÃD!!

TOP

½Ð°Ýª©¥D~~
§Ú¥i¥H°µ´X­Ó«ö¶s¨Ó¤Á´«¤u§@ªí
¨Ò¦p:§Ú²Ä¤@­Ó¤u§@ªí¦W¦r¬O­º­¶.....¸Ì­±¦³"¤H­û¸ê®Æ.³f«~¸ê®Æ.¶i³f³æ.¶i³f¦s®w©ú²Óªí.»â¥Î³æ.»â¥Î©ú²Óªí«ö¶s¡C
µM«á§â¤u§@ªíÅܦ¨¤@­Ó´N¦n¤F

TOP

ª©¥D,¬°¤°»ò¶i³f®w¦s©ú²Óªí¨S¦³,¤é´Á¨S¦³¥X¨Ó

ÁÙ¦³½Ð°Ý,¼g¨ì©ú²Óªíªº¸ê®Æ·|¤@µ§¤@µ§ºô¤U°O¿ý¶Ü??
ª©¥D~~¯uªº«D±`ÁÂÁ±z!!

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

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

TOP

¦^´_ 7# JEAN

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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¥¬¬I¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD