リストにある事前に入力した文字を変換したい

質問

例えばSheet２のA列とB列に下のように記入していたとします。
A列　　　B列
うさぎ　　 １
かめ　　　2　　
さる　　　 3
ねこ　　　4
・　　　　　5
・　　　　　6
ここで、Sheet1のC9、C11、C13、C15のそれぞれのセルで個別に、Sheet2のB列に書いた数字を入力すれば同じ行のA列の言葉をそれぞれ個別に出るようにしたいです。
もし上の例でいけば、Sheet1のC11のセルに2と入力したらかめと表示されるような感じです。もし
A列　　　B列
うさぎ　　 １
かめ　　　A　　
さる　　　 3
ねこ　　　4
・　　　　　5
・　　　　　6

とかめだけAに変更しておいたら逆にAと入力したらかめとでるように、Sheet２のA列、B列共に
編集ができることが前提です。どのようなコードを書けばよいでしょうか；？

回答No.2

keithin · ベストアンサー

通常のエクセルの使い方では、あるセルに元データを記入したら別のセルにその結果を関数で表示します。
そうではないイレギュラーなやり方をしたいなら、その旨「最初から」明記してください。

マクロを使うにしても、基本的な段取りは回答済みの数式がそのまま流用できる、ただの応用に過ぎません。

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

private sub Worksheet_Change(byval Target as excel.range)
　dim h as range
　on error resume next

　for each h in application.intersect(target, range("C9,C11,C13,C15"))
　　application.enableevents = false
　　h.value = worksheets("Sheet2").cells(application.match(h, worksheets("Sheet2").range("B:B"), 0), "A").value
　　application.enableevents = true
　next
end sub

お礼

ありがとうございますm(__)m
非常に完璧でした。こんな私のために本当に
感謝いたします；

回答No.1

keithin

＞それぞれ個別に出るようにしたいです。

たとえばＣ９に対して「出したい」どこにあるのか不明の？セルに
=IF(COUNTIF(Sheet2!B:B,C9),INDEX(Sheet2!A:A,MATCH(C9,Sheet2!B:B,0)),"")
と記入しておきます。

シート２のＡ列Ｂ列を逆に並べておけば、より簡単なVLOOKUP関数を利用できます。

＃参考

ご利用のエクセルのバージョンがご相談に書かれていませんが、Excel2007以降を利用しているなら
=IFERROR(INDEX(Sheet2!A:A,MATCH(C9,Sheet2!B:B,0)),"")
などのようにできます。

ご相談投稿ではご利用のエクセルのバージョンまで、しっかり明記する事を憶えて下さい。

お礼

ご回答ありがとうございますm(__)m
失礼しました；エクセルのバージョンは2007です。
出したいセルは同じセルです。上の例で言えば、例えばC9に1と入力したらうさぎと変換され、
2と入力したらかめと変換されるイメージです。他のセルではありません。そのため、C9に
他の言葉を入れることが前提です。全く関係ない言葉を入れることもあります。ただ、よく使う言葉
リストがSheet2にあるイメージで、うさぎは頻繁に使うので、1と入力したらうさぎと変換されたい
のです。