カード型データベースを作ってみよう

'入力テキストボックスをクリア
Private Sub ExInputCls()
    TextBox1.Text = ""
    TextBox2.Text = ""
    TextBox3.Text = ""
    '日付テキストボックスにフォーカスを移す
    TextBox2.SetFocus
End Sub

Private Sub CommandButton1_Click()
    Dim last As Long
    Dim lid As Long
    
    '未入力の最終行を調査
    last = Workbooks("Data.xls").Worksheets("Sheet1").Range("A65536").End(xlUp).Row + 1
    
    lid = Val(Workbooks("Data.xls").Worksheets("Sheet1").Cells(last - 1, 1))
    TextBox1.Value = lid + 1
    'ID
    Workbooks("Data.xls").Worksheets("Sheet1").Cells(last, 1) = TextBox1.Value
    '日付
    Workbooks("Data.xls").Worksheets("Sheet1").Cells(last, 2) = TextBox2.Value
    'メモ
    Workbooks("Data.xls").Worksheets("Sheet1").Cells(last, 3) = TextBox3.Value

    '入力テキストボックスをクリア
    ExInputCls
End Sub

'クリア
Private Sub CommandButton3_Click()
    '入力テキストボックスをクリア
    ExInputCls
End Sub