ＥＸＣＥＬファイルを開く際のメッセージの分岐処理について

質問

いつもお世話になっています。

ここで、いろいろと勉強させてもらっていて、
ＥＸＣＥＬファイルを開くときに、
Sub Auto_Open()
　MsgBox "○○○を変更しました", vbOKOnly + vbInformation, "メッセージ"
End Sub
とかで、メッセージを出すことで、
会社で共有ファイルの内容変更や依頼内容について、
アナウンスが出来るので、
便利に使わせてもらっています。

そこで、もっと有効的な使い方をしたいのですが、
(1)そのシートのあるセルの値でもって、
表示するメッセージの内容を２、３つに変更したいのですが、
可能でしょうか？
(2)また、さらに、ある場合にはメッセージを出さない、
とかも出来ますでしょうか？

教えて下さい。
宜しくお願い致します。

回答No.2

FEX2053 · ベストアンサー

例えば

Sub Auto_Open()
IF RANGE("A1").VALUE=1 THEN
　MsgBox "セルは１です", vbOKOnly + vbInformation
ELSE IF RANGE("A1").VALUE=2 THEN
ELSE
　MSGBOX "セルは１か２以外です",vbOKOnly + vbInformation
END IF
End Sub

こんな感じにすれば「２」の時は何もしませんよ。
条件が多いときは、「SELECT CASE」を使うとすっきりします。

お礼

ありがとうございました。
出来ました。

とても楽になりそうです。

ほんとにありがとうございました。

回答No.1

hana-hana3

ＩＦ文などを使って判断させればお望みの事は可能です。