Excel VBAでメッセージとセル選択のループを回避したい

質問

Excel VBAでメッセージとセル選択のループを回避したい
初歩的な質問ですみません。

セルA1で入力規則のリストから"重要"が選択されたらメッセージボックス「重要です」を表示し、離れた複数セル(D4,F7など10カ所ほど)の枠線を太く、A1が"重要"以外になったら枠線を細くします。複数セルは名前の定義で「重要項目」とし、下のコードで一応できました。
でも、「重要項目」のセルに入力Enterするたびにメッセージが表示されてしまい、「重要項目」が選択されたままです。
メッセージはA1が"重要"になるごとに一度だけ表示し、セル選択は元の位置に戻したいのです。
バージョンはExcel2003です。よろしくお願いします。

--------------------------------------
Private Sub Worksheet_Change(Byval Target As Range)

If Range("A1") = "重要"　Then

MsgBox "重要です"
Range("重要項目"). Select
Selection. BorderAround Weight = 4

Else If Range("A1") <> "重要"　Then

Range("重要項目"). Select
Selection. BorderAround Weight = 2

End IF
End Sub

回答No.1

keithin · ベストアンサー

Private Sub Worksheet_Change(Byval Target As Range)

'>メッセージはA1が"重要"になるごとに一度だけ表示
if application.intersect(target, range("A1")) is nothing then exit sub

If Range("A1") = "重要"　Then

MsgBox "重要です"
Range("重要項目"). Select
Selection. BorderAround weight:= 4

else
Range("重要項目"). Select
Selection. BorderAround weight:= 2

End IF
End Sub
などのように，A1がchangeをトリガしたのかどうかを調べて分岐します。

単セルしか絶対操作しない(それ以外の時は不定の動作を許容する）なら
private sub worksheet_change(byval target as range)
　if target.address = "$A$1" then
　’A1セルが１つ変更されたので，その時の動作を行う
　end if
end sub
のような組み立てもあります。

お礼

ありがとうございました。最初のコードを参考にして無事希望の動作ができました。

回答No.2

Wendy02

>「重要項目」のセルに入力Enterするたびにメッセージが表示されてしまい

'//

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
　　With Range("重要項目")
　　　　If Target.Value Like "重要*" Then
　　　　　　.BorderAround Weight:=xlThick
　　　　　　.Select ''不要なら外す
　　　　　　MsgBox "重要です", vbExclamation
　　　　Else
　　　　　　.BorderAround Weight:=xlThin
　　　　End If
　　End With
End Sub

'//

お礼

ありがとうございました。こういう方法もあるのですね。勉強になりました。