µe®æ½u­n²Ó®ØÅܦ¨²Ê®Ø

chairles59

½Ð°Ý¤j¤j:

§Ú³o¼Ëªºµ{¦¡µeªº½u®æ¦¡²Ó®Ø
¦p¦ó§ï¥i¥HÅܦ¨²Ê®Ø
ÁÂÁÂ

Sub µe®æ½u()
lra = Range("A3").End(xlDown).Row  '¦Û°Ê°»´ú
For M = 3 To lra      '±qA3®æ¶}©l

Range("A" & M & ":R" & M).Select     '½d³ò
   ActiveCell.CurrentRegion.Select      '¿ï¨úÀx¦s®æ½d³ò
                        
With Selection.Borders     'µe®æ½u
     .LineStyle = xlContinuous
     .Weight = xlThin
     .ColorIndex = xlAutomatic
End With
Next M
End Sub

clio

Sub µe®æ½u()
lra = Range("A3").End(xlDown).Row  '¦Û°Ê°»´ú
For M = 3 To lra      '±qA3®æ¶}©l

Range("A" & M & ":R" & M).Select     '½d³ò
   ActiveCell.CurrentRegion.Select      '¿ï¨úÀx¦s®æ½d³ò
                        
With Selection.Borders     'µe®æ½u
     .LineStyle = xlContinuous
     .Weight = xlThick
     .ColorIndex = xlAutomatic
End With
Next M
End Sub

Weight´N¬O³]©w½uªº²Ê²Ó

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

chairles59

¦^´_ 4# c_c_lai

ÁÂÁ¤j¤j¸Ô²Óªº¤¶²Ð