c_c_lai

¦^´_ 1# chairles59
¦^´_ 2# clio
½Ð°Ñ¦Ò¡G

1. Sub µe®æ½u()
   
2.     Dim lra As Integer                      '  µe®æ®Ø½uªº²×¤î¦C
   
3.     Dim lstart As Integer                   '  µe®æ®Ø½uªº°_©l¦C
   
4. 
   
5.     lra = Range("A3").End(xlDown).Row       '  ¦Û°Ê°»´ú
   
6.     lstart = 3
   
7. 
   
8.     '  Range("A" & lstart & ":R" & lra).Select
   
9.                               
   
10.     '  With Selection.Borders               '  µe®æ®Ø½uªº½d³ò     
    
11.     With Range("A" & lstart & ":R" & lra).Borders
    
12.         .LineStyle = xlContinuous
    
13.         '  .Weight = xlThin                 '  ²Ó®Ø  ³]©w½uªº²Ê²Ó
    
14.         .Weight = xlThick                   '  ²Ê®Ø  ³]©w½uªº²Ê²Ó
    
15.         .ColorIndex = xlAutomatic
    
16.     End With
    
17. End Sub

½Æ»s¥N½X