JSA宏教程WPS表格常用内置对象——单元格区域(Range)对象（二）

大家好，欢迎来到IT知识分享网。

本期继续上一期的内容进行。

以上属性（均来自于WPS开放平台）就是我们本期需要练习属性。上的属性涉及三个方面：

1、单元格区域的外观；2、单元格区域的内容；3、单元区域的自身

WPS官方开发文档的不足

WPS官方的教程有点缺憾，就是上面的属性给的并不全面，有一些相对比较重要的属性没有给出来。通过查找OFFICE的内容。我觉得上面的属性还需要加一个Borders属性，即是单元格的边框属性。

Borders：四个 Border 对象的集合，这些对象表示 Range 对象或 Style 对象的四个边框。只能对 Range 和 Style 对象的各个边框分别设置边框属性。 其他带边框的对象（如误差线和序列线）具有被视为单个实体的边框，而不管它有多少边。 对于这些对象，在返回边框和设置边框属性时必须将其作为一个整体处理。

使用 Borders (索引) （其中 index 标识边框）返回单个 Border 对象。 Index 可以是以下 XlBordersIndex 常量之一： xlDiagonalDown、 xlDiagonalUp、 xlEdgeBottom、 xlEdgeLeft、 xlEdgeRight、 xlEdgeTop、 xlInsideHorizontal 或 xlInsideVertical。

而Borders集合也有它自己的属性，以下列示出Borders集合常用的属性：

Color：设置边框的颜色

ColorIndex：设置四条边的颜色，要求四条边的颜色都一样，如果不一样，这个属性将返回null.

Count：代表集合中对象的数量，即是Borders对象中的Border有多少个。

Item：返回一个 Border 对象，该对象代表单元格区域或样式的边框之一。可以取以下值：

LineStyle：指定边框的线条样式。它可以取以下值：

Weight：返回或设置一个 XlBorderWeight 值，该值代表边框的权重。它可以取以下值：

练习

练习1：熟悉单元格区域外观系列属性

做一个表格标题栏1行5列：第一列列宽3、第二列列宽12、第三列列宽4、第四列列宽5、第五列列宽6；行高25；各列都是水平居中、垂直居中。

• 通过ColumnWidth和RowHeight属性设置单元格区域的列宽和行高。
• 通过HorizontalAlignment和VerticalAlignment设置单元格中文本在水平和垂直方向的对齐方式，并通过AddIndent属性设置单元格中文本是否缩进。HorizontalAlignment和VerticalAlignment取值如下图

• 通过Borders属性来设置单元格区域的边框：外边框蓝色细实线、内边框红色虚线

const TABLEHEAD = "A1:E1";//定义好标题栏的地址 const TABLEBODY = "A2:E6";//定义好数据栏的地址 const DATATABLE = "A1:E6";//定义表格的地址。 //定义一个无前缀的“会计专用”数字格式。 const ACCOUNTANT_NUMBER_FORMAT_NONPREFIX = '_ * #,0.00_ ;_ * -#,0.00_ ;_ * "-"??_ ;_ @_ '; function CreateTableHead() { let rngHead = Worksheets("Sheet2").Range(TABLEHEAD); //行高 rngHead.RowHeight = 25; //第一列列宽5、第二列列宽12、第三列列宽7、第四列列宽7、第五列列宽10 rngHead.Parent.Range("A:A").ColumnWidth = 5; rngHead.Parent.Range("B:B").ColumnWidth = 12; rngHead.Parent.Range("C:C").ColumnWidth = 7; rngHead.Parent.Range("D:D").ColumnWidth = 7; rngHead.Parent.Range("E:E").ColumnWidth = 10; //各列都是水平居中、垂直居中 rngHead.HorizontalAlignment = xlHAlignCenter; rngHead.VerticalAlignment = xlVAlignCenter; //通过Borders属性来设置单元格区域的边框：外边框蓝色细实线、内边框红色虚线 // xlEdgeBottom、 xlEdgeLeft、 xlEdgeRight、 xlEdgeTop、 xlInsideHorizontal 或 xlInsideVertical。 rngHead.Borders(xlEdgeBottom).LineStyle = xlContinuous; rngHead.Borders(xlEdgeLeft).LineStyle = xlContinuous; rngHead.Borders(xlEdgeRight).LineStyle = xlContinuous; rngHead.Borders(xlEdgeTop).LineStyle = xlContinuous; //颜色RGB(red,green,blue)三个参数分别代表着0~255范围内的值。以下（0，0，255）表示是纯蓝色 rngHead.Borders(xlEdgeBottom).Color = RGB(0,0,255); rngHead.Borders(xlEdgeLeft).Color = RGB(0,0,255); rngHead.Borders(xlEdgeRight).Color = RGB(0,0,255); rngHead.Borders(xlEdgeTop).Color = RGB(0,0,255); rngHead.Borders(xlInsideHorizontal).LineStyle = xlDash; rngHead.Borders(xlInsideVertical).LineStyle = xlDash; //颜色RGB(red,green,blue)三个参数分别代表着0~255范围内的值。以下（0，0，255）表示是纯红色 rngHead.Borders(xlInsideHorizontal).Color = RGB(255,0,0); rngHead.Borders(xlInsideVertical).Color = RGB(255,0,0); }

