Hsieh

¦^´_ 3# lifedidi
¥Î§A­ì¨Óªº¶i¶¥¿z¿ï
²Î­p³¡¤À§ï¥Î¨ç¼Æ­pºâ§Y¥i

1. Private Sub CommandButton1_Click()  '¬d¸ß¶s
   
2.     Dim d1 As Date, d2 As Date
   
3.     Dim Srng As Range, Crng As Range, Orng As Range
   
4.     Set Srng = Sheets("SHEET1").[A6].CurrentRegion
   
5.     Set Crng = Sheets("¿z¿ï¥Î").[A1:A2]
   
6.     With Sheets("SHEET2")
   
7.         Set Orng = .[A6]
   
8.         .[A1:W65536].ClearContents
   
9.         Srng.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Crng, CopyToRange:=Orng
   
10.         If .[A7].Value = "" Then
    
11.             MsgBox "¨S¸ê®Æ", vbCritical + vbOKOnly, "ª`·N"
    
12.             Exit Sub
    
13.         End If
    
14.     TextBox1.Value = Application.Text(Application.Sum(.[R:R]), "[hh]:mm")
    
15.     End With
    
16. End Sub

½Æ»s¥N½X