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 |