VBA--类与对象的简单理解

1.首先我们打开VBA编程的界面，在工程资源管理器中右键添加类模块，并且命名为person，这样我们就创建了一个类

2.接下来，我们要在类里面填加字段来保存内容，最好使用的是private，如果使用public所保存的内容就没有约束性

Private sname As String '姓名
Private sgender As String '性别
Private sage As String '年龄

3.如果是这样写的话，这些字段不能被直接使用（读取，或者赋值）

所以我们还需要对他们的值进行传递，并且对这些值进行约束

Property Let name(str As String) '属性过程，简称属性
sname = str '把赋过来的值存进字段
End Property
Property Get name() As String
name = sname '把字段的值交给属性
End Property
Property Let gender(g As String) '属性过程，简称属性
     If g = "男" Or g = "女" Then
     sgender = g '把赋过来的值存进字段
     Else
     sgender = "女"
     End If
End Property
Property Get gender() As String
gender = sgender '把字段的值交给属性
End Property
Property Let age(a As String) '属性过程，简称属性
 If a < 0 Or a > 120 Then
 a = 0
 End If
 sage = a '把赋过来的值存进字段
End Property
Property Get age() As String
age = sage '把字段的值交给属性
End Property

4.我们可以在模块里面使用一下person这个类（创建一个对象）

Option Explicit
Sub 创建对象()
 Dim p As person '声明一个person类型的变量p
 Set p = New person '创建一个 person对象，赋值给变量
 p.name = "坦克"
 p.gender = "男"
 p.age = 18
 p.sayhello
 
 
 
End Sub

效果如下