サンプルコード3

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

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)

'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

2023-01-22