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是设定 合拼储存格

嗯 ... 实在是太烦了 … 慢慢研究一下吧 ~ 这次就不作解释了 ~ 因为实在是太烦 =_=