Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何設定儲存格的對齊方式

~ 上傳‧分享‧網賺 ~

~ 免費上傳空間‧請即申請 Freak Share ~

~ 進入後請點選左上角 注冊 ! ~

~ 聲明事項 ~

如各位想把以下本文章轉貼 , 請記得要注明出處.

本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.

由於圖片製作需時, 所以更新會比較慢.

存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.

要說明儲存格的對齊方式的話 … 嗯 … 的確很煩 … 煩得要死 ~ 先看一下下面的程式碼 ~

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

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是設定 合拼儲存格

嗯 ... 實在是太煩了 … 慢慢研究一下吧 ~ 這次就不作解釋了 ~ 因為實在是太煩 =_=