ユーザーフォームからシートに転記する際に、必要事項に漏れが無いようにする必要が
あります。
必要事項に漏れがあった場合の処理を追加します。
必要事項は
日付
仕入外注先
現場名
金額
の4点です。
転記をクリックした場合の処理に、赤枠部分を追加します。
もし、テキストボックスが空白ならば、メッセージを表示させ、Exit Subでプログラムを終了します。
リストボックスの場合は、ListCount=0→つまり何も選択されていない場合、メッセージ表示後
プログラムを終了します。
実行結果です。
これでシートに転記した際に必要事項が漏れるということはなくなりました。
