写给 BIMer 的零基础编程自学指南（二） 对象

二、对象

什么是对象？

当我还是个孩子的时候，有一个词让我非常困惑，这个词就是对象。

“他有对象了吗？”“他和她在搞对象”……在大人们的交谈中总是能听到这个神秘的词。

对象是什么？为什么男人和女人都对它感兴趣？搞对象又是怎么回事？

我曾一度以为对象是个玩具，而搞对象就是玩玩具。

那么面向对象编程又是怎么回事？我猜就是像谈恋爱那样地编程……

言归正传，今天我们来聊聊对象。

在面向对象编程世界里，我们确实可以把对象理解为是各种各样具体的玩具。物以类聚，为了区分不同的玩具，我们则需要各种各样的类 。对象是类的具体实例，类是对象的抽象定义。

例如我们手里有两个玩具宝宝，我们把头上顶个葫芦的玩具宝宝叫做葫芦娃类，把肚子上有个显示屏的玩具宝宝叫做天线宝宝类。

对象的属性

类可以具有属性，属性定义了类的特征，可以把它理解为是名词或形容词。例如 名字 就是一个属性。属性的内容叫做值。

现在我们可以说：有一个 玩具宝宝（对象），他是一个 葫芦娃（类），他的 名字（属性）叫 大娃（属性的值）。

现在我们去游乐场逛逛。

打开 VBA 编辑器并在【立即窗口】中输入以下代码后按 Enter 键：

?Application.Name

要在【立即窗口】中显示值，需要在代码前使用 ?。

获取程序的名称值

我们得到了一个值，它是 Application 对象的 Name 属性值，即当前程序名。

我们再试试看：

?Rows.Count

获取当前工作表的行数值

再试试看：

?Columns.Count

获取当前工作表的列数值

行数和列数相乘，我们可以得到一个数字17179869184（不知道是谁的电话号码），它是一张工作表的格子总数，即2的34次方。

对象的方法

类可以具有方法，方法定义了类的动作，可以把它理解为是动词。例如 吃 就是一个方法。

上一章中我们用到了一段代码：

Range("B2").Select

Select 是 Range 类的一个方法，它可以让指定的 Range 对象被选中。
我们也可以在【立即窗口】中输入以下代码并按 Enter 键试试看：

?Range("B2").Select

Select 方法的返回值

正常运行后，我们获得的返回值始终为 True。Select 方法不仅执行了操作，还返回了操作结果。

在 VBA 中，有返回值的方法称为 函数（Function），没有返回值的方法称为 过程（Sub）

我们再试试看：

?ActiveSheet.Name=ActiveWorkbook.Name

因为当前的工作簿名称是工作簿1，当前的工作表名称是Sheet1，两者并不相等，所以我们得到的返回结果是False。

我们可以把?后面的这段代码看作是一个匿名函数，该函数比较对象属性的值是否相等并返回结果。

比较属性的值

如果我们确实想要定义一个这样的函数该怎么做呢？
我们可以添加一个模块（或使用现有模块）并输入代码：

Function MyFunction()
  MyFunction = ActiveSheet.Name = ActiveWorkbook.Name
End Function

定义 MyFunction

我们测试一下这个函数：

?MyFunction

MyFunction 的返回值

代码运行正常，太棒了！

等等，如果我们不给 MyFunction 返回值会怎么样？将 MyFunction 修改为：

Function MyFunction()
  ActiveSheet.Name = ActiveWorkbook.Name
End Function

如果你在【立即窗口】中再次测试，会发现什么都没有返回。

难道代码没有正常运行吗？
代码运行正常，证据就是工作表名发生了变化。

工作表名发生了变化

实际上我们将 MyFunction 修改成了没有返回值的方法。既然不需要返回值，那么其实也就不需要用 Function 来定义这个方法，而是要用 Sub。

我们重新修改代码为：

Sub MySub()
  ActiveSheet.Name = ActiveWorkbook.Name
End Sub

现在我们有了一个无返回值的方法，该方法将一个对象属性的值赋给另一个对象属性。

对象的事件

对象可以响应事件。

例如鼻子会对闻胡椒粉这个事件做出响应；【立即窗口】会对按 Enter 键做出响应。

Excel 中定义了很多事件，例如 Worksheet_SelectionChange 事件。我们可以在该事件中添加代码：

Target = Target.Address

使用 Worksheet_SelectionChange 事件

然后我们可以通过选择工作表中的单元格来测试这个事件。

测试 Worksheet_SelectionChange 事件

原来如此。各种程序的操作其实都是通过点击按钮、选择下拉菜单等一系列事件被调用的。

对象浏览器

在 VBA 编辑器中，我们可以使用快捷键 F2 打开对象浏览器。

也可以点击视图菜单中的对象浏览器。

对象浏览器就像是一本词典，我们可以在此查阅现有的类及其属性、方法、事件等定义。

对象浏览器

小结

本章介绍了对象、对象的属性、对象的方法以及对象的事件等相关概念。这些概念是面向对象编程的基础，大家可以利用 Excel VBA 一边练习一边理解。

上一章 写给 BIMer 的零基础编程自学指南（一） Hello World

---

参考资料

[1] wikipedia: Object-oriented programming
[2] Excel 2007 VBA参考大全.John Green.Stephen Bullen.Rob Bovey.Michael Alexander

Photo by Max Kaharlytskyi on Unsplash