NumberFormat 屬性
返回或設置對象的格式代碼。
說(shuō)明：
如果指定區域中的所有單元格包含不同的數字格式，則此屬性返回 Null。
格式代碼與“設置單元格格式”對話(huà)框中的“格式代碼”選項是同一個(gè)字符串。
Format 函數使用的格式代碼字符串與NumberFormat 和 NumberFormatLocal 屬性使用的格式代碼字符串不同。
示例：
With Range('g7')
.Value = 1
.NumberFormat = 'yyyy/mm/dd'
With .Offset(1)
.Value = 34567
.NumberFormat = 'yyyy/mm/dd'
EndWith
End With
NumberFormatLocal 屬性
以采用用戶(hù)語(yǔ)言字符串的形式返回或設置對象的格式代碼。
示例：
MsgBoxRange('g7').NumberFormatLocal
與OFFICE版本的本地化有關(guān)，有不同語(yǔ)言的OFFICE的童鞋可以測試并對比這兩個(gè)屬性。
Characters 屬性
返回 Characters 對象，它代表對象文本內某個(gè)區域的字符。
使用 Characters 對象可為文本字符串內的字符設置格式。
語(yǔ)法：Characters(Start, Length)
Start 可選，要返回的第一個(gè)字符。如果此參數是 1或被省略，則此屬性返回一個(gè)以第一個(gè)字符為開(kāi)頭的字符區域。
Length 可選，要返回的字符數。如果省略此參數，則此屬性返回字符串的后半部分（Start 字符之后的所有字符）。
示例：
With Range('c17')
.Clear
.Value = 'ID:hwc2ycy'
With .Characters(InStr(.Value, ':') + 1)
.Font.Color = vbRed
End With
End With
C17單元格中冒號后面的字符以紅色顯示。
實(shí)際中，如果需要用代碼針對單元格中某一部分字段內容設置不同的格式，可以用到這個(gè)對象。
CountLarge 屬性
在指定區域的值中計算最大值，Variant 類(lèi)型。
EXCEL 2010版本中，工作表內一共有1048576行，16384列。
那么，單元格數量就為1048576*16384= 17179869184。
在事件過(guò)程中有童鞋可能經(jīng)常用這句判斷當前所選的單元格數量：If Target.count>1
那恭喜你了，一個(gè)地雷就在此埋下了，雖然觸發(fā)機率不大。
例如Selection_change事件，當我全選了所有的單元格，這里就要產(chǎn)生溢出的錯誤了。
Range的count屬性返回值是LONG類(lèi)型，LONG最大值為147483647。
當全選了所有單元格后，長(cháng)整形是不夠用了，溢出就產(chǎn)生了。
CountLarge返回類(lèi)型是個(gè)Variant，不存在溢出的隱患。
如果代碼只在07以上版本使用，還是推薦使用這個(gè)屬性。
示例：
MsgBox Cells.CountLarge
MsgBox [1:900,a:z].CountLarge
Font 屬性
返回一個(gè) Font 對象，它代表指定對象的字體。
示例：
WithRange('a1').CurrentRegion.Rows(1)
With .Font
.Size = 15
.Bold = True
End With
End With
設置A1單元格所在的區域第一行的單元格字體為15號，加粗
更多字體的設置可參考FONT對象。
HorizontalAlignment 屬性
返回或設置指定對象的水平對齊方式。
此屬性的值可設為以下常量之一：
xlLeft 靠左
xlCenter 居中
xlRight 靠右
xlJustify 兩端對齊
xlCenterAcrossSelection 跨列居中
xlDistributed 分散對齊
某些常量可能不可用，這取決于所選擇或安裝的語(yǔ)言支持（例如，美國英語(yǔ)）。
示例：
WithRange('a1').CurrentRegion.Rows(1)
.HorizontalAlignment = xlCenter
End With
VerticalAlignment 屬性
返回或設置指定對象的垂直對齊方式。
此屬性的值可設為以下常量之一：
xlTop 靠上
xlCenter 居中
xlBottom 靠下
xlJustify 兩端對齊
xlDistributed 分散對齊
示例：
With Range('a1').CurrentRegion
.VerticalAlignment = xlCenter
End With
Style 屬性
返回或設置一個(gè)包含 Style 對象的 Variant 值，它代表指定區域的樣式。
Style 對象包含樣式的所有屬性（字體、數字格式、對齊方式，等等）。
有幾種內置樣式，包括“常規”、“貨幣”和“百分比”。
同時(shí)對多個(gè)單元格修改單元格格式屬性時(shí)，使用 Style 對象是快捷高效的方法。
對于 Workbook 對象，Style 對象是 Styles 集合的成員。
Styles 集合包含該工作簿的所有已定義樣式。
通過(guò)更改應用于單元格的樣式的屬性可更改單元格的外觀(guān)。
但要記住，更改樣式的屬性將影響所有以該樣式格式化了的單元格。
示例：
Worksheets('Sheet1').Range('A1:A10').Style= 'Percent'
ActiveWorkbook.Styles('Normal').Font.Bold= True
Dim sty As Style
Debug.Print '清理樣式前，當前工作簿中樣式總數：' & ActiveWorkbook.Styles.Count
For Each sty In ActiveWorkbook.Styles
With sty
Debug.Print .Name, .NameLocal
'顯示樣式的名字
If Not .BuiltIn Then
.Delete
End If
'如果自定義的樣式則刪除
End With
Next
Debug.Print '清理樣式后，當前工作簿中樣式總數：' & ActiveWorkbook.Styles.Count
聯(lián)系客服
