Option Explicit
'２次元のリスト用クラス
'フィール数は２列
'プロパティは、メンバー以外アクセスできない

'プロパティの実体
Private mlngID As Long          '主キー
Private mstrName As String      '名前
Private mdatDate As Date        '日付
Private mintNum As Integer      '区分

Public Property Get id() As Long

    id = mlngID
    
End Property

Public Property Let id(ByVal lngID As Long)

    mlngID = lngID
    
End Property

Public Property Get Name() As String

    Name = mstrName
    
End Property

Public Property Let Name(ByVal strName As String)

    mstrName = strName
    
End Property

Public Property Get Hiduke() As Date

    Hiduke = mdatDate
    
End Property

Public Property Let Hiduke(ByVal datDate As Date)

    mdatDate = datDate
    
End Property

Public Property Get Number() As Integer

    Number = mintNum
    
End Property

Public Property Let Number(ByVal intNum As Integer)

    mintNum = intNum
    
End Property

'ワークシートの値を取得（名前）
Public Sub GetData(ByVal objws As Worksheet, ByVal lngRow As Long, ByVal intCol As Integer, ByVal intAdd1 As Integer, ByVal intAdd2 As Integer)

'引数[objWS]：ワークシート
'引数[lngRow]：レコード
'引数[intCol]：フィールド
'引数[intAdd1]：フィールドスライド値
'引数[intAdd2]：フィールドスライド値

    mlngID = CLng(objws.Cells(lngRow, intCol).Value)
    mstrName = CStr(objws.Cells(lngRow, intCol + intAdd1).Value)
    mintNum = CInt(objws.Cells(lngRow, intCol + intAdd1 + intAdd2).Value)
    
End Sub

'ワークシートの値を取得（日付）
Public Sub GetData2(ByVal objws As Worksheet, ByVal lngRow As Long, ByVal intCol As Integer, ByVal intAdd1 As Integer, ByVal intAdd2 As Integer)

'引数[objWS]：ワークシート
'引数[lngRow]：レコード
'引数[intCol]：フィールド
'引数[intAdd1]：フィールドスライド値
'引数[intAdd2]：フィールドスライド値

    mlngID = CLng(objws.Cells(lngRow, intCol).Value)
    mdatDate = CDate(objws.Cells(lngRow, intCol + intAdd1).Value)
    mintNum = CInt(objws.Cells(lngRow, intCol + intAdd1 + intAdd2).Value)
    
End Sub

'ワークシートの値を取得(すべて)
Public Sub GetData3(ByVal objws As Worksheet, ByVal lngRow As Long, ByVal intCol As Integer, ByVal intCol2 As Integer, ByVal intCol3 As Integer, ByVal intCol4 As Integer)
'引数[objWS]：ワークシート
'引数[lngRow]：レコード
'引数[intCol]：フィールド
'引数[intCol2]：フィールド
'引数[intCol3]：フィールド
'引数[intCol4]：フィールド

    mlngID = CLng(objws.Cells(lngRow, intCol).Value)
    mstrName = CStr(objws.Cells(lngRow, intCol2).Value)
    mdatDate = CDate(objws.Cells(lngRow, intCol4).Value)
    mintNum = CInt(objws.Cells(lngRow, intCol3).Value)

End Sub
f