Excel VBA-設定儲存格的對齊方式

==================

Range(“A1″).Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub

==================

.HorizontalAlignment 的等號後面可以改成
xlGeneral 通用格式
xlLeft 靠左
xlCenter中間對齊
xlRight靠右
xlFill 填滿
xlJustify 段落重排
xlCenterAcrossSelection 跨欄置中
xlDistributed 分散對齊 ( 縮排 )

.VerticalAlignment的等號後面可以改成
xlTop 靠上
xlCenter 置中對齊
xlBottom 靠下
xlJustify段落重排
xlDistributed分散對齊

.WrapText 是設定 自動換列
.Orientation是設定 方向的角度
.AddIndent是設定 縮排
.IndentLevel是設定 縮排的值
.ShrinkToFit是設定 縮小字形以適合欄寬
.ReadingOrder是設定 文字方向 , 設定有三種 :
1. ) xlContext內容
2. ) xlLTR從左至右
3. ) xlRTL從右至左
.MergeCells是設定 合拼儲存格