搬家第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区域的单元格下边框加上,实线线型。