ExcelVBA课件.pptVIP

单元格和区域的操作 求数据区末尾行号： r = Range(A1).End(xlDown).Row 求A1单元格数据区末尾行号 r = Cells(1, 1).End(xlDown).Row 求A1单元格数据区末尾行号 r = Range(A65536).End(xlUp).Row 求A列数据区末尾行号 r = Cells(65536, 1).End(xlUp).Row 求A列数据区末尾行号 r = Columns(1).End(xlDown).Row ‘求A列数据区末尾行号 单元格和区域的操作 求数据区末尾列号： c = Range(A1).End(xlToRight).Column 求A1单元格数据区末尾列号 c = Cells(1, 1).End(xlToRight).Column 求A1单元格数据区末尾列号 c = Cells(1, 256).End(xlToLeft).Column 求第1行数据区末尾列号 c = Rows(1).End(xlToRight).Column 求第1行数据区末尾列号 实例 编程序，打印九九乘法表如下。 实例 编程序，打印九九乘法表如下。 * * * * 通过Application对象提供的属性和方法，可控制Excel应用程序的外观和状态。 * Item 属性返回集合中的单个对象。 * Excel VBA 常用对象 Excel对象模型的层次结构。 * Application 对象 Application对象代表整个Microsoft Excel应用程序本身，所有打开的工作簿都是属于一个Excel应用程序，即一个Application对象。 通过Application对象提供的属性和方法，可控制Excel应用程序的外观和状态。 使用Application对象 * Application对象的常用属性 获取对象的引用 ActiveWorkbook属性 ActiveSheet属性 ActiveCell属性 Workbooks属性 Sheets属性 Cells属性 Selection属性 WorksheetFunction属性 使用Application对象 * Application 对象 ActiveSheet 属性 返回活动工作表。如果没有活动的工作表，则返回 Nothing。 Sub 活动工作表() Debug.Print 当前活动工作表是：; Application.ActiveSheet.Name End Sub Cells 属性 ：返回一个 Range 对象，它代表活动工作表中的所有列。 Caption 属性：返回或设置一个 String 值，它代表出现在 Microsoft Excel 主窗口标题栏中显示的名称 Sub 重设标题() Application.Caption = 表格数据处理 End Sub Application 对象 Workbook对象和 Workbooks集合 Workbook 对象：代表一个 Microsoft Excel 工作簿 Workbooks 对象：Microsoft Excel 应用程序中当前打开的所有 Workbook 对象的集合 Workbook.Name 属性：它代表对象的名称 Workbook.FullName 属性：返回对象的名称（以字符串表示），包括其磁盘路径 Workbook.Sheets 属性：返回一个 Sheets 集合，它代表指定工作簿中所有工作表 Workbooks.Add 方法：新建工作簿，新建的工作簿将成为活动工作簿。 Workbooks.Open 方法 ：打开一个工作簿 Workbooks.Close 方法：关闭对象 Workbook对象和 Workbooks集合 Workbook对象和 Workbooks集合 例1 创建一个新的工作簿。 Workbooks.Add 由 Add 方法返回的Workbook 对象分配给对象变量 NewBook。然后，对 NewBook进行操作。 Set NewBook = Workbooks.Add NewBook.SaveAs Filename:=Test.xls Set语句语法形式： Set 变量或属性名 = {[New] 对象表达式|Nothing} New创建对象的一个新实例。 Nothing释放该对象资源。 Workbook对象和 Workbooks集合 例2 打开工作簿用Open方法： Workbooks.Open (“D:\Test.xls”) 即打开D盘根目录中的Test.xls 工作簿