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

jackson7015

½¤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

jackson7015

¦^´_ 2# GBKEE


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

¤U¸ü¦¸¼Æ: 13

2012-2-8 14:15

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

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

jackson7015

¦^´_ 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)

¤U¸ü¦¸¼Æ: 10

2012-2-8 19:05

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

jackson7015

¦^´_ 6# GBKEE


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

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

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

jackson7015

¦^´_ 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¤£·|¬°·í¤é¤é´Á

jackson7015

¦^´_ 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()

jackson7015

¦^´_ 11# GBKEE


    ÁA¸Ñ¤F¡A¦Û¤v¤]¸Õ¹L[B3]¡A«o¥X²{¿ù»~¡A¤Ö¤@­Ó³rÂI¯uªº´N®t¦n¦h

·PÁª©¥D«ü¾É

jackson7015

¦^´_ 11# GBKEE

³o¨â¤Ñ·s¼W¤F¤@¨Ç¶µ¥Ø¡A¥i¬O©¿µM¥X²{²Ä¤»¦æ＂·¸¦ì＂¿ù»~°T®§

¥i¥H³Â·ÐÀ°¦£¬Ý¬Ý¬O«ç¼Ëªº¿ù»~¶Ü

1. Sub ²Ö­p¤é³øªí¸ê®Æ()
   
2.     If MsgBox("¬O§_°õ¦æ½Æ»s¡H", vbYesNo) = vbNo Then Exit Sub
   
3.     Dim Ar(), Rng As Range, Xi As Integer
   
4.     With Sheets("¤é³øªí")
   
5.         Set Rng = .Range("d7", .[d7].End(xlDown))  '¸ê®Æ½d³ò: BÄ榳¸ê®Æªº¦C
   
6.         ReDim Ar(1 To Rng.Count, 1 To 20)          '°}¦Cªº¤j¤p 1 To 20 => ¸ê®Æ½d³ò BÄæ:VÄæ
   
7.         For Xi = 1 To Rng.Count
   
8.             Ar(Xi, 1) = .[B3]                      '¤é´Á
   
9.             Ar(Xi, 2) = .Cells(Rng(Xi).Row, "B")   '½s¸¹
   
10.             Ar(Xi, 3) = .Cells(Rng(Xi).Row, "N")   '¹q
    
11.             Ar(Xi, 4) = .Cells(Rng(Xi).Row, "D")   '¦aÂI
    
12.             SS = "=IF(RC[4]=1,""¬dµL"",IF(RC[3]=1,""¦¨®×"" & SUM(RC[6]:RC[9])&""KW"",""""))"
    
13.             Ar(Xi, 5) = SS                         '¬O§_¦¨®×
    
14.             Ar(Xi, 6) = .Cells(Rng(Xi).Row, "E")   '±K
    
15.             Ar(Xi, 7) = .Cells(Rng(Xi).Row, "F")   '«D±K
    
16.             KK = "=IF(COUNTA(RC[+1]),""¬O"",IF(COUNTA(RC[+2]),""§_"",""""))"
    
17.             Ar(Xi, 8) = KK                         '²{³õÀËÅçµ²ªG
    
18.             Ar(Xi, 9) = .Cells(Rng(Xi).Row, "G")   '¬O
    
19.             Ar(Xi, 10) = .Cells(Rng(Xi).Row, "H")  '§_
    
20.             Ar(Xi, 11) = .Cells(Rng(Xi).Row, "I")  '¿O(´c
    
21.             Ar(Xi, 12) = .Cells(Rng(Xi).Row, "J")  '¤O(´c
    
22.             Ar(Xi, 13) = .Cells(Rng(Xi).Row, "K")  '¿O(«D´c
    
23.             Ar(Xi, 14) = .Cells(Rng(Xi).Row, "L")  '¤O(«D´c©Ê
    
24.             Ar(Xi, 15) = .Cells(Rng(Xi).Row, "A")  '¶µ¥Ø
    
25.             Ar(Xi, 16) = .Cells(Rng(Xi).Row, "O")  'Àç·~
    
26.             Ar(Xi, 17) = .Cells(Rng(Xi).Row, "R")  '¦æ·~§O
    
27.             Ar(Xi, 18) = .Cells(Rng(Xi).Row, "Q")  '¤è¦¡
    
28.             Ar(Xi, 19) = .Cells(Rng(Xi).Row, "S")  '²¾°e
    
29.             Ar(Xi, 20) = .Cells(Rng(Xi).Row, "P")  '³¡ªù
    
30.          Next
    
31.     End With
    
32.          With Sheets("ºî¦X¸ê®Æ®w").Cells(Rows.Count, "B").End(xlUp).Offset(1)
    
33.          .Resize(Rng.Count, UBound(Ar, 2)) = Application.Transpose(Application.Transpose(Ar))
    
34.     End With
    
35. End Sub

½Æ»s¥N½X

ReDim Ar(1 To Rng.Count, 1 To 20)
¥X²{¿ù»~

jackson7015

¦^´_ 14# GBKEE

¤§«á­n¥X®t´X¤Ñ

¥ýªþ¤WÀÉ®×

123.rar (93.54 KB)

¤U¸ü¦¸¼Æ: 4

2012-2-15 07:49

jackson7015

¦^´_ 16# GBKEE

¤µ¤Ñ´ú¸Õ¤F­×§ï«áªº¥¨¶°

¦pªG¦A¤é³øªí¤º¥u¦³1Äæ(¦pÀÉ)¸ê®Æ,«h¨Ï¥Î¥¨¶°«á·|¥X²{¤F¿ù»~°T®§"°õ¦æ¶¥¬q¿ù»~1004"

³o­Ó¿ù»~¥u¦³¦b¤é³øªí¥u¦³¤@«h¸ê®Æ¤~·|µo¥Í,¦h©ó1«h¤£·|

ªþ¤WÀɮשM¥N½X

¤u§@¤é³øªí.rar (155.08 KB)

¤U¸ü¦¸¼Æ: 3

2012-2-20 13:50

1. Sub ²Ö­p¤é³øªí¸ê®Æ()
   
2.     Dim Ar(), Rng As Range, Xi As Long
   
3.     With Sheets("¤é³øªí")
   
4.         Set Rng = .Range("d7", .[d7].End(xlDown))  '¸ê®Æ½d³ò: BÄ榳¸ê®Æªº¦C
   
5.         If Application.CountA(Rng) = 0 Then MsgBox "¤é³øªí ¨S¦³¸ê®Æ !!!": Exit Sub '§PÂ_¤é³øªí¦³¨S¦³¸ê®Æ
   
6.         If MsgBox("¬O§_°õ¦æ½Æ»s¡H", vbYesNo) = vbNo Then Exit Sub
   
7.         ReDim Ar(1 To Rng.Count, 1 To 20)          '°}¦Cªº¤j¤p 1 To 20 => ¸ê®Æ½d³ò BÄæ:VÄæ
   
8.         For Xi = 1 To Rng.Count
   
9.             Ar(Xi, 1) = .[B3]                      '¤é´Á
   
10.             Ar(Xi, 2) = .Cells(Rng(Xi).Row, "B")   '¹ê½Õ®Ñ½s¸¹
    
11.             Ar(Xi, 3) = .Cells(Rng(Xi).Row, "N")   '¹q¸¹
    
12.             Ar(Xi, 4) = .Cells(Rng(Xi).Row, "D")   '¦aÂI
    
13.             SS = "=IF(RC[4]=1,""¬dµLÅѹq"",IF(RC[3]=1,""½]¬d¦¨®×"" & SUM(RC[6]:RC[9])&""KW"",""""))"
    
14.             Ar(Xi, 5) = SS                         '¬O§_¦¨®×
    
15.             Ar(Xi, 6) = .Cells(Rng(Xi).Row, "E")   '±K§i
    
16.             Ar(Xi, 7) = .Cells(Rng(Xi).Row, "F")   '«D±K§i
    
17.             KK = "=IF(COUNTA(RC[+1]),""¬O"",IF(COUNTA(RC[+2]),""§_"",""""))"
    
18.             Ar(Xi, 8) = KK                         '²{³õÀËÅçµ²ªG
    
19.             Ar(Xi, 9) = .Cells(Rng(Xi).Row, "G")   '¬O
    
20.             Ar(Xi, 10) = .Cells(Rng(Xi).Row, "H")  '§_
    
21.             Ar(Xi, 11) = .Cells(Rng(Xi).Row, "I")  '¿O(´c©Ê
    
22.             Ar(Xi, 12) = .Cells(Rng(Xi).Row, "J")  '¤O(´c©Ê
    
23.             Ar(Xi, 13) = .Cells(Rng(Xi).Row, "K")  '¿O(«D´c©Ê
    
24.             Ar(Xi, 14) = .Cells(Rng(Xi).Row, "L")  '¤O(«D´c©Ê
    
25.             Ar(Xi, 15) = .Cells(Rng(Xi).Row, "A")  '¶µ¥Ø
    
26.             Ar(Xi, 16) = .Cells(Rng(Xi).Row, "O")  'Àç·~
    
27.             Ar(Xi, 17) = .Cells(Rng(Xi).Row, "R")  '¦æ·~§O
    
28.             Ar(Xi, 18) = .Cells(Rng(Xi).Row, "Q")  'Åѹq¤è¦¡
    
29.             Ar(Xi, 19) = .Cells(Rng(Xi).Row, "S")  '²¾°e±¡§Î
    
30.             Ar(Xi, 20) = .Cells(Rng(Xi).Row, "P")  '´£³ø³¡ªù
    
31.          Next
    
32.     End With
    
33.          With Sheets("ºî¦X¸ê®Æ®w").Cells(Rows.Count, "B").End(xlUp).Offset(1)
    
34.          .Resize(Rng.Count, UBound(Ar, 2)) = Application.Transpose(Application.Transpose(Ar))
    
35.     End With
    
36. End Sub

½Æ»s¥N½X

.Resize(Rng.Count, UBound(Ar, 2)) = Application.Transpose(Application.Transpose(Ar))
²Ä34¦æ¥X²{¿ù»~

½Ð°Ý­n­×§ï¤°»ò©O?

¦Ó­ì¥»ªºInteger ÅܼÆ,¬°¤°»ò¤£ª½±µ¨Ï¥ÎLongÅܼƴN¦n,°õ¦æ¦ì¤¸²Õ¸û¦h
¬O§_¦³ª©¥»ªº°ÝÃD¦Ó¤£¯àª½±µ¨Ï¥ÎLongÅܼÆ?