VBA开发：设置单元格格式

好的应用离不开友好的界面，在开发VBA应用时，经常需要用到设置单元格的格式，包括数据格式、字体、对齐模式、单元格宽度、单元格高度、单元格文本的自动换行、单元格背景颜色，文字颜色、单元格线型等等。
本文通过实例，详细展示了如何方便的设置单元格的各种格式，可以作为初学者的一个较全面的参考。

 '设置单元格数据为文本格式
 Sheet1.Range("A1:A10").NumberFormat = "@"
 '设置单元格数据为日期格式年/月/日
 Sheet1.Range("B1:B10").NumberFormat = "yyyy/mm/dd"
 '设置单元格数据为日期格式月/日
 Sheet1.Range("C1:C10").NumberFormat = "mm/dd"
 '设置单元格数据为两位小数的数字格式
 Sheet1.Range("D1:D10").NumberFormat = "0.00"
 '设置单元格数据为两位小数的百分比数字格式
 Sheet1.Range("E1:E10").NumberFormat = "0.00%"

字体设置使用Font属性，Font属性下还有很多子属性，最常用的有size，bold，Italic，name,color等五个子属性。

With Sheet1.Range("A1:A10").Font
	'字体
	.Name = "宋体"
	'大小
	.Size = 11
	'斜体
	.Italic = False
	'加粗
	.Bold = True
	'颜色
	.Color = vbRed
        
End With

文本对齐使用HorizontalAlignment和VerticalAlignment属性。

'水平居中
Sheet1.Range("F2").HorizontalAlignment = xlCenter
'水平左对齐
Sheet1.Range("G2").HorizontalAlignment = xlLeft
'水平右对齐
Sheet1.Range("H2").HorizontalAlignment = xlRight
'水平左右分布对齐
Sheet1.Range("H3").HorizontalAlignment = xlDistributed
'垂直上对齐
Sheet1.Range("H4").VerticalAlignment = xlTop
'垂直下对齐
Sheet1.Range("G4").VerticalAlignment = xlBottom
'垂直居中
Sheet1.Range("F4").VerticalAlignment = xlCenter
'回复默认对齐
Sheet1.Range("F3").VerticalAlignment = xlGeneral
Sheet1.Range("G3").HorizontalAlignment = xlGeneral

单元格的宽度和高度分别使用RowHeight和ColumnWidth属性确定。

'设置行高
Sheet1.Rows(3).RowHeight = 40
'设置列宽
Sheet1.Range("A1:D1").ColumnWidth = Array(12, 15, 18, 12)

自动换行使用WrapText属性确定。

'设置单元格文本自动换行
Sheet1.Rows(1).WrapText = True

背景颜色使用interior.color属性来设置，线型通过Borders.LineStyle属性来设置。

'设置单元格背景颜色
Sheet1.cells(1,1).interior.color=vbGreen
'设置单元格的线型
Sheet1.Range("a3:d3”).Borders.LineStyle = xlContinuous