使用excel中的vba函数给表格区域添加绿框

1、首先我们打开一个工作样表作为例子。

2、按下alt+f11进入vba编辑器，插入一个 新的模块，在模块编辑窗口中输入以下代码：

Sub 添加绿框()

Worksheets("源数据").Range("A1:D4").BorderAround _

ColorIndex:=4, Weight:=xlThick

End Sub

3、其中添加绿框是过程名，worksheets是工作表名，（“源数据”）为工作薄名。可以直接写成sheet2.range。也就是Worksheets("源数据")==sheet2.range。

4、range为指定单元格区域函数，本例中指定的范围是a1：d4。而borderaround函数是向单元格区域添加边框，并设置该边框的 Color、LineStyle 和 Weight属性。Variant 类型。

5、单元格区域添加的是外边框。可以设置其颜色，线型和宽度。其中color参数为颜色下标，variant参数为rgb值，两者功能相同，必须选择其一，但不能同时存在。本例中使用的是下标color参数。

6、我们制定宏按钮，并实际运行一下，可以看到A1:D4这个单元格区域添加了一个绿色的边框，此函数大家可以多试验。