変数の一部をループ変数で可変にするには？ (ID:118065)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ユーザー定義型を使うのはダメですか？ Option Explicit Private Type m Date As Date ID As Integer End Type Private Sub Command1_Click() Dim m0(1 To 5) As m For i = 1 To 5 m0(i).Date = Date m0(i).ID = ID Next i End Sub