VBA自动化处理数据4-单元格格式设置
cemon_liu Lv4

VBA处理EXCEL单元格格式

使用VBA可以快速处理一些格式设置。这里主要分三步

  1. 循环EXCEL区域
  2. 判定符合条件的单元格
  3. 设定单元格格式

设置单元格格式

主要是针对填充单元格的颜色。使用的方法是Range().Interior.Color或者ColorIndex

1
2
3
4
5
6
sub setcellcolor()
'设置区域A1:A10的颜色为绿色
Range("A1:A10").Interior.Color = vbGreen
'设置区域A1:A10的颜色为2即白色
Range("A1:A10").Interior.ColorIndex = 2
end sub

color也可以用RGB样式来引用。

colorIndex是Excel内置的颜色排序,使用数字来对应不同的颜色。有56个颜色。

Excel图片颜色

设置字体样式

常用的字体设置有是否加粗,字体类型,字体大小,颜色等。

1
2
3
4
5
6
7
8
9
10
11
sub setfont()
'设置字体颜色为白色'
Range("A1:A10").Font.Color = vbWhite
'设置字体加粗'
Range("A1:A10").Font.Bold = True
'设置字体类型为Arial'
Range("A1:A10").Font.name = "Arial"
'设置字体大小为15'
Range("A1:A10").Font.Size = 15
end sub

设置边框样式

边框使用Range的borders属性。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
sub testborder()
'设置斜上线'
Range("D1").Borders(xlDiagonalUp).LineStyle = xlDash
'设置斜下线实线'
Range("D2").Borders(xlDiagonalDown).LineStyle = xlContinuous
'设置底部线点线'
Range("D3").Borders(xlEdgeBottom).LineStyle = xlDash
'设置左部线实线'
Range("D4").Borders(xlEdgeLeft).LineStyle = xlContinuous
'设置右部线点线'
Range("D5").Borders(xlEdgeRight).LineStyle = xlDash
'设置顶部线双实线'
Range("D6").Borders(xlEdgeTop).LineStyle = xlDouble
end sub

样式图片

最后放上思维导图

思维导图

  • 本文标题:VBA自动化处理数据4-单元格格式设置
  • 本文作者:cemon_liu
  • 创建时间:2021-07-01 08:23:32
  • 本文链接:https://blog.gooday.press/2021/07/01/VBA处理EXCEL单元格格式-4/
  • 版权声明:本博客所有文章除特别声明外,均采用 BY-NC-SA 许可协议。转载请注明出处!
 评论