エクセルの入力ミスを警告する方法

質問

エクセルで簡単な表を作ったのですが、必要な項目を入力し忘れて印刷してしまい再度印刷しなおすことがよくあり、紙の無駄遣いを嘆いています。そこで、下記のような場合に入力を忘れていたときに画面に警告が出るような方法は無いでしょうか。
例）Ａ１のセルに品名を入力した時にＡ２にその内容を入力→Ａ３に数量を入力→Ａ４に重量を入力する場合で、Ａ１に入力したときはＡ２，Ａ３，Ａ４は必ず入力しなければならず、もしＡ２，Ａ３，Ａ４の１つでも入力漏れがあった場合に何らかの警告を画面上でする
初心者ですので説明が不十分かも知れませんが、お知恵を拝借できれば幸いです。よろしくお願いします。

回答No.5

imogasi · ベストアンサー

簡単なVBAでできそう。
ーー
セルが空白かどうかチェックする。未入力は良くないとして。
A.チェックするセル番地
B。警告メッセージ文章
をリストする。
ーー
ワークシートに１つコマンドボタンを張り付け。
表示ーツールバーーコントロールツールボックスーーボタンをクリックーシートへドラッグアンドドロップ
http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_130_02.html
このうちコントロールツールボックスの方
そのボタンをダブルクリックすると
Private Sub CommandButton1_Click()

End Sub
が現れるから
下記をコピペする。
上記の、セル番地ーエラーコメントの対応リストで下記コードを修正する。どこをどう修正するか推測できますね。
チェックするセルを増やす場合は直前の行をコピーし
直下行の先頭をクリックして張り付け、増えた行上のセル番地とコメントを修正する。
Private Sub CommandButton1_Click()
errc = ""
MsgBox "aaa"
If Range("A2") = "" Then errc = errc & "/" & "氏名なし"
If Range("C2") = "" Then errc = errc & "/" & "年齢なし"
If Range("D3") = "" Then errc = errc & "/" & "計数なし"
If errc = "" Then errc = "OK"
MsgBox errc
End Sub
シートの入力項目を入れ終わったと思えば、コマンドボタンをクリックする。
漏れがあれば「・年齢なし・計数なし」などコメントが出る。修正してコマンドボタンをクリックし「OK」になる。

お礼

御回答ありがとうございます。
ご意見を参考に挑戦したいと思います。

回答No.4

marbin

#3です。
よく見たら単純に
>=A1=""
みたいな感じではないのですね。
でも応用でいけそうな気がします。

お礼

御回答ありがとうございます。
ご意見を参考に挑戦したいと思います。

回答No.3

marbin

条件付き書式で未入力セルの背景色を変える、というのも。

数式が
=A1=""

お礼

御回答ありがとうございます。
ご意見を参考に挑戦したいと思います。

回答No.2

merlionXX

#1さんおっしゃるようにマクロでもいいですが、ワークシート上に警告表示をするだけでいいなら、表示したいセルに
=IF(OR(COUNTA(A1:A4)=4,COUNTA(A1:A4)=0),"",COUNTBLANK(A1:A4)&"個のセルに入力がありません！")
と入れてみてください。
Ａ1～Ａ4の全てが空白の場合か、全てに入力がある場合は何も出ませんが、不完全な場合に警告が表示されます。

お礼

御回答ありがとうございます。
ご意見を参考に挑戦したいと思います。

回答No.1

noname#50059

マクロを組みます。
各セルの内容が空白(未入力)ならメッセージボックスを表示します。

お礼

御回答ありがとうございます。
ご意見を参考に挑戦したいと思います。