《单元格格式设置VBA代码.docx》由会员分享，可在线阅读，更多相关《单元格格式设置VBA代码.docx（2页珍藏版）》请在三一办公上搜索。
1、单元格格式设置VBA代码单元格格式设置VBA代码 一、字体设置 With Selection.Font .Name = 华文楷体 .FontStyle = 常规 .Size = 20 End With 附录：其他一些属性 .Strikethrough = False 删除线 .Superscript = False 上标 .Subscript = False 下标 .OutlineFont = False 上标 .Shadow = False 阴影 .Underline = xlUnderlineStyleNone 下划线 二、水平和垂直居中 With Selection .Horizonta
2、lAlignment = xlCenter 水平对齐方式 rem xlLeft 左对齐 xlRight 右对齐 xlCenter 居中对齐 .VerticalAlignment = xlCenter 竖直对齐方式 rem xlTop 靠上 xlCenter 居中 xlBottom 靠下 .WrapText = True 自动换行 .MergeCells = True 合并单元格 End With 三、边框设置 dim i as Integer l=array(7,8,9,10,11,12) rem 7，8，9，10 分别代表外边框的左、上、下、右；11、12代表内边框垂直、水平。此处采用循环统一设置成一样的格式，可以根据自己的需要更改。 for i=0 to 5 With Selection.Borders(l(i) .LineStyle = 1 Rem 可以采用013之间的数字来表示。 .Color= RGB(0,0,0) End With Next 附：LineStyle样式 Color采用RGB色彩来对应。 四、数字格式 Selection.NumberFormatLocal = 支持所有符合自定义规则的格式。 五、单元格底纹 Selection.Interior.Color = RGB(255, 0, 0)
