Excel VBA对象变量-英雄云拓展知识分享

们已了解了Excel VBA的变量，知道了如何给变量赋值。下面，详细谈谈Excel中很重要的对象变量。

变量除可以表示数值、字符串等外，还可以表示一个工作簿、一张工作表、一个单元格，这就是对象变量（Object类型的变量）。

声明对象变量

对象变量的声明没有甚么特殊的地方，依然是使用Dim语句或Public语句。下图1是一些经常使用的对象声昭示例：

图1

注意：当不知道对象变量的具体类型时，可以将其声明为通用的Object类型。

给对象变量赋值

对象变量的赋值与普通变量的赋值不同，必须使用关键字Set。

举例来看，使用下面的语句将变量rng声明为Range对象：

Dim rng As Range

然后，使用下面的语句给变量rng赋值：

Set rng = Worksheets(“Sheet1”).Range(“A1:B2”)

现在，就能够使用变量rng来代表工作表Sheet1中的单元格区域A1:B2。

此时，再运行代码：

rng.Value = “示例”

将在单元格区域A1:B2中输入“示例”文本，如图2所示。

图2

注意：在给对象变量赋值时，一定要加上关键字Set。很多代码毛病常常就是在给对象变量赋值时没有使用Set。

给对象变量赋值的通用结构为：

Set 对象变量名= 对象

使用对象变量的好处

依然使用上面给单元格区域A1:B2输入文本“示例”的例子。如果不使用对象变量，那末将使用下面的代码来操作该区域：

Sub test()

Worksheets(“Sheet1”).Range(“A1:B2”).Value = “示例”

Worksheets(“Sheet1”).Range(“A1:B2”).Font.Bold = TRUE

Worksheets(“Sheet1”).Range(“A1:B2”).Font.Size = 19

Worksheets(“Sheet1”).Range(“A1:B2”).Interior.Color =vbYellow

End Sub

该段代码首先在工作表Sheet1的单元格区域A1:B2中输入文本“示例”，然后将字体加粗，字号大小调剂为19号，将单元格背风景设置为黄色。

让再来看看使用对象变量到达一样效果的代码：

Sub testUpdate()

Dim rng As Range

Set rng =Worksheets(“Sheet1”).Range(“A1:B2”)

rng.Value = “示例”

rng.Font.Bold = True

rng.Font.Size = 19

rng.Interior.Color = vbYellow

End Sub

代码显得更简洁，仿佛运行的速度也加快了。因此，这种情况下，总结使用对象变量的好处有：

可以很好地简化代码，使代码更容易浏览。

可以提高代码的履行速度。在屡次援用相同的对象时，使用对象变量后，点运算符的数目明显减少，用于解析对象援用的时间也会减少，自然就提高了代码的履行速度。

方便地操作其他工作表或工作簿中的数据。举例来看，在操作当前工作表的数据时，要复制或使用其他工作表中的数据，此时，可以将其他工作表中的数据区域赋值给对象变量，就能够方便地使用了，而不用担心代码究竟在操纵哪一个工作表。

方便创建新的对象实例。例以下面的代码：

Sub CreateNewWorkbook()

‘声明工作簿和工作表对象变量

Dim wb As Workbook

Dim wks As Worksheet

‘创建新的对象实例并赋值

Set wb = Workbooks.Add

Set wks =wb.Worksheets(“Sheet1”)

‘对工作表进行操作

wks.Name = “我的工作表” ‘重命名工作表

wks.Range(“A1”)= “Test” ‘给工作表中的单元格A1填充值

End Sub