今日勉強した事、頑張った事を書き込むスレ19日目

裏2から来ました。
雑炊さんはアクセス規制中のため、代理で投稿します。
================================================
Sub MonthsOutset
ResetKey = 0
ResetKey = MsgBox("月末には、月内の集計を完了させて下さい。" &_
vbcr & "翌月初回の計算では、月間合計を初期化して下さい。" &_
vbcr & "月間合計を0に初期化する場合は、はいボタンをクリックして" &_
"下さい。" & vbcr & "月間合計を初期化しない場合は、いいえボタンを" &_
"クリックして下さい。", vbYesNo, "質問")
End Sub