Excelで工事台帳~17 必須入力項目の確認

Pocket

ユーザーフォームからシートに転記する際に、必要事項に漏れが無いようにする必要が
あります。

必要事項に漏れがあった場合の処理を追加します。
必要事項は
日付
仕入外注先
現場名
金額
の4点です。

転記をクリックした場合の処理に、赤枠部分を追加します。
2601281
もし、テキストボックスが空白ならば、メッセージを表示させ、Exit Subでプログラムを終了します。
リストボックスの場合は、ListCount=0→つまり何も選択されていない場合、メッセージ表示後
プログラムを終了します。

実行結果です。
2601282

これでシートに転記した際に必要事項が漏れるということはなくなりました。