Option Explicit
'数値クラス
'プロパティは、メンバー以外アクセスできない

'プロパティの実体
Private mdblNumber As Double    '数値

Public Property Get Number() As Double

    Number = mdblNumber
    
End Property

Public Property Let Number(ByVal dblNum As Double)

    mdblNumber = dblNum
    
End Property

'プロパティの書き出し
Public Sub SetData(objws As Worksheet, ByVal lngRow As Long, ByVal bytCol As Byte)

'引数[objWS]：ワークシート
'引数[lngRow]：レコード
'引数[bytCol]：フィールド

    'プロパティの書き出し
    objws.Cells(lngRow, bytCol).Value = mdblNumber
    
End Sub

'データの取得
Public Sub GetData(ByVal objws As Worksheet, ByVal lngRow As Long, ByVal bytCol As Byte)

'引数[objWS]：ワークシート
'引数[lngRow]：レコード
'引数[bytCol]：フィールド

    'データの取得
    mdblNumber = CDbl(objws.Cells(lngRow, bytCol).Value)
    
End Sub