標題: 畫格線要細框變成粗框 [打印本頁]

---

作者: chairles59    時間: 2016-3-31 01:31     標題: 畫格線要細框變成粗框

請問大大:

我這樣的程式畫的線格式細框
如何改可以變成粗框
謝謝

Sub 畫格線()
lra = Range("A3").End(xlDown).Row  '自動偵測
For M = 3 To lra      '從A3格開始

Range("A" & M & ":R" & M).Select     '範圍
   ActiveCell.CurrentRegion.Select      '選取儲存格範圍
                        
With Selection.Borders     '畫格線
     .LineStyle = xlContinuous
     .Weight = xlThin
     .ColorIndex = xlAutomatic
End With
Next M
End Sub

---

作者: clio    時間: 2016-3-31 09:34

Sub 畫格線()
lra = Range("A3").End(xlDown).Row  '自動偵測
For M = 3 To lra      '從A3格開始

Range("A" & M & ":R" & M).Select     '範圍
   ActiveCell.CurrentRegion.Select      '選取儲存格範圍
                        
With Selection.Borders     '畫格線
     .LineStyle = xlContinuous
     .Weight = xlThick
     .ColorIndex = xlAutomatic
End With
Next M
End Sub

Weight就是設定線的粗細

---

作者: c_c_lai    時間: 2016-4-1 07:27

回復 1# chairles59
回復 2# clio
請參考：

1. Sub 畫格線()
   
2.     Dim lra As Integer                      '  畫格框線的終止列
   
3.     Dim lstart As Integer                   '  畫格框線的起始列
   
4. 
   
5.     lra = Range("A3").End(xlDown).Row       '  自動偵測
   
6.     lstart = 3
   
7. 
   
8.     '  Range("A" & lstart & ":R" & lra).Select
   
9.                               
   
10.     '  With Selection.Borders               '  畫格框線的範圍     
    
11.     With Range("A" & lstart & ":R" & lra).Borders
    
12.         .LineStyle = xlContinuous
    
13.         '  .Weight = xlThin                 '  細框  設定線的粗細
    
14.         .Weight = xlThick                   '  粗框  設定線的粗細
    
15.         .ColorIndex = xlAutomatic
    
16.     End With
    
17. End Sub

複製代碼

---

作者: chairles59    時間: 2016-4-2 01:38

回復 4# c_c_lai

謝謝大大詳細的介紹

---

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