VBA设置单元格格式之——边框

010 设置单元格格式之边框

（文档下载：关注本公众号，发送消息【教程】即可获得）

本节内容我们学习如何通过VBA来对单元格的边框进行设置，如下图所示，边框的设置主要有线条样式及线条颜色两个属性，另外基础操作时我们可以设置单元格区域的某一条边框线，那么同样的VBA中我们可以对某一条边框对象进行其属性的设置，下面我们通过实例来进行梳理和解析。

Q：要求设置B2单元格的边框样式为实线，颜色为红色；

A：代码如下：

Sub 案例041()

With Range('B2').Borders

.LineStyle = xlContinuous

.ColorIndex = 3

End With

End Sub

【解析】我们可以看到，这个代码非常简单，首先边框对象是单元格的子对象，即Borders，该对象其实是一个集合，它包含了单元格四周的每个单个线条，各线条对应常量值如下：

这是什么意思呢？比如我们要单独设置单元格C5的左边框，那么我们就需要用到Borders(xlEdgeLeft)这个对象，即Borders是所有边框的集合，xlEdgeLeft只是其中的一条，它其实也是一个对象。那么这个代码如下：

Sub 案例042()

WithRange('C6').Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.ColorIndex = 3

End With

End Sub

线条的颜色我们这里使用ColorIndex属性来设置，上一节内容我们讲过，关于颜色，我们也可以使用Color属性来进行设置；那么关于线条样式，通过第一张图片我们可以看到共有13种样式供我们选择，在VBA中这13种样式可以通过控制LineStyle属性及Weight属性来完成，其中LineStyle代表的是样式，而Weight则可以理解为粗细，这13中样式属性的组合方式如下：

Weight属性的四个取值意义分别如下：

xlHairline：细线（最细的边框）。

xlMedium：中等

xlThick：粗（最宽的边框）

xlThin：细

以上就是我们本节的内容，无技术含量，但要记住边框是通过Borders对象来完成的，且这个对象其实是一个集合；通过控制这个对象的三个属性LineStyle、ColorIndex、Weight可以来完成线条的属性设置。

积跬步，至千里！懂得分享，才会快乐！

---