VBA儲存格加入粗外框
當儲存格加上框線時，可以使表格各個欄位分界更清楚，那要如何使用VBA將儲存格加入粗外框呢？以下帶你VBA簡單加上粗外框。
輸入巨集
※輸入以下指令※
Sub 儲存格加入粗外框()
With Range(“A1”).CurrentRegion.Borders
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 1
End With
End Sub
語法說明
With
‘省略物件名稱的用法，才不用一直寫同樣名稱
Range(“A1”).CurrentRegion.Borders
‘A1儲存格目前區域的邊界設定
.LineStyle = xlContinuous
‘框線種類為連續實線
.Weight = xlThick
‘框線粗細為粗線條
.ColorIndex = 1
‘顏色索引值為1，即「黑色」
執行巨集
點選「開發人員」-「巨集」或按下「Ctrl」+「F8」快捷鍵，並「執行」巨集。
執行後即將儲存格加入粗外框。
指定框線位置
若不想上下左右加框線，只想加上框線的話，可於Borders後方加上屬性參數，如.Borders(xlEdgeBottom)則是下框線，其於參數設定可參考下方。
VBA框線參數
框線種類
框線種類 | |
連續實線 | xlContinuous (預設值) |
虛線 | xlDot、xlDash |
雙重線 | xlDouble |
無框線 | xlLineStyleNone |
框線線條粗細
框線線條粗細 | |
粗 | xlThick |
中 | xlMedium |
細 | xlThin (預設值) |
指定邊界位置
指定邊界位置 | |
上方 | xlEdgeBottom |
下方 | xlEdgeTop |
左側 | xlEdgeLeft |
右側 | xlEdgeRight |
左上至右下斜線 | xlDiagonalDown |
左下至右上斜線 | xlDiagonalUp |
