滴，系統(tǒng)提示菜鳥張小懶設計的模板表格進度100%
菜鳥張小懶利用函數(shù)、VBA、控件、數(shù)據(jù)有效性等知識設計的模板終于完成了
根據(jù)需求，實現(xiàn)目的，菜鳥張小懶的水平只有這樣了
今天我似乎瞄到有小伙伴問關于設置單元格格式的問題，那我們今天就聊一聊設置單元格格式中關于邊框設置的問題
其實，很多小伙伴會說我不記得設置邊框的代碼呀，其實我也記不住，需要的時候錄制一個宏，就全都解決了，嘿嘿
快速為單元格區(qū)域設置一個外邊框，代碼如下所示：
Sub AddBorders()
Dim rng As Range
Set rng = Range('B4:G10')
With rng.Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
rng.BorderAround xlContinuous, xlMedium,5
Set rng = Nothing
End Sub
代碼解析：
第4行到第8行代碼使用Borders屬性引用單元格區(qū)域的Borders集合
第5行代碼設置其邊框樣式線條的樣式
第6行代碼設置邊框線條的粗細
第7行代碼設置邊框的顏色。
第9行代碼使用BorderAround方法為單元格區(qū)域添加一個加粗外邊框
應用于Range對象的BorderAround方法向單元格區(qū)域添加整個區(qū)域的外邊框，并設置該邊框的相關屬性，其語法如下：
BorderAround(LineStyle,Weight, ColorIndex, Color)
其中LineStyle參數(shù)設置邊框線條的樣式，Weight參數(shù)設置邊框線條的粗細，ColorIndex 設置邊框顏色，Color參數(shù)以RGB值指定邊框的顏色
如果要單獨設置各個邊框，Borders(index)屬性返回單個Border對象，其Index參數(shù)取值可為表格所列的XlBordersIndex常量之一
常量 | 值 | 描述 |
xlDiagonalDown | 5 | 斜下邊框 |
xlDiagonalUp | 6 | 斜上邊框 |
xlEdgeBottom | 9 | 底部邊框 |
xlEdgeLeft | 7 | 左邊框 |
xlEdgeRight | 10 | 右邊框 |
xlEdgeTop | 8 | 頂部邊框 |
xlInsideHorizontal | 12 | 內部水平 |
xlInsideVertical | 11 | 內部垂直 |
我是張小懶
一個愛偷懶的家伙
一個要變得越來越自信的家伙
一個正在積極努力讓自己變好的家伙
“ 轉給那些喜歡的小伙伴吧 ”
大講堂 |讓我們有態(tài)度的學習Excel
編輯 |愛“偷懶”的張小懶
轉載請注明出處
聯(lián)系客服
