Excel基本操作VBA代码2-填充与边框

我们来看看填充与边框相关操作的VBA代码，当然，我们只要重点的常用的操作代码，其他低概率应用操作，自己有空再去了解吧。

一、填充

首先是单元格的填充操作。

下面的代码是由“将目标区域以黄色填充”这一简单的操作而自动生成的系统代码：

上面这段代码的效果如下：

当我们将那些跑龙套的（我们不常用或者极少用到的）代码去掉以后，要达到上面图片的效果，真正需要的代码只需要一行：

Selection.interior.color = 65535

至于填充的其他属性，如：Pattern图案、PatternColorIndex图案颜色指数、TintAndShade色彩阴影、PatternTintAndShade图案色彩阴影，这些不常用的属性，喜欢的自己录制宏了解下就好。

二、边框

接着下来，我们来看看关于边框（borders）的基本操作都有哪些代码。

我们预期的效果如下图：

为了达到这效果进行的操作的系统VBA代码如下：

是不是觉得很夸张？想一下，添加边框竟然需要那么多行代码，烦不烦那？别抱怨了，系统这叫严谨。要简洁的？那还是让我们把上面操作的主角找出来吧。

其实，上面这对代码所带来的效果，基本上等同于下面这句代码所起的作用：

Selection.borders.linestyle = xlContinuous

或者

Selection.borders.linestyle = 1

或许你会疑惑了，既然一句能搞定的事情，那上面哪些龙套究竟是干嘛的呢？

那先让我们认识下边框家族的兄弟们吧。

边框 borders

这个负责总体边框的设置，就是目标区域里面单元格的所有边框都属于它。

左边框线 borders(xlEdgeLeft)     选择区域的最左边框

右边框线 borders(xlEdgeRight)  选择区域的最右边框

顶部边框线 borders(xlEdgeTop)  选择区域的顶部边框

底部边框线 borders(xlEdgeBottom)  选择区域的底部边框

内部垂直线 borders(xlInsideVertical)    选择区域的内部垂直线

内部水平线 borders(xlInsideHorizontal)  选择区域的内部水平线

向下对角线borders(xlDiagonalDown)     选择区域每个单元格的向下对角线

向上对角线borders(xlDiagonalUp)    选择区域每个单元格的向上对角线

一般来说，我们录制的设置边框的代码，每次都会同时对上面8个对象进行设置的。而我们在实际 的操作和应用中，则大可不必如此麻烦。最常用的是borders，其它的则按照实际情况需要进行选用就可以了。数据分析培训

对象找到了，那么接着下来就是针对这些边框进行属性设置了。

对于一般的操作来说，边框的属性里面，重要的、常用的基本上有三个：线形 linestyle、颜色 color 和 粗细 weight。

1、边框线形

线形一般地有8种：

xlContinuous 或 1

Selection.borders.linestyle = 1

xlDash 或 -4115

Selection.borders.linestyle = xlDash

xlDashDot  或  4

Selection.borders.linestyle = 4

xlDashDotDot  或  5

Selection.borders.linestyle = xlDashDotDot

xlDot  或  -4118

Selection.borders.linestyle = -4118

xlDouble  或  -4119  或  9

Selection.borders.linestyle = -4119

xlSlantDashDot  或  13

Selection.borders.linestyle = 13

xlNone  或  -4142  或  0  （无边框)

Selection.borders.linestyle = -4142

另外，单元格对角线的设置与效果这里也顺带展示一下。

向下对角线borders(xlDiagonalDown)

selection.borders(xlDiagonalDown).linestyle = 9

向上对角线borders(xlDiagonalUp)

selection.borders(xlDiagonalUp).linestyle = 9

2、边框颜色

边框颜色的设置操作代码，相对简单。颜色的主角是：color

selection.borders.color=RGB(0,255,0)

或者

selection.borders.color = 255

3、边框线粗细

边框线的粗细变化由 borders 的 weight属性来控制，一般常用的粗细情形有四种（基于同一线形的粗细）：

xlHairLine  或  1

selection.borders.weight = 1

xlThin  或  2

selection.borders.weight = 2

xlMedium  或  -4138   或   3

selection.borders.weight = 3

xlThick  或  4

selection.borders.weight = 4

三、神一般的总结

1、填充搞定代码

Selection.interior.color = 65535

2、边框搞定代码

Selection.Borders.LineStyle = 1               '线形

Selection.Borders.Color = 255                 '颜色

Selection.Borders.Weight = 3                   '粗细