Excel_VBA常用对象

Excel VBA
怎样引用区域
目录
●引用一个单元格 ●引用一个区域 ●引用整行 ●引用整列 ●引用所有单元格 ●引用相对位置单元格 ●引用特殊区域（一） ●引用特殊区域（二） ●引用特殊区域（三）
引用一个单元格
举例写地址，没有引号，无法循环
Range("B5")
地址为字符串，可行循环，但书写麻烦
Cells(5, "B")
先行后列,行地址为数字，列地址为字符串，无法引
用区域

Cells(5,2)
地址为数字，先行后列，行列都可循环，无法引用
区域
引用一个区域
举例：引用区域B5:D10


[B5:D10]
地址用冒号连接
Range("B5:D10") Range("B5", "D10")
Application.Caption="My Application" Application.Caption="Microsoft Excel” ?Application.Path
Excel Application.Quit
Application 对象

ActiveSheet 属性 返回活动工作表。如果没有活动的工作表，则返回 Nothing。 Sub 活动工作表() Debug.Print "当前活动工作表是："; End Sub

Worksheets.Delete 方法：删除对象
Worksheets(工作表).Activate方法：激活工作表
Workbook对象和 Workbooks集合

例3 激活工作表（激活工作簿中的Sheet1工作表） Worksheets("Sheet1").Activate 或 Worksheets(1).Activate


引用交叉(公共)区域

Intersect(Range("B5:D10"),Range("A1:C9"))

可以有多个Range型参数
引用特殊区域（二）

引用当前区域

Range("B1").CurrentRegion

当前区域是以空行和空列围成的区域 任何一个区域都有自己所属的当前区域

引用已用区域
4
使用Application对象
VBA操作 获取当前应用程序名称 立即窗口输入 ?
将 Excel 应用 程 序 标 题 改 为“My Application” 将 Excel 应用 程 序 标 题 改 回为“Microsoft Excel” 获取Excel.exe保存的文件 夹路径 退出

Workbook对象和 Workbooks集合

Workbooks.Add 方法：新建工作簿，新建的工作簿 将成为活动工作簿。

Workbooks.Open 方法 ：打开一个工作簿

Workbooks.Close 方法：关闭对象
Workbook对象和 Workbooks集合

例1 创建一个新的工作簿。

利用Rows（行）集合
举例：引用第一到第三行
[1:3] Range("1:3") Rows("1:3")

引用整列
举例：引用A列（第一列)
[A:A] Range("A:A") Columns(1)

利用Columns（列）集合

Columns("A")
举例：引用A到C列（第一到第三列）
Excel VBA
常用对象
Application 对象
Excel对象模型的层次结构。
2
使用Application对象


Application对象代表整个Microsoft Excel应用程序 本身，所有打开的工作簿都是属于一个Excel应用程 序，即一个Application对象。 通过Application对象提供的属性和方法，可控制 Excel应用程序的外观和状态。
只能用于活动工作表
引用当前选区

ActiveCell.CurrentRegion
引用偏移区域

Range("B5:D10").Offset(2,1)
引用C7:E12，偏移地址可正可负，默认为0，偏移地
址先行后列
引用命名区域
引用命名区域
将当前工作表中名为“AA”的单元格区域内容设置 为30。
Workbook对象和 Workbooks集合

例7：复制和删除工作表 Sub 复制和删除工作表() Sheets(1).Name = "原始表" Sheets("原始表").Copy before:=Sheets("原始表") Sheets(1).Name = "副本1" Sheets("原始表").Delete End Sub
单元格和区域的操作

求数据区末尾列号： 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行数据区末尾列号

edRange

不仅包括有数据的区域，还包括曾经用过的区域 以所有用过区域的中最上行最左列和最下行最右列围成 一个工作表只有一个用过区域 如果没有用过任何单元格，则已用区域为A1单元格
引用特殊区域（三）
引用活动单元格

Range("B5").Activate
[AA].Value = 30
相对引用区域
相对引用

将位于活动工作表上活动单元格下1行和右3列 的单元格设置为双下划线格式。 ActiveCell.Offset(1, 3).Font.Underline = xlDouble
单元格和区域的操作

求数据区末尾行号： 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列数据区末尾行号
Workbook对象和 Workbooks集合

例5：保存工作表 Sub 保存工作表() ActiveWorkbook.SaveAs Filename:="D:\第一个 保存工作表.xlsx" End Sub
Workbook对象和 Workbooks集合

例6：重命名工作表 Sub 重命名工作表() Sheets(1).Select Sheets(1).Name = "hello" End Sub
实例

编程序，打印九九乘法表如下。
实例

编程序，打印九九乘法表如下。
起止地址分别用引号括起来，中间用逗号连接

Range(Range("B5"）,Range( "D10"))
Range嵌套
Range(Cells(5, 2), Cells(10, 4))
Range与Cells混合
引用整行
举例：引用第一行
[1:1] Range("1:1") Rows(1)
Workbook对象和 Workbooks集合


Workbook 对象：代表一个 Microsoft Excel 工作簿
Workbooks 对象：Microsoft Excel 应用程序中当前 打开的所有 Workbook 对象的集合

属性：它代表对象的名称
Workbook.FullName 属性：返回对象的名称（以字 符串表示），包括其磁盘路径 Workbook.Sheets 属性：返回一个 Sheets 集合，它 代表指定工作簿中所有工作表
3
使用Application对象

Application对象的常用属性 获取对象的引用
ActiveWorkbook属性 ActiveSheet属性 ActiveCell属性 Workbooks属性 Sheets属性 Cells属性 Selection属性 WorksheetFunction属性
属性：返回或设置一个 String 值， 它代表对象的名称

Worksheet对象和 Worksheets集合

常用方法：

Worksheets.Add 方法：新建工作表。新建的工作表 将成为活动工作表

Worksheets.Copy 方法：将工作表复制到工作簿的另
一位置
Set <变量或属性名> = {[New] <对象表达式>|Nothing}
Workbook对象和 Workbooks集合