4、探索VBA中的类、用户窗体与面向对象编程

探索VBA中的类、用户窗体与面向对象编程

1. 自定义类的创建与使用

1.1 类的优势

自定义数据类型虽然能存储多个相关值，但存在不足，如无法进行验证、执行操作和触发事件。而类可以弥补这些缺陷。

1.2 创建 cEmployee 类

以下是创建 cEmployee 类的详细步骤：
1. 在新工作簿中打开 VBE，插入类模块（选择“插入” -> “类模块”）。
2. 在属性表中，将类模块重命名为 cEmployee。
3. 在代码窗格中，输入以下代码：

Dim m_lngID As Long
Dim m_sName As String
Dim m_sTitle As String
Dim m_sPhoneNumber As String

这些模块级变量将存储对象的值。
4. 为每个属性输入 Property Let 和 Get 函数：

Property Get ID() As Long
    ID = m_lngID
End Property
Property Let ID(newID As Long)
    m_lngID = newID
End Property
Property Get Name() As String
    Name = m_sName
End Property
Property Let Name(newName As String)
    m_sName = newName
End Pro