其實妳自己可嘗試錄宏得到妳要的(每改變單元格格式壹個選項 錄壹個)
Sub?Macro2()'
'?Macro2?Macro
'?快捷鍵:?Ctrl+y'執行宏Macro2?的快捷式
Range("B2:E13").Select?'選定"B2:E13"單元格
With?Selection?'With語句?Selection?即單元格?"B2:E13"
.HorizontalAlignment?=?xlCenter?'單元格格式--對齊?-?文本的對齊方式?-?水平居中
.VerticalAlignment?=?xlCenter'單元格格式--對齊?-?文本的對齊方式?-?垂直居中
.WrapText?=?False'單元格格式--對齊?-?文本文本?-?自動換行
.Orientation?=?0'單元格格式--對齊?-?文本的對齊方式?-?文本方向角度
.AddIndent?=?False?'單元格格式--對齊?-?文本的對齊方式?-?等距分布
.IndentLevel?=?0'單元格格式--對齊?-?文本的對齊方式?-?縮進(I)
.ShrinkToFit?=?False'單元格格式--對齊?-?文本控制?-?縮小字體填充
.ReadingOrder?=?xlContext'單元格格式--對齊?-?從左到右文字方向?-?根據內容
.MergeCells?=?False?'單元格格式--對齊?-?文本控制?-?合並單元格
End?With'With語句結束
Selection.NumberFormatLocal?=?"#,##0_?"?'單元格格式--?數字?-?分類?-?自定義"#,##0_?"
Columns("D:D").ColumnWidth?=?7.75'D列列寬?=?7.75
Columns("D:L").Select'選定D列到L列
Selection.ColumnWidth?=?7.6?'選定的(D列到L列)列寬?=?7.6
Range("N13").Select?'選定"N13"單元格(光標定在N13)
End?Sub
另外,如果是缺省的是可以刪除的。比如上面的With語句可以簡化為:
With?Selection?.HorizontalAlignment?=?xlCenter
.VerticalAlignment?=?xlCenter
End?With