直接上图上代码
注意：定义数据类型时把代码写在模块中
Type yuangong
name As String
age As Integer
minZu As String
buMen As String
dianHua As String
End Type
Sub 自定义数据类型()
Dim xiaohong As yuangong
xiaohong.age = 18
xiaohong.buMen = "销售部"
xiaohong.minZu = "汉族"
xiaohong.dianHua = "4564565"
xiaohong.name = "小红"
Debug.Print xiaohong.age
Debug.Print xiaohong.buMen
Debug.Print xiaohong.dianHua
Debug.Print xiaohong.minZu
Debug.Print xiaohong.name
End Sub
| 留言与评论（共有 0 条评论） “” |
