Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1157 / 76735

←次へ　｜　前へ→


	【81233】Re:キー値と属性の組の集合を良い感じに変数にしたい

hatena - 20/3/17(火) 21:20 -


	引用なし

	パスワード

例えば、キャラのプロパティを設定して、コレクションに登録する部分のコードが面倒なので、シンプルに１行にしたいというときは、クラスモジュールに下記のようにメソッドを追加します。クラスモジュール 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 Init(aCol As Collection, aName As String, aHP As Long, aAttacK As Long, aDefence As Long, aSkill As String) 　　Name = aName 　　HP = aHP 　　AttacK = aAttacK 　　Defence = aDefence 　　Skill = aSkill 　　aCol.Add Me, Name End Sub ------------------- そうすると前回の回答の使用例のコードは下記のようになります。 Public Sub test1() 　　Dim colChara As Collection 　　Set colChara = New Collection 　　　　Dim C As Chara 　　　　Set C = New Chara 　　C.Init colChara, "ガイ", 200, 90, 50, "兜割り" 　　　　Set C = New Chara 　　C.Init colChara, "トム", 300, 30, 90, "鉄壁の守り" 　　　　　　Debug.Print colChara("ガイ").HP 　　Debug.Print colChara("トム").Defence End Sub