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

[µo°Ý] [¸ê®Æ°Ï°ìªº¿ï¾Ü]§t¤½¦¡¦ýµL¼Æ­ÈªºÀx¦s®æµø¬°ªÅ¥Õ

[µo°Ý] [¸ê®Æ°Ï°ìªº¿ï¾Ü]§t¤½¦¡¦ýµL¼Æ­ÈªºÀx¦s®æµø¬°ªÅ¥Õ

½¤F¤å,§ä¨ì¤@­Ó¾A¥Îªº,¦ý¬O¤£·|®M¥Î

½Ð°Ý¦p¦ó±NSheets("¤é³øªí").Range("B3")¤ºªº¸ê®Æ
½Æ»s¨ìSheets("ºî¦X¸ê®Æ®w").Range("B65536")

®M¥Î¤U¦C¨ç¦¡
lastRow = 65536 - Application.CountBlank(Columns(1))
[A1].Resize(lastRow).Copy

¦^´_ 1# jackson7015
§A»¡ªº¦³ªº¨Ç¼Ò½k,¤W¶ÇÀÉ®×»¡²M·¡§a.

TOP

¥»©«³Ì«á¥Ñ jackson7015 ©ó 2012-2-8 14:15 ½s¿è

¦^´_ 2# GBKEE


    ªþ¤WÀÉ®×
¤u§@ªí.rar (29.15 KB)

1.
B5:B1000³£¦³¤½¦¡,­n±N¤é³øªíªºB3½Æ»s¨ì¸ê®Æ®wªºB¦CµLÅã¥Ü¤é´Áªº²Ä¤@®æªÅ®æ

2.
¤é´Á¥i§_¥u½Æ»sÀx¦s®æÅã¥Üªº"·í¤Ñ¤é´Á",¦Ó«DB3ªºTODAY()

TOP

