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

赞(54)
office办公分享 » Excel VBA对象变量

本文链接:Excel VBA对象变量https://www.officeapi.cn/87434.html

OFFICE,天天学一点,进步多一点

联系我们