標題: [發問] 請問各位大大,如何簡化以下程式 [打印本頁]

---

作者: alex520188    時間: 2012-7-13 14:08     標題: 請問各位大大,如何簡化以下程式

各位大大好

以下是我錄製的程式碼
我想在'A12:L44'畫框線
不過程式好像有點長
請問要如何簡化呢?

1. Sub 畫格線2()
   
2. '
   
3. ' 畫格線2 Macro
   
4. ' alex 在 2012/7/13 錄製的巨集
   
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

複製代碼

---

作者: oobird    時間: 2012-7-13 14:16

1. Sub 畫格線2()
   
2.     [A12:L44].Borders.LineStyle = 1
   
3. End Sub

複製代碼

---

作者: alex520188    時間: 2012-7-13 17:58

回復 2# oobird


    感謝超級版主~~~原來這麼簡單 ^-^

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)