[µo°Ý] ½Ð°Ý¦U¦ì¤j¤j,¦p¦ó²¤Æ¥H¤Uµ{¦¡

alex520188

¦U¦ì¤j¤j¦n

¥H¤U¬O§Ú¿ý»sªºµ{¦¡½X
§Ú·Q¦b'A12:L44'µe®Ø½u
¤£¹Lµ{¦¡¦n¹³¦³ÂIªø
½Ð°Ý­n¦p¦ó²¤Æ©O?

1. Sub µe®æ½u2()
   
2. '
   
3. ' µe®æ½u2 Macro
   
4. ' alex ¦b 2012/7/13 ¿ý»sªº¥¨¶°
   
5. '
   
6. 
   
7.     Range("A12:L44").Select
   
8.     ActiveWindow.SmallScroll Down:=-12
   
9.     Selection.Borders(xlDiagonalDown).LineStyle = xlNone
   
10.     Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    
11.     With Selection.Borders(xlEdgeLeft)
    
12.         .LineStyle = xlContinuous
    
13.         .Weight = xlThin
    
14.         .ColorIndex = xlAutomatic
    
15.     End With
    
16.     With Selection.Borders(xlEdgeTop)
    
17.         .LineStyle = xlContinuous
    
18.         .Weight = xlThin
    
19.         .ColorIndex = xlAutomatic
    
20.     End With
    
21.     With Selection.Borders(xlEdgeBottom)
    
22.         .LineStyle = xlContinuous
    
23.         .Weight = xlThin
    
24.         .ColorIndex = xlAutomatic
    
25.     End With
    
26.     With Selection.Borders(xlEdgeRight)
    
27.         .LineStyle = xlContinuous
    
28.         .Weight = xlThin
    
29.         .ColorIndex = xlAutomatic
    
30.     End With
    
31.     With Selection.Borders(xlInsideVertical)
    
32.         .LineStyle = xlContinuous
    
33.         .Weight = xlThin
    
34.         .ColorIndex = xlAutomatic
    
35.     End With
    
36.     With Selection.Borders(xlInsideHorizontal)
    
37.         .LineStyle = xlContinuous
    
38.         .Weight = xlThin
    
39.         .ColorIndex = xlAutomatic
    
40.     End With
    
41. End Sub

½Æ»s¥N½X

alex520188

¦^´_ 2# oobird


    ·PÁ¶W¯Åª©¥D~~~­ì¨Ó³o»ò²³æ ^-^

oobird

1. Sub µe®æ½u2()
   
2.     [A12:L44].Borders.LineStyle = 1
   
3. End Sub

½Æ»s¥N½X