家計簿をつくってみよう！(家計簿データ登録)

登録ボタンクリック時の処理

①　家計簿データ入力フォームの各項目をチェックし、チェックエラーの場合は処理を抜けます。

「項目(cmbKomoku)」がブランクまたは”選択してください”の場合はMsgBoxに「項目を選択してください」を表示して処理を抜ける
「内容(txtNaiyo)」がブランクの場合はMsgBoxに「内容を入力してください」を表示して処理を抜ける
「金額(txtKingaku)」が数字以外の場合はMsgBoxに「数字で入力してください」を表示して処理を抜ける

②　家計簿データ入力フォームの各項目をExcelの「家計簿データ」sheetに追記する。

未入力の行(row)を確定　※今回は200行までで未入力の行を探しています
家計簿データ入力フォームの各項目を「家計簿データ」sheetに追加編集
追加編集した行(row)に罫線を引く
家計簿データ入力フォームを閉じる

'*************************
'登録ボタンをクリック
'*************************
Private Sub CmdToroku_Click()
    '入力チェック
    '項目
    If cmbKomoku.Text = "" Or _
       cmbKomoku.Text = "選択してください" Then
        MsgBox "項目を選択してください"
        Exit Sub
    End If
    '内容
    If txtNaiyo.Text = "" Then
        MsgBox "内容を入力してください"
        Exit Sub
    End If
    '金額
    If IsNumeric(txtKingaku.Text) Then
    Else
        MsgBox "金額を数字で入力してください"
        Exit Sub
    End If
    '入力フォームの内容をsheetに編集
    Dim row_cnt As Long
    '未入力のrowを確定
    For row_cnt = 5 To 200
        If Cells(row_cnt, 1) = "" Then
            Exit For
        End If
    Next row_cnt
    '入力フォームの各項目をsheetに編集
    Cells(row_cnt, 1) = frmMoneyDiary.txtDate
    Cells(row_cnt, 2) = Mid(frmMoneyDiary.lblWeek, 2, 1)
    Cells(row_cnt, 3) = frmMoneyDiary.cmbKomoku
    Cells(row_cnt, 4) = frmMoneyDiary.txtNaiyo
    If frmMoneyDiary.lblSyushiKubun = "収入" Then
        Cells(row_cnt, 5) = Format(frmMoneyDiary.txtKingaku, "#,##0")
    Else
        Cells(row_cnt, 6) = Format(frmMoneyDiary.txtKingaku, "#,##0")
    End If
    '罫線を引く
    With Range(Cells(row_cnt, 1), Cells(row_cnt, 6)).Borders
     .LineStyle = xlContinuous
    End With
    '入力フォームを閉じる
    Unload Me
End Sub