VBA 自定义数据结构 含嵌套

在日常工作中,有时会希望有些数据按照特定的结构进行使用.比如:点的坐标point(x,y,z).同时还希望增加一些辅助信息.比如:点号,工程名称等等.这样的情况下,我们可以使用自定义数据结构来定义变量,使用一个变量就可以将很多信息一同引用.下面举个例子来说明:

在标准模块中进行自定义数据结构的声明:

type point

x as long

y as long

z as long

end type

type upoint

point() as point '嵌套定义数据

name as string

gcname as string

end type

Sub test()

Dim mypt(1 To 10) As point
Dim k As upoint
Dim s As point
For i = 1 To 10

mypt(i).x = 19000 + i
mypt(i).y = 5000 + i

Next i
k.point = mypt  '将数组一次性赋值
s = mypt(3)
Debug.Print s.x, s.y
Debug.Print k.point(2).x, k.point(2).y

End Sub

输出结果为:

 19003         5003 
 19002         5002