GBKEE

¦^´_ 7# a510684

1. Dim WebSht As Worksheet, xURL$, GetInfo$, ErrNo, TT As String, DD As String, SS As String, uRng As Range
   
2. Sub §ó·s¥þ³¡()
   
3. Dim y&, TM, i&
   
4. If MsgBox("­n¥þ³¡§ó·s¶Ü¡H¡@", 4 + 32 + 256) = vbNo Then Exit Sub
   
5. TM = Time:  ErrNo = 0: [A1] = "00:00:00"
   
6. [L5:ZZ600].ClearContents: [K6:K600].ClearContents: [L4].Select
   
7. y = [zz4].End(xlToLeft).Column: If y < 12 Then MsgBox "y < 12":   Exit Sub
   
8. For i = 12 To y Step 10
   
9.     If ErrNo > 0 Then GoTo 102
   
10.     Set uRng = Cells(4, i)
    
11.     uRng.Select
    
12.     If uRng <> "" Then Call §ó·sWeb: Call ¸ü¤J¼Æ¾Ú
    
13.     [A1] = Format(Time - TM, "hh:mm:ss")
    
14. Next i
    
15. 102: Beep
    
16. End Sub
    
17. 
    
18. 
    
19. Sub ¸ü¤J¼Æ¾Ú()  
    
20.     Dim Ln As Long
    
21.     If uRng Is Nothing Then MsgBox "uRng : ¨S¦³³]©wª«¥óÅܼƩÎWith°Ï¶ôÅܼÆ"
    
22.     Ln = Worksheets("Web").Range("B2000").End(xlUp).Row
    
23.     TT = Left(Sheets("Web").[B4], Len(Sheets("Web").[B4]) - 7)
    
24.     SS = Replace(TT, "(", "")
    
25.     DD = Left(SS, Len(SS) - Len(uRng))
    
26.     If Right(SS, Len(uRng)) <> uRng Then Exit Sub
    
27.     uRng(2) = DD
    
28.     uRng(2, -1).Resize(Ln - 6, 1) = Sheets("Web").[B13].Resize(Ln - 6, 1).Value '¤é´Á¸ê®ÆÄæ
    
29.     uRng(2, 1).Resize(Ln - 6, 10) = Sheets("Web").[c12].Resize(Ln - 6, 10).Value '¤T¤jªk¤H¸ê®Æ
    
30. End Sub

½Æ»s¥N½X