【VBA编程】04.使用自定义数据类型

使用自定义数据类型存储输入数据，并通过弹出窗口展示

【代码区域】

Type lianxiren '
name As String
Sex As String
End Type
Sub aa()
 Dim record As lianxiren '声明一个lianxiren类型的变量
 record.name = InputBox("请输入名称", "记录联系人信息")
 record.Sex = InputBox("请输入性别", "记录联系人信息")
 MsgBox "姓名：" & record.name & vbLf & "性别：" & record.Sex, vbOKOnly, "联系人基本信息"
End Sub

【代码解释】

第1~4定义一个变量，第6行声明了一个自定义数据类型的变量，第7~8行用于输入所定义的变量值，第9行用于输出所定义的变量的值。

按F5执行，依次输入结果姓名，性别，查看结果

【效果图】