【Excel·VBA】设置单元格框线

滴，系统提示菜鸟张小懒设计的模板表格进度100%

菜鸟张小懒利用函数、VBA、控件、数据有效性等知识设计的模板终于完成了

根据需求，实现目的，菜鸟张小懒的水平只有这样了

---

今天我似乎瞄到有小伙伴问关于设置单元格格式的问题，那我们今天就聊一聊设置单元格格式中关于边框设置的问题

其实，很多小伙伴会说我不记得设置边框的代码呀，其实我也记不住，需要的时候录制一个宏，就全都解决了，嘿嘿

快速为单元格区域设置一个外边框，代码如下所示：

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属性引用单元格区域的Borders集合

第5行代码设置其边框样式线条的样式

第6行代码设置边框线条的粗细

第7行代码设置边框的颜色。

第9行代码使用BorderAround方法为单元格区域添加一个加粗外边框

应用于Range对象的BorderAround方法向单元格区域添加整个区域的外边框，并设置该边框的相关属性，其语法如下：

BorderAround(LineStyle,Weight, ColorIndex, Color)

其中LineStyle参数设置边框线条的样式，Weight参数设置边框线条的粗细，ColorIndex     设置边框颜色，Color参数以RGB值指定边框的颜色

如果要单独设置各个边框，Borders(index)属性返回单个Border对象，其Index参数取值可为表格所列的XlBordersIndex常量之一

常量	值	描述
xlDiagonalDown	5	斜下边框
xlDiagonalUp	6	斜上边框
xlEdgeBottom	9	底部边框
xlEdgeLeft	7	左边框
xlEdgeRight	10	右边框
xlEdgeTop	8	顶部边框
xlInsideHorizontal	12	内部水平
xlInsideVertical	11	内部垂直

---

我是张小懒

一个爱偷懒的家伙

一个要变得越来越自信的家伙

一个正在积极努力让自己变好的家伙

---

“ 转给那些喜欢的小伙伴吧 ”

大讲堂 |让我们有态度的学习Excel

编辑 |爱“偷懒”的张小懒

转载请注明出处