【VBA】できればメッセージボックスを使って警告を促したい

質問

【VBA】できればメッセージボックスを使って警告を促したい

エクセル２０００です。
VBAのメッセージボックスを使って以下のことは可能でしょうか。

E列とV列があり、それぞれ異なるリスト内から文言を選択するという環境です。
入力順序はE列→V列になり、E列のリストには「A～F」という６種類の文言が、
V列のリストには「G～L」という６種類の文言があるとします。

ここで例えばE3にリストから「A」を選択したとします。
次にV3にもリストから文言を選択する訳ですが、E３に「A」と入れた場合
V３には「G～L」どれでも選択できる環境でありながら、G、H、Iのいずれかを選択した時は
普通に入力でき、J、K、Lを選択した時は「矛盾しています」の警告ポップアップがでるように
したいのです。

このようにE列にある文言を選択した時、同行のV列に然るべき文言を選択しなかった場合
警告ポップアップがでるような組み合わせをいくつか作成したいと思っています。

可能であれば、ポップアップの選択は「中止」か「無視」の２択にし、
「中止」を選べば一旦V列の内容が消え、「無視」を選べば矛盾した内容がそのまま
V列に入力されるようにもしたいと考えています。

表の大きさはA１：Y８０だとして、E列とV列は同じ行内でいつでも上記のような
関係にすることは可能でしょうか。

当方VBAを始めたばかりの初心者(実際に記録をやってみて、その結果がVBEにどう書かれるかを探ってるレベル)ですので、贅沢を言って申し訳ないですが、
それを汲んで解説いただけたら幸いです。
本来なら自分でじっくり学んで方法を模索したいところなのですが
達成したい期日があるので、早目にヒントだけでも欲しいというのが本音です。

回答はそれなりに難解になるとも思っていますが、読み解く努力はしたいと思っていますので
どうかよろしくお願いいたします。

回答No.3

kmetu · ベストアンサー

もっと短くすると

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 22 Then
If Not Range("W1:W" & Range("W" & Rows.Count).End(xlUp).Row).Find(Range("E" & Target.Row).Value & Range("V" & Target.Row).Value, LookAt:=xlWhole) Is Nothing Then
If MsgBox("矛盾しています", vbAbortRetryIgnore) = vbAbort Then
Range("V" & Target.Row).Value = ""
End If
End If
End If

End Sub

のような感じになります。

お礼

回答ありがとうございました。
覚悟していたことですが、今の自分の知識量には過ぎた質問でしたので
いただいた回答をヒントに現在も試行錯誤している最中です。
それでも全くの無からではどうにもできない状態だったので
おかげさまで調べていく方向性は見えてきました。

それにしても投稿からわずか１～２時間で回答をいただけるとは思ってもいませんでしたので
正直感心と共に驚いています。
また行き詰った時には質問させていただくかもしれませんがよろしくお願いいたします。

素早い回答ありがとうございました！

回答No.2

kmetu

たとえばW列に矛盾リストを作るとしたら
以下のようになります。

W列には例で行くと
AJ
AK
AL
が入力されているとします。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim m_Contradiction As Boolean
Dim i As Long

If Target.Column = 22 Then

For i = 1 To Range("W" & Rows.Count).End(xlUp).Row
If Range("E" & Target.Row).Value & Range("V" & Target.Row).Value = Range("W" & i).Value Then
m_Contradiction = True
Exit For
End If
Next i
If m_Contradiction = True Then
If MsgBox("矛盾しています", vbAbortRetryIgnore) = vbAbort Then
Range("V" & Target.Row).Value = ""
End If
End If
End If

End Sub

お礼

回答ありがとうございました。
詳細は最新の回答に集約させていただきます。

回答No.1

kmetu

例の部分だけを単純に考えると以下のようになります。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 22 Then
If Range("E" & Target.Row).Value = "A" Then
If Range("V" & Target.Row).Value = "J" Or Range("V" & Target.Row).Value = "K" & Range("V" & Target.Row).Value = "L" Then
If MsgBox("矛盾しています", vbAbortRetryIgnore) = vbAbort Then
Range("V" & Target.Row).Value = ""
End If
End If
End If
End If

End Sub

あとA～FとG～Lで矛盾している組み合わせのリストを作って
そのリストに合致したらメッセージをだすというような作り方もできます

多分そのほうがソースとしては短いものになると思います。

お礼

回答ありがとうございました。
詳細は最新の回答に集約させていただきます。