ユーザー定義型を使おう

ユーザーで固有の変数を定義したくなると思います。
ここでは、ユーザー定義型としてType型を勉強したいと思います。

■ Type型を定義する

Type MyData

 MyName As String
 MyAge As Integer
 MyWeight As Double

End Type

■ 定義したType型を使用してコーディング

できたら以下のコードを入力して実行させてみてください。
ここでは、上記に定義したType型に変数を代入しています。

Sub ユーザー定義型()
 
 Dim ClassData(5) As MyData
 Dim Rowpos As Integer

 For Rowpos = 2 To 7
  ClassData(Rowpos - 2).MyName = Cells(Rowpos, 1)
 Next
 
 For Rowpos = 2 To 7
  ClassData(Rowpos - 2).MyAge = Cells(Rowpos, 2)
 Next

 For Rowpos = 2 To 7
  ClassData(Rowpos - 2).MyWeight = Cells(Rowpos, 3)
 Next
 
 
End Sub

1. Dim　ClassData(5)　As　MyData
   先ほど定義したMyDataを６個作成しています。名前はClassDataです。
   ５と書いてあるのに６個ある理由はClassData(0)、ClassData(1)というように
   ０も入るからです。忘れがちですので気をつけましょう。
   　

2. ClassData(a).MyName　=　xxx
   ClassDataのa番目のMyNameというデータ格納庫にxxxを入力しなさいという意味です。
   ここではセルRowpos列の１〜３行目の値を入力しなさいという意味となります。