'データ用ワークブック制御クラス
'変数宣言強制

'新規データブック
Public Sub AddWB()

    '新規ワークブック
    Set gWB = Workbooks.Add
    'ワークシート数検査
    Dim cnt As Integer
    cnt = gWB.Worksheets.Count
    If cnt < 3 Then Call gWB.Worksheets.Add(, , cnt - 3)
    '表題
    Set gWS = gWB.Worksheets("Sheet1")
    
    gWS.Cells(1, 1).Value = "金額"
    gWS.Cells(1, 2).Value = "1円"
    gWS.Cells(1, 3).Value = "5円"
    gWS.Cells(1, 4).Value = "10円"
    gWS.Cells(1, 5).Value = "50円"
    gWS.Cells(1, 6).Value = "100円"
    gWS.Cells(1, 7).Value = "500円"
    gWS.Cells(1, 8).Value = "1000円"
    gWS.Cells(1, 9).Value = "2000円"
    gWS.Cells(1, 10).Value = "5000円"
    gWS.Cells(1, 11).Value = "10000円"
    
End Sub

'データ書き込み
Public Sub WriteData(ByVal r As Long, ByRef lData As Variant)

    'セルに書き込み
    Dim i As Integer
    For i = 0 To 10
        gWS.Cells(r, i + 1).Value = lData(i)
    Next
    
End Sub