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

cemon_liu Lv4

2021-07-01 08:23:32 2021-07-01 08:23 2023-05-27 09:55:31

编程学习

VBA

VBA处理EXCEL单元格格式

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

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

设置单元格格式

主要是针对填充单元格的颜色。使用的方法是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个颜色。

设置字体样式

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

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属性。

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
本文链接：2021/07/01/VBA处理EXCEL单元格格式-4/
版权声明：本博客所有文章除特别声明外，均采用 BY-NC-SA 许可协议。转载请注明出处！

#VBA

评论

1. VBA处理EXCEL单元格格式