サンプルコード2
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 | '生徒の情報を検索する Public Function SearchItemIndex(ByVal vID As String) As Variant SearchItemIndex = False If mItemDictionary.Exists(vID) Then SearchItemIndex = mItemDictionary.Item(vID) End If End Function Private Sub UseClassModule2() '表のデータを保持する変数 Dim TableRange As Range Dim TableValue As Variant '表のデータを取得する With ThisWorkbook.Worksheets("Sheet1").Range("A3").CurrentRegion Set TableRange = .Resize(.Rows.Count - 1).Offset(1) End With '表のデータを配列に取得する TableValue = TableRange.Value '生徒全員の情報を保持するオブジェクトを代入する変数 Dim oStudents As Students Set oStudents = New Students '表のデータをもとにStudentsオブジェクトに値を設定する Dim i As Long For i = LBound(TableValue) To UBound(TableValue) oStudents.Add TableValue(i, 1), TableValue(i, 2) _ , TableValue(i, 3), TableValue(i, 4) Next 'IDが「A0003」の生徒を検索する Dim vIndex As Variant vIndex = oStudents.SearchItemIndex("A0003") If vIndex = False Then MsgBox "指定したIDは見つかりません", vbInformation Else Debug.Print oStudents.Item(vIndex).Name End If Set oStudents = Nothing End Sub |