掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
配列状データをまとめてシフトするには？ (ID:99807)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
100 個登録するときは、 Private list As VBA.Collection Private Sub Form_Load() Set list = New VBA.Collection Dim n As Integer For n = 1 To 100 list.Add CreateClass1(123.456, …) Next End Sub Public Function CreateClass1(ByVal rateE As Single, …) As Class1 Set CreateClass1 = New Class1 CreateClass1.rateE = rateE ： End Function という感じで。 取り出すときは、list(数値).rateE などで。 インデックスのシフトについては、こんな感じ。 '登録済みの先頭2件 list(0), list(1) を削除し、 '末尾に、初期値で2件 list(99), list(100) 追加 list.Remove 1 list.Add New Class1 list.Remove 1 list.Add New Class1
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.