单元格格式设置汇总

[vb]代码库

sub 格式操作（）

    Range("A:A").NumberFormatLocal = "@" '文本格式
    Range("B:B").NumberFormatLocal = "yyyy-mm-dd" '日期格式
    Range("C:C").NumberFormatLocal = "[DBNum2][$-804]G/通用格式元整" '人民币大写
    Range("D:D").NumberFormatLocal = "0.00%" '设置单元格为百分比格式
    Range("E:E").NumberFormatLocal ="0.00E+00" '设置单元格为科学记数法格式
   Range("a1:i1").Merge'设置a1:i1合并
   Range("a1").HorizontalAlignment = xlCenter'设置居中对齐’
Range("a1").HorizontalAlignment = xlRight'设置右对齐’
Range("a1").HorizontalAlignment =xlLeft'设置左对齐’


    Range("a1:k100").Clear'清除a1:k100的格式和内容
   Range("a1").ClearContents '清除内容而不清除格式
   Range("a1").ClearFormats '清除格式而不清除内容
With [a2:a6].Font
 .Name = "微软雅黑" '字体
 .Size = 8 '字号
 .Bold = True '加粗
.Italic = True'斜体
 .Color = RGB(255, 0, 255) '字体颜色（255*255*255种色）
.ColorIndex = 3'字体颜色（1 到56）
 End With

With [a2:a6]
.Borders.LineStyle = xlContinuous'设置单元格边框
.Borders.ColorIndex = 48   "设置边框颜色
.Interior.Color = RGB(0, 0, 255)  '背景的颜色蓝色
end with

Columns(1).ColumnWidth =StandardWidth'A列宽为标准列宽
Rows(1).RowHeight =StandardHeight'首行行高为标准行高
end sub