VBA 将type定义成参数

可以将 Type 定义成函数或子过程的参数，用法与其他数据类型一样。

举个例子：

Type Person
    Name As String
    Age As Integer
End Type

Sub PrintPerson(p As Person)
    Debug.Print "Name: " & p.Name
    Debug.Print "Age: " & p.Age
End Sub

在上面的代码中，定义了一个 Person 类型，包含姓名和年龄两个字段。然后定义了一个 PrintPerson 子过程，参数为类型为 Person 的变量 p。在子过程中，可以通过 p.Name 和 p.Age 来访问传入的 Person 变量的属性，实现打印 Person 信息的功能。

调用该子过程的方式如下：

Sub Test()
    Dim person1 As Person
    person1.Name = "Tom"
    person1.Age = 30
    PrintPerson person1
End Sub

在 Test 子过程中，先定义了一个 Person 类型的变量 person1，并给它的 Name 和 Age 赋值。然后将 person1 作为参数传给 PrintPerson 子过程，输出 person1 的信息。

这样就可以方便地使用 Type 定义的结构体类型了。