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

以上属性（均来自于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)的登山之路。

#头条创作挑战赛#