GBKEE

¦^´_ 2# cdkee
  9:16:000©M13:31:000   ³o®æ¦¡¦h¤@­Ó0

GBKEE

¦^´_ 2# cdkee

1. Option Explicit
   
2. Sub Ex_Replace()   '­×§ï :000   ¬° :00
   
3.     With ActiveSheet.Range("B:B,K:K")
   
4.         .Replace ":000", ":00", xlPart
   
5.         .NumberFormatLocal = "h:mm:ss;@"
   
6.     End With
   
7. End Sub
   
8. Sub Ex()
   
9.     Dim xi As Date, Ea, Rng(1 To 3) As Range
   
10.     On Error Resume Next
    
11.     Application.ScreenUpdating = False
    
12.     With Sheet1
    
13.         .AutoFilterMode = False
    
14.         Set Rng(1) = .Range("J1").CurrentRegion
    
15.         Set Rng(1) = .Range(Rng(1)(2, 1), Rng(1)(Rng(1).Rows.Count, Rng(1).Columns.Count))
    
16.         For xi = DateValue(.[J2]) To DateValue(.[J2].End(xlDown))
    
17.             For Each Ea In Array("9:16:00", "13:31:00")
    
18.                 .AutoFilterMode = False
    
19.                 .Range("J1").AutoFilter 1, Format(xi, "MM/DD/yYYY")
    
20.                 .Range("J1").AutoFilter 2, Ea
    
21.                 Set Rng(2) = Rng(1).SpecialCells(xlCellTypeVisible)   '¿z¿ï¤£¨ì¸ê®Æ :¦³¿ù»~
    
22.                 If Err.Number = 0 Then
    
23.                     .AutoFilterMode = False
    
24.                     Rng(2).Resize(2).Insert
    
25.                     With Rng(2).Offset(-2).Resize(2)
    
26.                         .Interior.ColorIndex = 6
    
27.                         .Columns(1).Value = Rng(2).Cells(1)
    
28.                         .Cells(1, 2) = Rng(2).Cells(2) - #12:02:00 AM#
    
29.                         .Cells(2, 2) = Rng(2).Cells(2) - #12:01:00 AM#
    
30.                         .Columns("C:F") = Rng(2).Cells(3).Value
    
31.                     End With
    
32.                 End If
    
33.             Next
    
34.         Next
    
35.     End With
    
36.     Application.ScreenUpdating = True
    
37. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# cdkee
ªþÀÉ ¸Õ¸Õ¬Ý
¦Û°Ê¿z¿ï.rar (37.32 KB)

¤U¸ü¦¸¼Æ: 6

2012-4-30 10:10

1. Sub Ex()
   
2.     Dim xi As Date, Ea, Rng(1 To 3) As Range
   
3.     On Error Resume Next                                        'µ{¦¡¦³¿ù»~Ä~Äò°õ¦æµ{¦¡
   
4.     Application.ScreenUpdating = False                          '¿Ã¹õ§ó·s:¨ú®ø
   
5.     With Sheet1
   
6.         .AutoFilterMode = False
   
7.         ' (False) ¨ú®ø[¦Û°Ê¿z¿ï]¤U©Ô½b¸¹ : ¦p¥ý«e¦³[¦Û°Ê¿z¿ï]¹L ·|¤ÞÅT¦A¦¸ªº¥t³]·Ç«h«áªº¿z¿ï¸ê®Æ½d³ò
   
8.         Set Rng(1) = .Range("a1").CurrentRegion
   
9.         Set Rng(1) = .Range(Rng(1)(2, 1), Rng(1)(Rng(1).Rows.Count, Rng(1).Columns.Count))
   
10.         .[A1].AutoFilter Field:=2, Criteria1:="=9:16:00", Operator:=xlOr, Criteria2:="=13:31:00"
    
11.                                                                 '¦Û°Ê¿z¿ï :²Ä2Äæ ³]¤U·Ç«h
    
12.         Set Rng(2) = Rng(1).SpecialCells(xlCellTypeVisible)     '¨Ì·Ç«h [¦Û°Ê¿z¿ï] ¨ìªº¸ê®Æ°Ï:¦p¨S¦³¸ê®Æ    ·|¦³¿ù»~
    
13.         .AutoFilterMode = False                                 '¨ú®ø[¦Û°Ê¿z¿ï]  Åã¥Ü©Ò¦³¸ê®Æ
    
14.         For Each Ea In Rng(2).Rows                              '³B¸Ì¨C¤@¦C(¨Ì·Ç«h [¦Û°Ê¿z¿ï] ¨ìªº¸ê®Æ°Ï)
    
15.             Ea.Resize(2).Insert                                 'Insert (´¡¤J) : [¦Û°Ê¿z¿ï]¦p¤£ Åã¥Ü©Ò¦³¸ê®Æ ·|¦³¿ù»~
    
16.             With Ea.Offset(-2).Resize(2)
    
17.                 .Interior.ColorIndex = 6
    
18.                 .Columns(1).Value = Rng(2).Cells(1)
    
19.                 .Cells(1, 2) = Rng(2).Cells(2) - #12:02:00 AM#
    
20.                 .Cells(2, 2) = Rng(2).Cells(2) - #12:01:00 AM#
    
21.                 .Columns("C:F") = Rng(2).Cells(3).Value
    
22.              End With
    
23.         Next
    
24.     End With
    
25.     Application.ScreenUpdating = True                            ' ¿Ã¹õ§ó·s:«ì´_
    
26.     If Err.Number <> 0 Then MsgBox "§ä¤£¨ì¸ê®Æ"
    
27. End Sub

½Æ»s¥N½X