Hsieh

¦^´_ 3# RJR

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim A As Range
   
3. For Each A In Range([B2], [B65536].End(xlUp))
   
4.    With A.Offset(, -1).Resize(, 4).Borders(xlEdgeTop)
   
5.    If A = TimeValue("15:00:00") And A.Offset(-1, 0) <> TimeValue("15:00:00") Then
   
6.       .LineStyle = xlDouble
   
7.       ElseIf A.Offset(, -1) <> A.Offset(-1, -1) Then
   
8.       .LineStyle = 1
   
9.       .Weight = xlThick
   
10.       Else
    
11.       .LineStyle = 2
    
12.       .Weight = xlThin
    
13.       End If
    
14.    End With
    
15. Next
    
16. End Sub

½Æ»s¥N½X