點(diǎn)擊本文左下角的“閱讀原文”，可以查看所有煙花VBA系列。

------------以下是正文------------------------

Worksheet.Columns 屬性
　　返回一個(gè) Range 對(duì)象，它代表指定工作表中的所有列。
　　如果指定的非工作表，則 Columns 屬性失效。
　　在不使用對(duì)象識(shí)別符的情況下使用此屬性等效于使用 ActiveSheet.Columns。
　　此屬性在應(yīng)用于一個(gè)是多重選定區(qū)域的 Range 對(duì)象時(shí)，會(huì)只從該區(qū)域的第一個(gè)子區(qū)域中返回列。
　　例如，如果 Range 對(duì)象有兩個(gè)子區(qū)域 A1:B2 和 C3:D4，那么，Selection.Columns.Count 的返回值是 2，而不是 4。
　　若要對(duì)一個(gè)可能包含多重選定區(qū)域的區(qū)域使用此屬性，請(qǐng)測(cè)試 Areas.Count 以確定此區(qū)域內(nèi)是否包含多個(gè)子區(qū)域。
　　如果包含，請(qǐng)對(duì)此區(qū)域內(nèi)的每個(gè)子區(qū)域進(jìn)行循環(huán)。
　　示例：
　　　Worksheets('Sheet1').Columns(1).Font.Bold = True
　　　'sheet1工作表的第一列字體加粗

　　　Dim rg As Range
　　　If TypeName(Selection) = 'Range' Then
　　　'檢測(cè)當(dāng)前所選擇的是否單元格對(duì)象
　　　　Debug.Print Selection.Address
　　　　'在立即窗口輸出所選單元格的地址
　　　　For Each rg In Selection.Areas
　　　　'區(qū)域中循環(huán)（這樣避免多選情況下有漏網(wǎng)之魚）
　　　　With rg
　　　　　.Columns.Font.Italic = True
　　　　　'斜體
　　　　　.Font.ColorIndex = 3
　　　　　'字體顏色
　　　　End With
　　　　Debug.Print rg.Address
　　　Next
　　　End If

　　Worksheet.Comments 屬性
　　返回一個(gè) Comments 集合，該集合表示指定工作表的所有注釋，只讀。
　　示例：
　　Dim ct As Comment
　　If ActiveSheet.Comments.Count Then
　　　　For Each ct In ActiveSheet.Comments
　　　　　Debug.Print ct.Text
　　　　　'在立即窗口中顯示批注內(nèi)容
　　　　　'可以用代碼操作，添加批注
　　　　Next
　　End If

　　Worksheet.CustomProperties 屬性
　　返回一個(gè) CustomProperties 對(duì)象，該對(duì)象表示與工作表相關(guān)的標(biāo)識(shí)符信息。
　　對(duì)于 CustomProperties 屬性，工作表的標(biāo)識(shí)符信息可以表示 XML 的元數(shù)據(jù)。
　　示例：
　　　With ActiveSheet.CustomProperties
　　　　.Add Name:='hwc2ycy', Value:='VBA入門'
　　　　With .Item(1)
　　　　　MsgBox .Name & vbTab & .Value
　　　　End With
　　　End With
　　'向活動(dòng)工作表添加標(biāo)識(shí)符信息
　　用這招可以偷偷在工作表添加些不易被人發(fā)現(xiàn)的附加信息:-)

　　Worksheet.DisplayPageBreaks 屬性
　　如果顯示指定工作表中的分頁符（包括自動(dòng)和手動(dòng)分頁符），則該屬性值為 True，Boolean 類型，可讀寫。
　　如果沒有安裝打印機(jī)，不能設(shè)置該屬性。
　　示例：
　　　　Worksheets('Sheet1').DisplayPageBreaks = True
　　　　此項(xiàng)對(duì)應(yīng)的設(shè)置在Excel選項(xiàng)，高級(jí)，此工作表的顯示選項(xiàng)，顯示分頁符。

　　Worksheet.DisplayRightToLeft 屬性
　　如果指定工作表是從右到左顯示（而非從左到右），則為 True。
　　如果對(duì)象從左到右顯示，則為 False。
　　此項(xiàng)對(duì)應(yīng)的設(shè)置在Excel選項(xiàng)，高級(jí)，此工作表的顯示選項(xiàng)，從右到左顯示工作表，可參考上圖。
　　

　　Worksheet.FilterMode 屬性
　　如果工作表處于篩選模式，則為 True。只讀 Boolean 類型。
　　示例：
　　　MsgBox ActiveSheet.Name & '處于篩選狀態(tài)：' & Choose(CInt(ActiveSheet.FilterMode) + 2, '是', '否')
　　注意，這個(gè)屬性和AutoFilter還是有區(qū)別的，區(qū)別在哪，大家可以細(xì)細(xì)觀察。