サンプルコード3
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 | Private Sub UseClassModule3() '表のデータを保持する変数 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 TableValue(vIndex, 3) = 17 '17歳に変更する End If '修正したデータを反映する TableRange.Value = TableValue Set oStudents = Nothing End Sub |