vb mousemove 画框 vb边框样式_取值

010 设置单元格格式之边框

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

vb mousemove 画框 vb边框样式_取值_02

Q:要求设置B2单元格的边框样式为实线,颜色为红色;

A:代码如下:

Sub 案例041()
With Range('B2').Borders
.LineStyle = xlContinuous
.ColorIndex = 3
End With
End Sub

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

vb mousemove 画框 vb边框样式_公众号_03

这是什么意思呢?比如我们要单独设置单元格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中样式属性的组合方式如下:

vb mousemove 画框 vb边框样式_vb mousemove 画框_04

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

xlHairline:细线(最细的边框)。

xlMedium:中等

xlThick:粗(最宽的边框)

xlThin:细

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

积跬步,至千里!懂得分享,才会快乐!