die78325

¦^´_ 18# Hsieh

¥H¤U³o¬q  ¦p¦ó­×§ï¦¨­nÅý¥L¶]¨â­Ó©Î¦h­Ó¤u§@ªí°Ï¬q
³oÃä¸ÑÄÀ¤@¤U    ´N·N«ä¬O§Ú¦¬´M "  ¸¹¨¤  "  ¥L·|¦¬´M  
²Î¤@¤u§@ªí°Ï¬q  ¸ò XX¤u§@ªí°Ï¬q  XX¤u§@ªí°Ï¬q   §Ú¥Ø«e¬O½Æ»s¥H¤U°Ï¬q¦A§ó§ïWith Sheets("²Î¤@")   ²Î¤@ªº³¡¤À  ¦ý¬Oµ{¦¡½X«K«Ü¦h À³¸Ó¦³§ó¦nªº¿ìªk§a  

    With Sheets("²Î¤@")  '²Î¤@¤u§@ªí°Ï¬q
G = .[A65536].End(xlUp).Row   '²Î¤@¤u§@ªíªº¸ê®Æ§À
For i = 2 To G
mystr = Format(.Cells(i, 1), "yyyymmdd hhmm") & .Cells(i, 9) '¤£­«½Æ·Ç«h¦r¦ê
    If .Cells(i, 9) Like "*" & Name & "*" And IsEmpty(d(mystr)) Then '¦r¨å¤¤¨S¥X²{¹LIÄæ¥B¥]§t¬d¸ßÃöÁä¦r
    Sheets("¬d¸ß³B²z°Ï").[A65536].End(xlUp).Offset(1).Resize(, 9) = .Cells(i, 1).Resize(, 9).Value  '±NA:IÄæ¼g¤JSheets("¬d¸ß³B²z°Ï")
     d(mystr) = .Cells(i, 9).Value  '±NIÄæ®ÚAÄ椺®e¦s¤J¦r¨å
    End If
Next i
End With 'µ²§ô²Î¤@¤u§@ªí°Ï¬q±Ô­z

die78325

¦^´_ 21# stillfish00


    ¥¦Åã¥Ü½sĶ¿ù»~

For Each ªº±±¨îÅܼƥ²¶·¬OVariant©ÎObject

die78325

¦^´_ 21# stillfish00


    §Ú§âÅܼƩw¸q§R°£ (Dim.......)

¿ï¾Üsheets( ªº  "  §R°£  

´N¥i¥H¤F    ·PÁ¤j¤jµ¹ªºÆF·P
.

die78325

¦^´_ 26# Hsieh
¦^´_ 25# GBKEE

    ÁÂÁ¨â¦ì¤j¤j¦^´_^^  ·PÁ±z­Ì~!

die78325

¦^´_ 18# Hsieh
H¤j¤j ¦A¦¸³Â·Ð±z

1. Sub Äé¤J¸ê®Æ()
   
2. Application.ScreenUpdating = False
   
3. Set d = CreateObject("Scripting.Dictionary")  '³Ð«Ø¦r¨åª«¥ó
   
4. With Sheets("¦©´Ú")
   
5. Name = "GH" '¬d¸ßÃöÁä¦r
   
6. For Each a In .Range(.[A2], .[A65535].End(xlUp))
   
7. mystr = Format(a, "yyyymmdd hhmmss") & a.Offset(, 8)
   
8. d(mystr) = a.Offset(, 8)
   
9. Next
   
10. End With
    
11. For Each sName In Array("1", "2", "3")
    
12. 
    
13.     With Sheets(sName)  '¥H¤W¤u§@ªí°Ï¬q
    
14.     g = .[A65536].End(xlUp).Row   '¥H¤W¤u§@ªíªº¸ê®Æ§À
    
15.     For i = 2 To g
    
16.     mystr = Format(.Cells(i, 1), "yyyymmdd hhmmss") & .Cells(i, 9) '¤£­«½Æ·Ç«h¦r¦ê
    
17.         If .Cells(i, 9) Like "*" & Name & "*" And IsEmpty(d(mystr)) Then '¦r¨å¤¤¨S¥X²{¹LIÄæ¥B¥]§t¬d¸ßÃöÁä¦r
    
18.         Sheets("¨®¤Í·|¦©´Ú").[A65536].End(xlUp).Offset(1).Resize(, 9) = .Cells(i, 1).Resize(, 9).Value  '±NA:IÄæ¼g¤JSheets("¦©´Ú")
    
19.          d(mystr) = .Cells(i, 9).Value  '±NIÄæ®ÚAÄ椺®e¦s¤J¦r¨å
    
20.         End If
    
21.     Next i
    
22.     End With 'µ²§ô¥H¤W¤u§@ªí°Ï¬q±Ô­z
    
23. Next
    
24. Sheets("¦©´Ú").Select
    
25. Application.ScreenUpdating = True  '¶}±ÒÅã¥Ü
    
26. MsgBox "¬d¸ß§¹¦¨"
    
27. End Sub

½Æ»s¥N½X

¦pªGÁÙ­n¦A·s¼W°»´úÄæ¦ì ¬O§_­n­×§ï«Ü¦h¦a¤è= =?
¦]¬°²{¦bµ§¼Æ¶V¨Ó¶V¦h  ®É¶¡§Ú¤w¸g¼W¥[¦Ü  yyyymmdd hhmmss
¦ýÁÙ¬O·|¦³­«½Æªº¥i¯à.....  ·Q¦A¼W¥[ D¸òHÄd¥h¦r¨å¤º¤ñ¹ï   
§Ú¦Û¤v´ú¸Õ±N³o¨â­ÓÄæ¦ì¶i¥h  ¦ý¨SÔ£¤ÏÀ³= = " ¥ú­×¥¿D¸òHÄd  ¥LÁÙ¬O»{¬°¨º¬O¤@¼Ëªº..((¥Nªí±ø¥ó¨S·s¼W¨ì¦r¨å¤º))

¦pªG¥i¥H ½ÐÀ°§Ú­×¥¿¨â­Óª©¥»...  ¤@­Ó¬O¼W¥[ D¸ò H Äæ¦ì  
¤@­Ó¬O¥þ³¡¸ê®Æ¤ñ¹ï    A¨ìIÄd³£¼g¤J¦r¨å  .....·PÁ¦U¦ì¤j¤j!!

½Ð¦U¦ì¤j¤jÀ°¦£¸Ñµª@@"