vbs excel 设置格式
上一篇 / 下一篇 2013-12-04 17:29:06 / 个人分类：Common
set ExcelApp = CreateObject("Excel.Application")
set ExcelBook = ExcelApp.Workbooks.Open (filepath)
Set ExcelSheet = ExcelApp.Sheets.Item(1) '''''指定sheet编号
'''''设置属性'''''
With ExcelSheet '''''描述性编程 With 与 End With 配对
''''' .Name = "apple" '''''用来指定sheet,也可不用.使用时必须与sheet编号相对应
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''
'''''设置列宽'''''
''''''''''''''''''
.Columns("A:A").ColumnWidth = 20
.Columns("B:B").ColumnWidth = 15
.Columns("C:C").ColumnWidth = 10
.Columns("D:D").ColumnWidth = 25
.Columns("E:E").ColumnWidth = 20
.Columns("F:F").ColumnWidth = 10
'''''''''''''''''''''''''''''''''''''''''''''''以下设置方式均合法
'
' .Columns("A:f").ColumnWidth = 20 '''''指定从A列至F列的列宽
' .Columns("b").ColumnWidth = 20 '''''指定b列列宽
' .Columns("F").ColumnWidth = 20 '''''指定F列列宽
' .Columns("A:A").ColumnWidth = 20 '''''指定A列列宽
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''
'''''设置行高'''''''''很少使用此设置
''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''行高至少>10
.Rows(1).RowHeight = 15
.Rows(2).RowHeight = 20
.Rows(3).RowHeight = 25
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''
'''''设置显示区域的字体类型和大小'''''
''''''''''''''''''''''''''''''''''''''
''''''''''''''''''
'''''字体类型'''''
''''''''''''''''''
.Range("A:A").Font.Name = "Arial"
.Range("B:B").Font.Name = "宋体"
.Range("C:C").Font.Name = "黑体"
.Range("D:D").Font.Name = "新宋体"
.Range("E:E").Font.Name = "Times New Roman"
.Range("F:F").Font.Name = "Times New Roman"
'''''''''''''''''''''''''''''''''''''''''''''''以下设置方式均合法
'
' .Range("A:D").Font.Name = "Arial"
' .Range("a:b").Font.Name = "Arial"
' .Range("A:f").Font.Name = "Arial"
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''
'''''字体大小'''''
''''''''''''''''''
.Range("A:A").Font.Size = 12
.Range("B:B").Font.Size = 16
.Range("C:C").Font.Size = 20
'''''''''''''''''''''''''''''''''''''''''''''''以下设置方式均合法
'
' .Range("A:F").Font.Size = 6
' .Range("a:b").Font.Size = 8
' .Range("A:f").Font.Size = 10
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''
'''''给指定区域赋值'''''
''''''''''''''''''''''''
.Range("A1").Value = "用例名称"
.Range("B1").Value = "测试号码"
.Range("C1").value = "号码类型"
.Range("D1").value = "执行时间"
.Range("E1").value = "检查点描述"
.Range("F1").value = "检查结果"
'''''''''''''''''''''''''''''''''''''''''''''''以下设置方式均合法
'
' .Range("a1").Value = "for" '''''A1单元格内容为 for
' .Range("b:b").Value = "test" '''''B列内容都为 test
' .Range("c:A").Value = "test" '''''从A列至C列的内容均为 test
' .Range("a3:F3").Value = "great" '''''第三行,从A至F列均为 great
' .Range("b3:E6").Value = "day" '''''从B3单元格至E6单元格矩形区间范围的值均为 day
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''
'''''合并居中'''''
''''''''''''''''''
.Range("B1:C1").Merge '''''B1单元格与C1单元格合并居中
'''''''''''''''''''''''''''''''''''''''''''''''以下设置方式均合法
'
' .Range("a:f").Merge '''''A列至F列合并居中
' .Range("B3:g7").Merge '''''从B3单元格至G7单元格矩形区间合并居中
' .Range("a2:f2").Merge '''''A2,B2,C2,D2,E2,F2单元格合并居中
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''设置文字颜色'''''颜色取值范围:0~56''0为无颜色''
''''''''''''''''''''''''''''''''''''''''''''''''''''
.Range("A1").Font.ColorIndex = 5
'''''''''''''''''''''''''''''''''''''''''''''''以下设置方式均合法
'
' .Range("g:G").Font.ColorIndex = 48 '''''G列的字体颜色设为48
' .Range("A:c").Font.ColorIndex = 28 '''''A列至C列的字体颜色设为 28
' .Range("b2:c2").Font.ColorIndex = 3 '''''B2至C2单元格字体颜色设为 3
' .Range("A1:c4").Font.ColorIndex = 9 '''''A1至C4单元格矩形区间字体颜色设为 9
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''
'''''加粗'''''
''''''''''''''
.Range("A1").Font.Bold = True
'''''''''''''''''''''''''''''''''''''''''''''''以下设置方式均合法
'
' .Range("g:G").Font.Bold = True '''''G列的字体设为粗体
' .Range("A:C").Font.Bold = True '''''A列至C列的字体设为粗体
' .Range("b3:g5").Font.Bold = True '''''B3至G5单元格矩形区间的字体设为粗体
' .Range("c1:G1").Font.Bold = True '''''C1至G1单元格的字体设为粗体
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''
'''''对齐方式'''''
''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''' 1 常规方式 '''''''''''''''
''''''''''''''' 2 左对齐 '''''''''''''''
''''''''''''''' 3 居中 '''''''''''''''
''''''''''''''' 4 右对齐 '''''''''''''''
''''''''''''''' 5 填充方式 '''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''
.Range("A:A").HorizontalAlignment = 4 '''''右边对齐 A列所有行
.Range("B:B").HorizontalAlignment = 1 '''''常规方式
.Range("C:C").HorizontalAlignment = 2 '''''左对齐
.Range("D:D").HorizontalAlignment = 3 '''''居中
.Range("E:E").HorizontalAlignment = 5 '''''填充方式
'''''''''''''''''''''''''''''''''''''''''''''''以下设置方式均合法
'
'
'
'
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''
'''''单元格背景'''''取值范围0~56'''0为无颜色''
''''''''''''''''''''''''''''''''''''''''''''''
.Range("A1:F1").Interior.ColorIndex = 45
'''''''''''''''''''''''''''''''''''''''''''''''以下设置方式均合法
'
'
set ExcelBook = ExcelApp.Workbooks.Open (filepath)
Set ExcelSheet = ExcelApp.Sheets.Item(1) '''''指定sheet编号
'''''设置属性'''''
With ExcelSheet '''''描述性编程 With 与 End With 配对
''''' .Name = "apple" '''''用来指定sheet,也可不用.使用时必须与sheet编号相对应
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''
'''''设置列宽'''''
''''''''''''''''''
.Columns("A:A").ColumnWidth = 20
.Columns("B:B").ColumnWidth = 15
.Columns("C:C").ColumnWidth = 10
.Columns("D:D").ColumnWidth = 25
.Columns("E:E").ColumnWidth = 20
.Columns("F:F").ColumnWidth = 10
'''''''''''''''''''''''''''''''''''''''''''''''以下设置方式均合法
'
' .Columns("A:f").ColumnWidth = 20 '''''指定从A列至F列的列宽
' .Columns("b").ColumnWidth = 20 '''''指定b列列宽
' .Columns("F").ColumnWidth = 20 '''''指定F列列宽
' .Columns("A:A").ColumnWidth = 20 '''''指定A列列宽
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''
'''''设置行高'''''''''很少使用此设置
''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''行高至少>10
.Rows(1).RowHeight = 15
.Rows(2).RowHeight = 20
.Rows(3).RowHeight = 25
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''
'''''设置显示区域的字体类型和大小'''''
''''''''''''''''''''''''''''''''''''''
''''''''''''''''''
'''''字体类型'''''
''''''''''''''''''
.Range("A:A").Font.Name = "Arial"
.Range("B:B").Font.Name = "宋体"
.Range("C:C").Font.Name = "黑体"
.Range("D:D").Font.Name = "新宋体"
.Range("E:E").Font.Name = "Times New Roman"
.Range("F:F").Font.Name = "Times New Roman"
'''''''''''''''''''''''''''''''''''''''''''''''以下设置方式均合法
'
' .Range("A:D").Font.Name = "Arial"
' .Range("a:b").Font.Name = "Arial"
' .Range("A:f").Font.Name = "Arial"
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''
'''''字体大小'''''
''''''''''''''''''
.Range("A:A").Font.Size = 12
.Range("B:B").Font.Size = 16
.Range("C:C").Font.Size = 20
'''''''''''''''''''''''''''''''''''''''''''''''以下设置方式均合法
'
' .Range("A:F").Font.Size = 6
' .Range("a:b").Font.Size = 8
' .Range("A:f").Font.Size = 10
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''
'''''给指定区域赋值'''''
''''''''''''''''''''''''
.Range("A1").Value = "用例名称"
.Range("B1").Value = "测试号码"
.Range("C1").value = "号码类型"
.Range("D1").value = "执行时间"
.Range("E1").value = "检查点描述"
.Range("F1").value = "检查结果"
'''''''''''''''''''''''''''''''''''''''''''''''以下设置方式均合法
'
' .Range("a1").Value = "for" '''''A1单元格内容为 for
' .Range("b:b").Value = "test" '''''B列内容都为 test
' .Range("c:A").Value = "test" '''''从A列至C列的内容均为 test
' .Range("a3:F3").Value = "great" '''''第三行,从A至F列均为 great
' .Range("b3:E6").Value = "day" '''''从B3单元格至E6单元格矩形区间范围的值均为 day
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''
'''''合并居中'''''
''''''''''''''''''
.Range("B1:C1").Merge '''''B1单元格与C1单元格合并居中
'''''''''''''''''''''''''''''''''''''''''''''''以下设置方式均合法
'
' .Range("a:f").Merge '''''A列至F列合并居中
' .Range("B3:g7").Merge '''''从B3单元格至G7单元格矩形区间合并居中
' .Range("a2:f2").Merge '''''A2,B2,C2,D2,E2,F2单元格合并居中
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''设置文字颜色'''''颜色取值范围:0~56''0为无颜色''
''''''''''''''''''''''''''''''''''''''''''''''''''''
.Range("A1").Font.ColorIndex = 5
'''''''''''''''''''''''''''''''''''''''''''''''以下设置方式均合法
'
' .Range("g:G").Font.ColorIndex = 48 '''''G列的字体颜色设为48
' .Range("A:c").Font.ColorIndex = 28 '''''A列至C列的字体颜色设为 28
' .Range("b2:c2").Font.ColorIndex = 3 '''''B2至C2单元格字体颜色设为 3
' .Range("A1:c4").Font.ColorIndex = 9 '''''A1至C4单元格矩形区间字体颜色设为 9
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''
'''''加粗'''''
''''''''''''''
.Range("A1").Font.Bold = True
'''''''''''''''''''''''''''''''''''''''''''''''以下设置方式均合法
'
' .Range("g:G").Font.Bold = True '''''G列的字体设为粗体
' .Range("A:C").Font.Bold = True '''''A列至C列的字体设为粗体
' .Range("b3:g5").Font.Bold = True '''''B3至G5单元格矩形区间的字体设为粗体
' .Range("c1:G1").Font.Bold = True '''''C1至G1单元格的字体设为粗体
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''
'''''对齐方式'''''
''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''' 1 常规方式 '''''''''''''''
''''''''''''''' 2 左对齐 '''''''''''''''
''''''''''''''' 3 居中 '''''''''''''''
''''''''''''''' 4 右对齐 '''''''''''''''
''''''''''''''' 5 填充方式 '''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''
.Range("A:A").HorizontalAlignment = 4 '''''右边对齐 A列所有行
.Range("B:B").HorizontalAlignment = 1 '''''常规方式
.Range("C:C").HorizontalAlignment = 2 '''''左对齐
.Range("D:D").HorizontalAlignment = 3 '''''居中
.Range("E:E").HorizontalAlignment = 5 '''''填充方式
'''''''''''''''''''''''''''''''''''''''''''''''以下设置方式均合法
'
'
'
'
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''
'''''单元格背景'''''取值范围0~56'''0为无颜色''
''''''''''''''''''''''''''''''''''''''''''''''
.Range("A1:F1").Interior.ColorIndex = 45
'''''''''''''''''''''''''''''''''''''''''''''''以下设置方式均合法
'
'
相关阅读:
- excel置顶 (左手乾坤, 2013-6-28)
- Excel文件另存为 (ChinaTNT, 2013-10-16)
TAG: Excel excel EXCEL vbs VBS
