サンプルコード2

'生徒の情報を検索する
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

'生徒の情報を検索する

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)

'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

2023-01-21