第11讲及 Workbook Worksheet 对象.pptx

复习在工作表上添加两个按钮“随机数”和“统计”。单击“随机数”，在“A1:E4”区域中随机产生20个两位正整数；单击“统计”，将其中跟5有关（自身带5或5的倍数）的数加粗并设为红色VBA程序设计Workbook 对象 Worksheet 对象Excel的常用对象Excel应用程序 (Application)工作薄 (Workbook)工作表 (Worksheet)区域 (Range)Excel函数容器 (WorksheetFunction)Workbooks对象Workbooks 对象用于返回 Excel 应用程序中当前打开的所有 Workbook 对象的集合Workbooks 对象的常用属性：Item：集合中的项目（即工作簿），以数组形式存放 Set wb = Workbooks.Item(1)在实际应用时，也可以不显式引用Item属性而返回某个工作簿对象，如上式可以写成： Set wb = Workbooks(1)Count：集合包含的工作簿个数 MsgBox Application.Workbooks.CountWorkbooks对象Workbooks 对象的常用方法：Add：新建工作簿 Workbooks.AddClose：关闭所有的工作簿 Workbooks.CloseOpen：打开一个工作簿文档 Workbooks.Open C:\Path\Workbook.xlsWorkbook对象Workbook 对象代表 Microsoft Excel 工作簿Workbook 对象是 Workbooks 集合的成员Workbooks 集合包含 Excel 中所有当前打开的 Workbook 对象Workbook对象的常用属性Name工作簿的名称FullName工作簿的完整文件标识符，包含路径和名称Path工作簿的存放路径如果某个工作簿从未保存过，则其 Path 属性返回一个空字符串 ()Workbook对象的常用属性Saved如果工作簿从上次保存至今未发生过更改，则该属性值为 True，例：If ActiveWorkbook.Saved = False Then MsgBox 工作簿包含未保存的更改End If 如果要关闭某个有更改的工作簿，但又不想保存它或者不想出现保存提示，则可将此属性设为TrueWorkbook对象的常用属性ActiveSheet代表工作簿中活动的工作表Worksheets代表工作簿中所有普通工作表的集合Charts代表工作簿中所有图表工作表的集合Sheets代表所有工作表的集合，包括Worksheet对象和Chart对象Workbook对象的常用方法Activate：激活一个工作簿 Workbooks(1).ActivateClose：关闭一个指定的工作簿，并且（可选）指定是否保存修改 Workbooks(1).Close SaveChanges:=FalseSave：保存工作簿，如果还未保存过工作簿，则应该调用SaveAs方法 Workbooks(1). SaveAs Filename:=fNameWorksheets对象Worksheets 对象用于返回指定工作簿中所有 Worksheet 对象的集合Worksheet 对象也是 Sheets 集合的成员。Sheets 集合包含工作簿中所有的工作表（图表工作表和工作表）Worksheets对象的常用属性Item：集合中的项目（即工作表），以数组形式存放 Set ws = ActiveWorkbook.Worksheets.Item(1)因为 Item 是集合的默认成员 ，所以上式等价于： Set ws = ActiveWorkbook.Worksheets(1) Count：集合包含的工作表个数 MsgBox ActiveWorkbook.Worksheets.CountWorksheets对象的常用方法Add：新建工作表，并将新建的工作表置为活动工作表，语法： 表达式.Add(Before, After, Count, Type)Before：指定某工作表，新建工作表将在此工作表之前After：指定某工作表，新建工作表将在此工作表之后 Count：要添加的工作表数，默认值为1 Type：新建工作表的类型，默认值为xlWorksheet说明：Before 和 After 只能二选一，如果同时省略 Before 和 After，则新工作表插入到活动工作表之前实例1在 eg1.xlsxeg1.xlsx 的 Sheet1 中，单击“按钮1”时，在第一张工作表之后插入一个新工作表；单击“按钮2”时，在 Sheet1 的 B1 单元格中写入当前工作簿的工作表数Worksheet对象Worksheet 对象代表一张工作表Worksheet 对象是 Wor