Excel_VBA 设置单元格的对齐方式

Public Sub 技巧4_151()
Dim myRange As Range
Set myRange = Range("A1") '指定任意单元格
With myRange
.Value = "ExcelVBA实用技巧大全"
.HorizontalAlignment = xlRight
MsgBox "水平右对齐。"
.HorizontalAlignment = xlLeft
MsgBox "水平左对齐。"
.HorizontalAlignment = xlCenter
MsgBox "水平居中。"
.HorizontalAlignment = xlDistributed
MsgBox "水平分散对齐。"
.VerticalAlignment = xlTop
MsgBox "垂直靠上。"
.VerticalAlignment = xlBottom
MsgBox "垂直靠下。"
.VerticalAlignment = xlCenter
MsgBox "垂直居中。"
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlGeneral
MsgBox "恢复默认。"
End With
Set myRange = Nothing
End Sub