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
效果如下