==================
Range("A1").Select
With Selection
.HorizontalAlignment = xlLeft '水平對齊
.VerticalAlignment = xlCenter '鉛直對齊
.WrapText = False '設定自動換列
.Orientation = 0 '設定方向的角度
.AddIndent = False '設定縮排
.IndentLevel = 0 '設定縮排的值
.ShrinkToFit = False '設定縮小字形以適合欄寬
'設定文字方向,xlContext內容,xlLTR從左至右,xlRTL從右至左
.ReadingOrder = xlContext '設定文字方向
.MergeCells = False '設定合拼儲存格
.Interior.ColorIndex = 9 '填滿的顏色
End With
==================
水平對齊:
.HorizontalAlignment 的設定值:
xlGeneral 通用格式
xlLeft 靠左
xlCenter中間對齊
xlRight靠右
xlFill 填滿
xlJustify 段落重排
xlCenterAcrossSelection 跨欄置中
xlDistributed 分散對齊 ( 縮排 )
鉛直對齊:
.VerticalAlignment的設定值:
xlTop 靠上
xlCenter 置中對齊
xlBottom 靠下
xlJustify段落重排
xlDistributed分散對齊
=====================================
'自動調整行高列寬
Columns("A:A").EntireColumn.AutoFit
Rows("1:1").EntireRow.AutoFit
=====================================
'儲存格的資料格式:
Selection.NumberFormatLocal = "G/通用格式"
Selection.NumberFormatLocal = "0.00_ "
Selection.NumberFormatLocal = "$#,##0.00"
Selection.NumberFormatLocal = _
"_-$* #,##0.00_-;-$* #,##0.00_-;_-$* ""-""??_-;_-@_-"
Selection.NumberFormatLocal = "yyyy/m/d"
Selection.NumberFormatLocal = "[$-F400]h:mm:ss AM/PM"
Selection.NumberFormatLocal = "0.00%"
Selection.NumberFormatLocal = "# ?/?"
Selection.NumberFormatLocal = "0.00E+00"
Selection.NumberFormatLocal = "@"
Selection.NumberFormatLocal = "000"
=====================================
Selection.Font.Name = "新細明體"
Range("A1").Font.Name = "標楷體"
MsgBox Range("A1").Font.Name
Selection.Font.ColorIndex = '設定字體的顏色
Selection.Font.Size = '設定字體的大小
=====================================
Range("A1").Select
With Selection.Font
.Name = "新細明體"
.Size = "20"
.Bold = True
.Italic = True
.Underline = True
End With
=======================================
資料來源:
http://lazywilliam.blogspot.tw/2009/05/excel-vba_15.html
http://lazywilliam.blogspot.tw/2009/05/excel-vba_06.html
2014年2月24日 星期一
訂閱:
張貼留言 (Atom)
關節卡卡或彈響
關節間產生的潤滑液少,關節摩擦的損耗 髖關節彈響。 一般有兩種情況,第一種是關節外彈響較常見。 發生的主要原因是髂脛束的後緣或臀大肌肌腱部的前緣增厚, 在髖關節作屈曲、內收、內旋活動時,增厚的組織在大粗隆部前後滑動而發出彈響, 同時可見到和摸到一條粗而緊的縴維帶在...
-
================== Range("A1").Select With Selection .HorizontalAlignment = xlLeft '水平對齊 .VerticalAlignment = xl...
-
儲存格 [R1C1]格式,[A1]格式 Cells(列次,欄次).Select Cells(2, "A").Select '2列A欄 Cells(2, 1).Select '2列1欄 Cells.Item(5,”C”...
沒有留言:
張貼留言