练习2：在练习1的基础上再画出5行。

边框要求同练习1；第一列水平居中垂直居中；第二列垂直居中水平居左；第三到第五列数字格式设为“会计专用”第五列公式：第三列的值乘以第四列的值。将练习1中的标题栏从左至右设置单元格内容为：序号、名称、数量、单价、金额。

• 通过NumberFormat设置单元格数字显示格式；
• 通过Font属性设置表格文本字体、及字体样式；
• 通过Formula2属性设置单元格中的公式；
• 通过text和value2属性设置单元格的文本或数值。

function CreateTableBody(){ let rngBody = Worksheets("Sheet2").Range(TABLEBODY); let rngTable = Worksheets("Sheet2").Range(DATATABLE); let titleArray = ['序号','名称','数量','单价','金额']; //边框要求同练习1，因此可以直接将练习1关于边框的都复制过来 // xlEdgeBottom、 xlEdgeLeft、 xlEdgeRight、 xlEdgeTop、 xlInsideHorizontal 或 xlInsideVertical。 rngBody.Borders(xlEdgeBottom).LineStyle = xlContinuous; rngBody.Borders(xlEdgeLeft).LineStyle = xlContinuous; rngBody.Borders(xlEdgeRight).LineStyle = xlContinuous; rngBody.Borders(xlEdgeTop).LineStyle = xlContinuous; rngBody.Borders(xlEdgeBottom).Color = RGB(0,0,255); rngBody.Borders(xlEdgeLeft).Color = RGB(0,0,255); rngBody.Borders(xlEdgeRight).Color = RGB(0,0,255); rngBody.Borders(xlEdgeTop).Color = RGB(0,0,255); rngBody.Borders(xlInsideHorizontal).LineStyle = xlDash; rngBody.Borders(xlInsideVertical).LineStyle = xlDash; rngBody.Borders(xlInsideHorizontal).Color = RGB(255,0,0); rngBody.Borders(xlInsideVertical).Color = RGB(255,0,0); //2、第一列水平居中垂直居中；第二列垂直居中水平居左；第三到第五列数字格式设为“会计专用”第五列公式：第三列的值乘以第四列的值。 for(col of rngBody.Columns) { //对列的序号进行switch判断分别 switch(col.Column){ case 1: //第一列，水平居中 col.HorizontalAlignment = xlHAlignCenter; break; case 2: //第二列，水平居左 col.HorizontalAlignment = xlHAlignLeft; break; case 3: //第三列和第四列都要设置为会计专用的数字显示格式。 col.NumberFormat = ACCOUNTANT_NUMBER_FORMAT_NONPREFIX; break; case 4: col.NumberFormat = ACCOUNTANT_NUMBER_FORMAT_NONPREFIX; break; case 5: ////第五列要设置为会计专用的数字显示格式；还要设置公式 col.NumberFormat = ACCOUNTANT_NUMBER_FORMAT_NONPREFIX; col.Formula = "=C2*D2";//这样写也能实现自动向下填充 //col.Cells(1).Formula = "=C2*D2";//列中第一个单元格的公式 //col.FillDown();//向下填充 break; } col.VerticalAlignment = xlVAlignCenter//所有列都垂直居中 } //3、将练习1中的标题栏从左至右设置单元格内容为：序号、名称、数量、单价、金额。 //取得数据表的第一行，也即是标题栏那一行，设置它每个单元格的值是上述所定义的数组。 rngTable.Rows(1).Value2 = titleArray; //所有行高 rngTable.RowHeight = 25;//数据表格中的单元格行高25 //通过Font属性设置表格文本字体、及字体样式； rngTable.Font.Name = '微软雅黑'; rngTable.Font.Size = 11 rngTable.Rows(1).Font.Bold = true;//标题栏粗体 }

以上就是本期关于Rang对象的属性的第二部分内容。

通过第二部分的内容，创建了一个简单的数据表格：设置了表格的字体、边框、公式；学会了如何将数组值赋值给单元格。

我们同样是可以通过微软的VBA对象模型用在WPS的JSA中。小编发现WPS官方的文档内容不足，有缺失。我们在实际工作中，完全是可以将VBA的对象模型作为我们的参考工具之一。

以上代码复制后即可运行。

小编的演示文档会保存起来，免费提供给大家学习，如有需要关注后私信说明要哪一章节的演示文档。

请注意：演示文档与小编的教程同步即是小编的教程到哪一步，演示文档就到哪一章节。

关注我，持续共同学习，一起踏上wps宏(JSA)的登山之路。

#头条创作挑战赛#