1、Sheets 集合Sheets 集合包括以下成员。Visible 属性Visible 属性可以显示或隐藏一个现有的表。可将 Visibility 属性设置成 XlSheetVisibility 枚举值（ XlSheetHidden 、 XlSheetVeryHidden 、xlSheetVisible ） 中的一个值。使用XlSheetHidden 可以让用户通过 Excel 界面隐藏表；使用 XlSheetVeryHidden，则要求运行代码来取消隐藏表，例如：Workbooks(1).Sheets(1).Visible = xlSheetHiddenAdd 方法Add 方法将一个新表添加到
2、工作簿中的表集合中，并且可以接受四个可选参数，这些参数可以指明表的位置、要添加的表数和表的类型（工作表、图表等）：Dim sh As WorksheetSet sh = ThisWorkbook.Sheets.Add()Copy 方法Copy 方法创建一个表的副本，并且将表插入到指定的位置。Delete 方法Delete 方法删除一个指定的工作表，与选择“编辑 删除工作表”效果一致。Worksheets(“sheet1“).DeleteFillAcrossSheets 方法FillAcrossSheets 方法将工作簿内一个表的范围中的数据复制到所有其他表。可以指定一个范围，以及是否要复制数据
3、、进行格式化，或全部。Move 方法Move 方法和 Copy 方法很类似，只不过最终您得到的是表的一个实例。PrintOut 方法PrintOut 方法允许打印选择的对象（这个方法适用于多个不同的对象） 。PrintOut 可以指定许多可选的参数，包括：要打印的页数（起始页和终止页） 、副本数量、打印前是否进行预览、要使用的打印机的名称、是否打印到一个文件、是否进行逐份打印以及您要打印到的文件名。下面的例子使用默认的打印机打印指定的表、只打印第一页、打印两份副本，并且在打印前预览文档：ThisWorkbook.Sheets(1).PrintOutFrom:=1, To:=1, Copies:
4、=2, Preview:=TruePrintPreview 方法PrintPreview 方法允许您在打印预览窗口显示指定的对象，并且可以选择禁止更改页面布局：Select 方法Select 方法选择指定的对象，并且改变用户的选择（可使焦点，而不需改变用户的选择。 ）您可以有选择地提供一个被当前选择取代的对象的引用。下面的代码片段选择第一个工作表：ActiveWorkbook.Sheets(1).Select()注：在这一部分中列出的许多方法也适用于其他的类。例如，PrintOut 方法是由以下类提供的：Chart 、Charts、Range、Sheets、 Window、Workbook、W
5、orksheet 和 Worksheets。这些方法的具体使用是相同的，只不过是作用在不同的对象上而已。Select 方法几乎适用于任何一种可选择的对象（并且这样的对象有很多） 。Range 对象Range 对象是Excel 应用程序中最经常使用的对象；在操作Excel 内的任何区域之前，都需要将其表示为一个Range 对象，然后使用该Range 对象的方法和属性。基本上来说，一个Range 对象代表一个单元格、一行、一列、包含一个或者更多单元块（可以是连续的单元格，也可以式不连续的单元格）的选定单元格，甚至是多个工作表上的一组单元格。也可以简单的说，Range 就是操作Excel 内的具体内
6、容（单元格）的对象。1. 返回或获得 Range 对象本部分将说明如何获得或返回 Range 对象。Range 属性可用 Range(arg)（其中 arg 为区域名称）来返回代表单个单元格或单元格区域的Range 对象。下例将单元格 A1 中的值赋给单元格 A5。Worksheets(“Sheet1“).Range(“A5“).Value = _Worksheets(“Sheet1“).Range(“A1“).Value下例设置单元格区域 A1:H8 中每个单元格的公式，用随机数填充该区域。在没有对象识别符（句号左边的对象）的情况下，使用 Range 属性将返回活动表（ ActiveShee
7、t）上的一个区域。如果活动表不是工作表，则该方法无效。在没有明确的对象识别符的情况下，使用 Range 属性之前，可用 Activate 方法来激活工作表。Worksheets(“Sheet1“).ActivateRange(“A1:H8“).Formula = “=Rand()“下例清除区域 Criteria 中的内容。Worksheets(1).Range(“Criteria“).ClearContents其中Criteria 为名称，在Excel 中可以定义名称，代表单元格、单元格区域、公式或常量值的单词或字符串。名称更易于理解，例如， “产品”可以引用难于理解的区域“Sheet1!C2
8、0:C30”。如果用文本参数指定区域地址，必须以 A1 样式记号指定该地址（不能用 R1C1 样式记号） 。有关单元格引用和名称，可以参考Excel 帮助文档或有关书籍。Cells 属性可用 Cells(row, column)（其中 row 为行号，column 为列标）返回工作表或某个Range对象中的单个单元格。下例将单元格 A1 赋值为 24。Worksheets(1).Cells(1, 1).Value = 24下例设置单元格 A2 的公式。ActiveSheet.Cells(2, 1).Formula = “=Sum(B1:B5)“虽然也可用 Range(“A1“) 返回单元格 A
9、1，但有时用 Cells 属性更为方便，因为可以使用变量来指定行列。下例在 Sheet1 上创建行号和列标。当工作表激活以后，使用 Cells属性时不必明确声明工作表（它将返回活动工作表上的单元格） 。Sub SetUpTable()Dim i As LongDim j As LongWorksheets(“Sheet1“).ActivateFor i = 1 To 5Cells(1, i + 1).Value = 1990 + iNext iFor j = 1 To 4Cells(j + 1, 1).Value = “Q“ & jNext jEnd Sub虽然可用 Visual Basic
10、字符串函数转换 A1 样式引用，但使用 Cells(1, 1) 记号更为简便（而且也是更好的编程习惯） 。可用 expression.Cells(row, column) 返回区域中的一部分，其中 expression 是返回Range 对象的表达式，row 和 column 为相对于该区域左上角的偏移量。下例设置单元格C5 中的公式。Worksheets(1).Range(“C5:C10“).Cells(1, 1).Formula = “=Rand()“Range 和 Cells可用 Range(cell1, cell2) 返回一个 Range 对象，其中 cell1 和 cell2 为指定
11、起始和终止位置的 Range 对象。下例设置单元格区域 A1:J10 的边框线条的样式。With Worksheets(1).Range(.Cells(1, 1), _.Cells(10, 10).Borders.LineStyle = xlThickEnd With注意每个 Cells 属性之前的句点。如果前导的 With 语句应用于该 Cells 属性，那么这些句点就是必需的。本示例中，句点指示单元格处于第一张工作表上。如果没有句点，Cells 属性将返回活动工作表上的单元格。Offset 属性可用 Offset(row, column)（其中 row 和 column 为行偏移量和列偏移
12、量）返回相对于另一区域在指定偏移量处的区域。下例选定位于当前选定区域左上角单元格的向下三行且向右一列处的单元格。由于必须选定位于活动工作表上的单元格，因此必须先激活工作表。Worksheets(“Sheet1“).ActivateCant select unless the sheet is activeSelection.Offset(3, 1).Range(“A1“).SelectUnion 方法可用 Union(range1, range2, .) 返回多块区域，即该区域由两个或多个连续的单元格区域所组成。下例创建由单元格区域 A1:B2 和 C3:D4 组合定义的对象，然后选定该定义区
13、域。Dim r1 As Range, r2 As Range, myMultiAreaRange As RangeWorksheets(“sheet1“).ActivateSet r1 = Range(“A1:B2“)Set r2 = Range(“C3:D4“)Set myMultiAreaRange = Union(r1, r2)myMultiAreaRange.Select使用包含若干块的选定区域时，Areas 属性很有用。它将一个多块选定区域分割为单个的 Range 对象，然后将这些对象作为一个集合返回。使用返回的集合的 Count 属性可检测一个选定区域是否包含多块区域，如下例所示。Sub NoMultiAreaSelection()NumberOfSelectedAreas = Selection.Areas.CountIf NumberOfSelectedAreas 1 ThenMsgBox “You cannot carry out this command “ & _“on multi-area selections“End IfEnd Sub
