搬家第24天-Citect V7.4 citectVBA定义excel边框样式

前面的博客记录了在excel一个区域划全部的边框，其实还可以自定义左、右、上、下、斜边框，以及边框线等等。在citectVBA编辑器写以下代码：

Sub ExcelBordersCnfg()
Dim fileName As string
Dim xlApp As Application
Set xlApp=CreateObject("excel.application")
xlApp.Visible=False
xlapp.workbooks.add
xlApp.Worksheets("Sheet1").Activate
xlApp.Worksheets("Sheet1").cells(1,1)="这是合并单元格"
xlApp.Worksheets("Sheet1").cells(2,1)=1234
xlApp.Worksheets("Sheet1").cells(2,2)=5678
xlapp.range("a1:j1").mergecells=True  '合并单元格
xlapp.cells(1,1).HorizontalAlignment = 3 '水平居中
xlapp.range("a2:j2").Select
xlapp.Selection.borders(9).linestyle=1
xlapp.Selection.borders(9).weight=2
xlapp.Activeworkbook.saveas "c:\2345.xls"
xlApp.Workbooks.Close
xlApp.Quit
Set xlApp=Nothing
End Sub

红色代码部分就是自定义边框，先定义需要划边框的区域，然后定义是上下左右哪个边框，borders后括号内数字表示了边框类型，具体见下：

https://msdn.microsoft.com/zh-cn/vba/excel-vba/articles/xlbordersindex-enumeration-excel

后面的.linestyle表示边框的线型，数字的含义见下：

https://msdn.microsoft.com/zh-cn/vba/excel-vba/articles/xllinestyle-enumeration-excel

包括边框线颜色等属性对应的常数数值，都可以在微软的msdn网站上查询到。

 

上面我写的代码就是把A2到J2区域的单元格下边框加上，实线线型。