エクセルで条件に基づきエラーメッセージを表示させた

質問

下記のように設定しています
・A2、B2、C2、D2の各セル内にチェックボックスを配置
・A2のリンクセルはAE2に、B2はAF2に、C2はAG2に、D2はAH2に配置
・AY2に「=COUNTIF(AE2:AH2,TRUE)」を配置して、B2、C2 、D2の中で選択した数を表示

B2、C2 、D2の全てに該当しない場合にはA1をチェックするのですが、
A1を選んだ場合で、間違ってB2、C2 、D2の中でどれか1つ以上にもチェックしてしまった場合に注意喚起するメッセージを表示させたいのです

データの入力規則の「無効なデータが入力されたらエラーメッセージを表示する」を使って
A2を選択したあとに、かつB2 and/or C2 and/or D2を選択したとして
例えば「重複してませんか？」のように表示させようとしたのですが、どうもうまくできませんでした

どなたかよい解決法をご存知でしたら、どうぞ教えて下さい
可能であればマクロは使わない方法がありがたいです
（わかりやすくするためセルの表記を簡素化しています、実際には横に20行近い質問項目のセルを用意し、
縦に300近く個別のIDを設定していますので、マクロの微修正が出来るほどの技術は持ち合わせて無いからなのです）

使用環境はWindows10、excel2019相当の自宅とWindows7、excel2010相当の職場でデータをやりとりしています

どうぞよろしくおねがいいたします

回答No.12

HohoPapa · ベストアンサー

VBAを持ち込むことができるのであれば、
添付画像を例に
'----------------------------------------------
Sub 警告()
　Dim c As Range
　For Each c In Range("AY2:AY4")
　　If c.Value <> 1 Then
　　　MsgBox "重複してませんか？"
　　End If
　Next
End Sub
'----------------------------------------------
といったコードでいかがでしょうか？

あるいは、
#9のコメントの延長で考えるのであれば、
'----------------------------------------------
Sub 警告()
If Range("BA2") = "警告！" Then MsgBox "入力内容に矛盾があります。"
End Sub
'----------------------------------------------
を
'----------------------------------------------
Sub 警告()
　Dim c As Range
　For Each c In Range("BA2:BA300")
　　If c.Value = "警告！" Then
　　　MsgBox "入力内容に矛盾があります。"
　　End If
　Next
End Sub
'----------------------------------------------
とすることで、複数範囲の行を1行ごとにチェックする動作になります。

お礼

誠にありがとうございます
願っていた通りの挙動を実装出来ました
まさに望外の幸せです
今後ともご指導の程どうぞよろしくおねがい申し上げます

回答No.1

HohoPapa

添付画像のように、
AY2の値が2以上なら、書式設定で文字色を赤に、
普段は文字色を白に。
という解はいかがでしょうか。

A1セルが選択されてしまうと、数式バーにメッセージが見えてしまいます。
それを避けるのであれば、ロックとシート保護で、A1セルを選ぶことができなくする対応が考えられます。

お礼

うまくニュアンスを伝えるべく、実際のシートを簡略化したsampleを作成しました
ギガファイル便経由でおとして頂けると幸いです
下記よりご確認ください
https://xgf.nu/1WDK
ダウンロード期限は1週間となっておりますのでご容赦下さい

補足

御指摘ありがとうございます

非常に細かい話なのですが、「A1」と記載してしまったのは私のミスです
ただしくは「A2」になります

ですので、メッセージを表示することが可能な別セルは用意できません
できればエラーメッセージとして表示させたいので
データの入力規則で対応したいのです

これまでに行った方法としては
条件（ユーザー設定）で数式の部分に
AND(AE=TRUE,AY>1)
としても、うまく作動しませんでした
適切な関数？引数？ありましたら是非ご教示ください

実際のエクセルシートあるいはそのpng画像を添付したいのですが
この画面からはうまく添付できませんでした
ご容赦下さい