|
TypeがCollectionに格納出来たらいいのですが、TypeはCollectionに格納できないという制限があります。
代わりにクラスを使えばどうでしょうか。
クラスモジュールを新規作成して、名前を Chara とします。
下記のコードを記述します。
Option Explicit
Public Name As String
Public HP As Long
Public Attack As Long
Public Defence As Long
Public Skill As String
---
使用例
Public Sub test()
Dim colChara As Collection
Set colChara = New Collection
Dim C As Chara
Set C = New Chara
With C
.Name = "ガイ"
.HP = 200
.Attack = 90
.Defence = 50
.Skill = "兜割り"
End With
colChara.Add C, "ガイ"
Set C = New Chara
With C
.Name = "トム"
.HP = 300
.Attack = 30
.Defence = 90
.Skill = "鉄壁の守り"
End With
colChara.Add C, "トム"
Debug.Print colChara("ガイ").HP
Debug.Print colChara("トム").Defence
End Sub
クラスではパブリック変数を宣言してますが、プロパティを使ったりメソッドを追加したりするとより使いやすくできます。
|
|