Worksheet.Visible 屬性
　　返回或設(shè)置一個(gè) XlSheetVisibility 值，它確定對象是否可見。
　　XlSheetVisibility可為下列值:
　　xlSheetHidden 0 隱藏工作表，用戶可以通過菜單取消隱藏。
　　xlSheetVeryHidden 2 隱藏對象，以便使對象重新可見的唯一方法是將此屬性設(shè)置為 True（用戶無法使該對象可見）。
　　xlSheetVisible -1 顯示工作表。
　　對于一般用戶，設(shè)置值為xlSheetVeryHidden可以直到深度隱藏的效果。
　　另外在批量隱藏時(shí)，需要注意的是必須保留一個(gè)可見的工作表。

　　Worksheet.Rows 屬性
　　返回一個(gè) Range 對象，它代表指定工作表中的所有行。Range 對象，只讀。
　　在不使用對象識別符的情況下使用此屬性等效于使用 ActiveSheet.Rows。
　　該屬性在應(yīng)用于是多個(gè)選定區(qū)域的 Range 對象時(shí)，只從該區(qū)域中第一個(gè)子區(qū)域內(nèi)返回行。
　　例如，如果 Range 對象有兩個(gè)子區(qū)域：A1:B2 和 C3:D4，則 Selection.Rows.Count 返回 2 而不是 4。
　　若要在一個(gè)可能包含多個(gè)選定區(qū)域的區(qū)域中使用此屬性，請測試 Areas.Count 以確定該區(qū)域是否包含多個(gè)選擇區(qū)域。
　　示例:
　　　　MsgBox Rows.Count
　　　　Rows.count返回當(dāng)前活動(dòng)工作表內(nèi)的行數(shù)

　　　　Dim rg As Range
　　　　Dim lRow As Long
　　　　If TypeName(Selection) = 'Range' Then
　　　　　　For Each rg In Selection
　　　　　　　　lRow = lRow + rg.Rows.Count
　　　　　　Next
　　　　　　MsgBox '當(dāng)前所選區(qū)域 ' & Selection.Address & vbCrLf & '一共有 ' & lRow & ' 行'
　　　　End If
　　　　統(tǒng)計(jì)當(dāng)前所選區(qū)域內(nèi)一共有多少行

　　Worksheet.Columns 屬性
　　返回一個(gè) Range 對象，它代表活動(dòng)工作表中的所有列。
　　如果活動(dòng)文檔不是工作表，則 Columns 屬性失效。
　　在不使用對象識別符的情況下使用此屬性等效于使用 ActiveSheet.Columns。
　　此屬性在應(yīng)用于一個(gè)是多重選定區(qū)域的 Range 對象時(shí)，會(huì)只從該區(qū)域的第一個(gè)子區(qū)域中返回列。
　　例如，如果 Range 對象有兩個(gè)子區(qū)域 A1:B2 和 C3:D4，那么，Selection.Columns.Count 的返回值是 2，而不是 4。
　　若要對一個(gè)可能包含多重選定區(qū)域的區(qū)域使用此屬性，請測試 Areas.Count 以確定此區(qū)域內(nèi)是否包含多個(gè)子區(qū)域。
　　如果包含，請對此區(qū)域內(nèi)的每個(gè)子區(qū)域進(jìn)行循環(huán)。
　　實(shí)際使用時(shí)，直接用For each遍歷areas比較好，這個(gè)方法已經(jīng)同時(shí)兼顧到了只選一個(gè)區(qū)域和多個(gè)區(qū)域的情況，不需要先判斷ares.count再來根據(jù)情況執(zhí)行不同的代碼了。
　　示例：
　　　　With Worksheets('Sheet1').Columns(1)
　　　　　　.Font.Bold = True
　　　　　　.AutoFit
　　　　End With
　　設(shè)置工作表Sheet1的第一列字體加粗，列寬自動(dòng)調(diào)整。

　　Worksheet.Range 屬性
　　返回一個(gè) Range 對象，它代表一個(gè)單元格或單元格區(qū)域。
　　語法：Range(Cell1, Cell2)
　　參數(shù)：
　　Cell1 必選 Variant 區(qū)域名稱。必須為采用宏語言的 A1 樣式引用。
　　可包括區(qū)域操作符（冒號）、相交區(qū)域操作符（空格）或合并區(qū)域操作符（逗號）。
　　也可包括貨幣符號，但它們會(huì)被忽略掉。您可以在區(qū)域中任一部分使用局部定義名稱。
　　如果使用名稱，則假定該名稱使用的是宏語言。
　　Cell2 可選 Variant 區(qū)域左上角和右下角的單元格。可以是一個(gè)包含單個(gè)單元格、整列或整行的 Range 對象，或者也可以是一個(gè)用宏語言為單個(gè)單元格命名的字符串。
　　如果在沒有對象識別符時(shí)使用，則該屬性是 ActiveSheet.Range 的快捷方式（它返回活動(dòng)表的一個(gè)區(qū)域，如果活動(dòng)表不是一張工作表，則該屬性無效）。
　　當(dāng)應(yīng)用于 Range 對象時(shí)，該屬性與 Range 對象相關(guān)。
　　例如，如果選中單元格 C3，那么 Selection.Range('B1') 返回單元格 D3，因?yàn)樗?Selection 屬性返回的 Range 對象相關(guān)。
　　此外，代碼 ActiveSheet.Range('B1') 總是返回單元格 B1。
　　示例：
　　　　Worksheets('Sheet1').Range('A1').Value = 3.14159
　　　　Sheet1 上 A1 單元格的值設(shè)置為 3.14159。
　　　　
　　　　Dim c As Range
　　　　For Each c In Worksheets('Sheet1').Range('A1:D10')
　　　　　　If c.Value < 0.001 Then
　　　　　　　　c.Value = 0
　　　　　　End If
　　　　Next c
　　　　在Sheet1 上的單元格區(qū)域 A1:D10 中進(jìn)行循環(huán)。如果某個(gè)單元格的值小于 0.001，則此代碼將用 0（零）來取代該值

　　　　Worksheets('Sheet1').Range(Cells(1, 1), Cells(5, 3)).Font.Italic = True
　　　　Sheet1 中單元格區(qū)域 A1:C5 上的字體樣式設(shè)置為斜體

　　　　Range('test').Value = 'test'
　　　　在名稱為test的單元格區(qū)域上修改值為test

　　Worksheet.UsedRange 屬性
　　返回一個(gè) Range 對象，該對象表示指定工作表上所使用的區(qū)域，只讀。
　　示例：
　　　　MsgBox '工作表使上所使用的區(qū)域：' & ActiveSheet.UsedRange.Address

　　Worksheet.Shapes 屬性
　　返回一個(gè) Shapes 集合，它代表工作表上的所有形狀。只讀。
　　示例：
　　　　With ActiveSheet.Shapes.AddLine(10, 10, 250, 250).Line
　　　　　　.DashStyle = msoLineDashDotDot
　　　　　　.ForeColor.RGB = RGB(50, 0, 128)
　　　　End With
　　在當(dāng)前活動(dòng)工作表中畫一條藍(lán)色虛線（左上角為10，10，右下角為250，250）

　　Worksheet.VPageBreaks 屬性
　　返回一個(gè) VPageBreaks 集合，它代表工作表上的垂直分頁符，只讀

　　Worksheet.HPageBreaks 屬性
　　返回一個(gè) HPageBreaks 集合，它代表工作表上的水平分頁符。只讀。