返回列表下一主題上一主題發帖

畫格線要細框變成粗框

chairles59

中學生 Rank: 2

帖子: 43
主題: 12
精華: 0
積分: 72
點名: 0
作業系統: windows
軟體版本: win 8.0
閱讀權限: 20
性別: 男
註冊時間: 2016-2-9
最後登錄: 2020-4-13

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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