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

①　コンボボックス「項目(cmbKomoku)」選択入力時に収支区分「収支(lblSyushi)」を編集します。

• コンボボックス「項目(cmbKomoku)」から該当の項目を選択
• 上記で選択した項目に対応する収支区分を以下の通り「コンボ設定」sheetのB列より「収支(lblSyushi)」に設定　コードについては！　　For文、If文については！　

'*************************
'項目comboが変更されたら収支区分を編集する
'*************************
Private Sub cmbKomoku_Change()
    Dim i As Integer
    For i = 2 To 20
        If cmbKomoku.Text = Worksheets("コンボ設定").Cells(i, 3).Value Then
            lblSyushi.Caption = Worksheets("コンボ設定").Cells(i, 2).Value
        End If
    Next i
End Sub

②　テキストボックス「金額(txtKingaku)」入力時に3桁ごとのカンマ区切に編集します。

• 「金額(txtKingaku)」を入力
• 上記で入力した金額を3桁ごとのカンマ区切にし、以下の通り「金額(txtKingaku)」に設定　コードについては！　　Formatについては！

'*************************
'金額が変更されたら3桁ごとにカンマで区切を編集する
'*************************
Private Sub txtKingaku_Change()
    txtKingaku.Text = Format(txtKingaku.Text, "#,###")
End Sub

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