エクセル機能について教えてください。

質問

エクセルであるセルに特定の文字が入力されたら、メッセージを出すにはどうしたらよいでしょうか。
例えばA1のセルに「020382」と入力したらLOOKUP関数でA2のセルに「上」と自動に入力されます。
A2のセルに「上」と入力されたらメッセージというか、入力者にわかるように「特」とメッセージを出したいのです。
あと同じ作業でA2のセルに「下」と入力されたらメッセージは「大」といれるなど、条件を3つだしたいです。
よろしくお願いします。

回答No.1

keithin · ベストアンサー

＞メッセージを出したい

何か，メッセージがポップアップするような事をしたいという事でしょうか。
そういう場合には，マクロを併用するしかありません。

○一般にできる簡単な方法
Ａ２セルの隣のＢ２セルに「メッセージ欄」を設けます。
Ｂ２セルには
=IF(A2="上","特！",IF(A2="下","大！",IF(A2="中","別！","")))
のように記入し、目立つように書式で細工しておきます。

○どーしても「メッセージ」が欲しいなら

＃補足
Ａ２セルは、Ａ１セルの記入を受けて勝手に数式の結果が現れるだけなので、こういうのはエクセルでは「入力する」とは言いません。
入力するのはあくまでＡ１にであって、Ａ２にはその結果が現れるということで、あなたの実際のエクセルで行う場合は注意してください。

手順：
シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub Worksheet_Change(byval Target as excel.range)

　if application.intersect(target, range("A1")) is nothing then exit sub
　application.screenupdating = true

　if range("A2").value = "上" then
　　msgbox "特"
　elseif range("A2").value = "下" then
　　msgbox "大"
　elseif range("A2").value = "中" then
　　msgbox "？"
　end if
end sub

ファイルメニューから終了してエクセルに戻る
Ａ２にはＡ１に記入したら正しく結果が表示されるよう数式を準備しておく
Ａ１に値を記入する。

お礼

シート15枚コピーしました。
ありがとうございました。

補足

ありがとうございました！！できました！！
でもシートが30枚あるなかでその設定をシート15枚にしたいのですが・・
どうしたらいいでしょうか？