¦^´_ 3# jackson7015
¸Õ¸Õ¬Ý
  1. Sub Ex()
  2.     Dim Ar(), Rng As Range, Xi As Integer
  3.     With Sheets("¤é³øªí")
  4.         Set Rng = .Range("d7", .[d7].End(xlDown))  '¸ê®Æ½d³ò: BÄ榳®Æªº¦C
  5.         ReDim Ar(1 To Rng.Count, 1 To 10)          '°}¦Cªº¤j¤p 1 To 10 => ¸ê®Æ½d³ò BÄæ:KÄæ
  6.         For Xi = 1 To Rng.Count
  7.             Ar(Xi, 1) = Date                       '¤é´Á
  8.             Ar(Xi, 2) = .Cells(Rng(Xi).Row, "B")   '½s¸¹
  9.             Ar(Xi, 3) = .Cells(Rng(Xi).Row, "N")   '³Æµù
  10.             Ar(Xi, 4) = .Cells(Rng(Xi).Row, "D")   '¦aÂI
  11.            S = "=IF(RC[4]=1,""¬dµL"",IF(RC[3]=1,""¦¨®×"" & SUM(RC[6]:RC[9])&""KW"",""""))"
  12.             Ar(Xi, 5) = S                          '¦¨®×
  13.             Ar(Xi, 6) = .Cells(Rng(Xi).Row, "G")
  14.             Ar(Xi, 7) = .Cells(Rng(Xi).Row, "H")
  15.             Ar(Xi, 8) = .Cells(Rng(Xi).Row, "I")
  16.             Ar(Xi, 9) = .Cells(Rng(Xi).Row, "J")
  17.           '  Ar(Xi, 10) = .Cells(Rng(Xi).Row, "n")  '  ** ½Ð°Ý³o¸Ì ­n¼g¨Ç¤°»ò?   **
  18.         Next
  19.     End With
  20.     With Sheets("ºî¦X¸ê®Æ®w")
  21.         .Range("B5:O" & Rows.Count) = ""        '²M°£ ¸ê®Æ
  22.         .[B5].Resize(Rng.Count, 10) = Application.Transpose(Application.Transpose(Ar))
  23.                                                'Âà¸m°}¦C  ¶ñ¤J:¸ê®Æ
  24.     End With
  25. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ jackson7015 ©ó 2012-2-8 19:17 ½s¿è

¦^´_ 4# GBKEE

¤­Åé§ë¦aªº·PÁÂGBKEEª©¥D..

³o¤u§@ªí·Q¤F¦n´X¤Ñ§Ö·Q¯}ÀY¤F..

­n¨Dªº°ÝÃD¥u¦³1.2­Ó¡A«o§â¾ã½g³£´X¥G¸Ñ¨M¤F..

¤p§ÌÁÙ¦³¨Ç°ÝÃD¡A¸ê®Æ®w¬O¤é³øªíªº²Ö­p

©Ò¥H¥i¥H¤£²M°£¸ê®Æ®w¡A¦Ó¬O²Ö­pªº¤è¦¡Ä~Äò¶ñ¤J¸ê®Æ®w¶Ü

ªþ¤WÀÉ®× ¤u§@ªí.rar (22.07 KB)
  1. Sub Ex()
  2.     Dim Ar(), Rng As Range, Xi As Integer
  3.     With Sheets("¤é³øªí")
  4.         Set Rng = .Range("d7", .[d7].End(xlDown))  '¸ê®Æ½d³ò: BÄ榳®Æªº¦C
  5.         ReDim Ar(1 To Rng.Count, 1 To 14)          '°}¦Cªº¤j¤p 1 To 14 => ¸ê®Æ½d³ò BÄæ:OÄæ
  6.         For Xi = 1 To Rng.Count
  7.             Ar(Xi, 1) = Date                       '¤é´Á
  8.             Ar(Xi, 2) = .Cells(Rng(Xi).Row, "B")   '½s¸¹
  9.             Ar(Xi, 3) = .Cells(Rng(Xi).Row, "N")   '³Æµù
  10.             Ar(Xi, 4) = .Cells(Rng(Xi).Row, "D")   '¦aÂI
  11.            S = "=IF(RC[4]=1,""¬dµL"",IF(RC[3]=1,""¦¨®×"" & SUM(RC[6]:RC[9])&""KW"",""""))"
  12.             Ar(Xi, 5) = S                          '¦¨®×
  13.             Ar(Xi, 6) = .Cells(Rng(Xi).Row, "E") ¡@'¥D­n
  14.             Ar(Xi, 7) = .Cells(Rng(Xi).Row, "F") ¡@'«D¥D­n
  15.             Ar(Xi, 8) = .Cells(Rng(Xi).Row, "G") ¡@'¬O
  16.             Ar(Xi, 9) = .Cells(Rng(Xi).Row, "H")¡@'§_            
  17.             KK = "=IF(COUNTA(RC[-1]),""¬O"",IF(COUNTA(RC[-2]),""§_"",""""))"            
  18.             Ar(Xi, 10) = KK
  19.             Ar(Xi, 11) = .Cells(Rng(Xi).Row, "I") ¡@'¿O
  20.             Ar(Xi, 12) = .Cells(Rng(Xi).Row, "J")¡@'¤O
  21.              Ar(Xi, 13) = .Cells(Rng(Xi).Row, "K")¡@'¿O
  22.             Ar(Xi, 14) = .Cells(Rng(Xi).Row, "L")¡@'¤O
  23.            '  Ar(Xi, 10) = .Cells(Rng(Xi).Row, "n")  '  ** ½Ð°Ý³o¸Ì ­n¼g¨Ç¤°»ò?   **
  24.           '  Ar(Xi, 10) = .Cells(Rng(Xi).Row, "n")  'ªº³¡¤À¬O"¬O§_¦¨®×ªº¤½¦¡"=IF(COUNTA($I3),"¬O",IF(COUNTA($J3),"§_",""))
  25.          Next
  26.      End With
  27.      With Sheets("ºî¦X¸ê®Æ®w")
  28.          .Range("B5:O" & Rows.Count) = ""        '²M°£ ¸ê®Æ
  29.          .[B5].Resize(Rng.Count, 10) = Application.Transpose(Application.Transpose(Ar))
  30.                                                 'Âà¸m°}¦C  ¶ñ¤J:¸ê®Æ
  31.      End With
  32. End Sub
½Æ»s¥N½X
ÁÙ¦³¤W­±
  1. Set Rng = .Range("d7", .[d7].End(xlDown))
½Æ»s¥N½X
³o­Óµ{¦¡½X¤¤ªº.[d7]¬O¥Nªí¤°»ò·N«ä¡H

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-2-8 20:46 ½s¿è

¦^´_ 5# jackson7015
  1.     With Sheets("ºî¦X¸ê®Æ®w").Cells(Rows.Count, "B").End(xlUp).Offset(1)
  2.          .Resize(Rng.Count, UBound(AR, 2)) = Application.Transpose(Application.Transpose(AR))
  3.     End With
½Æ»s¥N½X

[   ]   ¬Ý³o¸Ì ...

TOP

¦^´_ 6# GBKEE


   
¤j²¤¤F¸Ñ·N«ä¤F¡A³Ñ¤Uªº¨º­Ó³rÂI¦A¦n¦n¬ã¨s

·PÁª©¥Dªº¸Ñ´b¡AÀò¯q¨}¦h

¤]ÁÂÁª©¥Dª½±µÀ°¤p§Ìªºªí®æ²Ó½Õ§¹¾ã:loveliness:

TOP

¦^´_ 6# GBKEE


   
·Q¦b¸òGBKEE¤j½Ð¯q

¥i¥H±N
  1. Ar(Xi, 1) = Date                       '¤é´Á
½Æ»s¥N½X
®M¥Î¤é³øªíªº"B3",ªº¤é´Á¶Ü

¦]¬°¦³®É·|¦]¬°·í¤ÑµLªk§@·~¡A©Ò¥H¹j¤Ñ°µ¥L¤éªº¤é³ø¡A©Ò¥H¤£·|¬°·í¤é¤é´Á

TOP

¦^´_ 8# jackson7015
¥i¥H£«  ¤£¹L ¤é³øªí B3=TODAY()   ÁÙ¬O·í¤Ñªº¤é´Á

TOP

¥»©«³Ì«á¥Ñ jackson7015 ©ó 2012-2-9 22:06 ½s¿è

¦^´_ 9# GBKEE


    ¦pªG©Ò»Ý­nªº¤é´Á¤£¬O·í¤é,[B3]§Ú·|³]©wTODAY()-N¨Ó·í§@¤é³øªíªº¤é´Á®æ¦¡

³o¼Ë·Pı¤ñ¸û¤£·|¯}Ãa¤é´Á®æ¦¡

¦pªG­n±N Ar(Xi, 1) = Date  §ó§ï¦¨¥H¤é³øªíªº[B3]©ÒÅã¥Üªº¤é´Á¬°¼Æ¾Úªº¸Ü

½Ð°Ý Date ¸Ó§ï¦¨¤°»ò ?

¦]¬°¤£¹³¨ä¥L¦C¦¡¤@¼Ë¬O¾ã¦C¥h°µCOPY©Ò¥H¦n¹³¤£¯à¨Ï¥Î  .Cells(Rng(Xi).Row, "B3"

¤p§Ì¥u·|Á|¤@¤Ï¤@¡A§Æ±æ¯à¦h¦h«ü±Ð

PS.¦³ÂI¦^Âk¨ì­ì°ÝÃDªº°Q½×,¥u½Æ»sB3Åã¥Üªº¤é´Á,¦Ó«D¤½¦¡ªºTODAY()

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD