VBA处理EXCEL单元格格式-4

发布时间:2021-11-04 12:37:13 作者:cemon_liu 阅读量:17

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

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

设置单元格格式

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

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图片颜色
Excel图片颜色

设置字体样式

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

vb 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 ¨G1G vb 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

样式图片
样式图片

最后放上思维导图

思维导图
思维导图


苏ICP备 19049580号-1号

Catfish(鲶鱼) CMS V 6.4.0