エクセルであるセルに数字を入力すると他のセルのデーターから文字が入力

質問

例
sheet１
　　Ａ
１　１→１を入力するとsheet2に入力されているデーター
　　　　から、該当する番号を判断して、東京とセル内に
　　　　表示する

sheet２
　　Ａ　Ｂ
１　１　東京
２　２　千葉
３　３　埼玉
行はまだ下に続く

こんな事をしたいのですが、ご教授お願いします

回答No.2

nishi6 · ベストアンサー

質問のような動きをするようにしてみました。

ツール→マクロ→Visual Basic Editor でVBE画面に移り、 表示→プロジェクトエクスプローラでプロジェクトエクスプローラを表示します。
プロジェクトエクスプローラのSheet1をダブルクリック。出てきたコードウインドウに下記マクロをコピーして貼り付けます。

ここから
↓
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
　　Dim rg As Range 'セル
　　Dim rgfnd As Range '見つけたセル

　　On Error GoTo ErrorHandler

　　Application.EnableEvents = False
　　For Each rg In Target
　　　　'Sheet1のA列なら
　　　　If rg.Column = 1 Then
　　　　　　'Sheet2を検索
　　　　　　Set rgfnd = Worksheets("Sheet2").Range("A:A").Find(rg.Text)

　　　　　　If Not rgfnd Is Nothing Then
　　　　　　　　'見つかったら書き換える
　　　　　　　　rg = rgfnd.Offset(0, 1).Text
　　　　　　　　Set rgfnd = Nothing
　　　　　　Else
　　　　　　　　rg = rg.Text & ":nothing"
　　　　　　End If
　　　　End If
　　Next
　　Application.EnableEvents = True

　　Exit Sub
ErrorHandler:
　　'エラー対応
　　Application.EnableEvents = True
End Sub

お礼

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

今回もすばらしいことです
大尊敬です
ほんとに有り難うございます

今後ともよろしくお願いします

回答No.3

imogasi

＃１の補足の疑問に対しては「否」です。
エクセルの関数式（ロータスも同じと思うが）、入力したセル（または値が入っているセル）に（その値を使って）
関数で加工した値を入れることは出来ない。大原則です。
どのセルでも、●値を入力すると、関数式が壊れる。
●関数式を入力すると値が壊れると憶えています。
したがってＢ列に東京等と出すのを我慢すれるのであれば、Ｂ１セルに=VLOOKUP(A1,Sheet2!$A$1:$B$3,2,FALSE)と入れれば良い。Ｓｈｅｅｔ２のＡ１：Ｂ３は
1 東京
2 名古屋
3 大阪
の場合です。
どうしてもＡ１に出したいときは、nishi6先生の回答（＃２）のように、少し面倒になります。

お礼

度々の回答ご無理をいいました
ありがとうございました
今後ともよろしくお願いします

回答No.1

kbonb

こんにちは

　以下のページがご参考になるのでは？

検索値と完全に一致する値だけを検索する (VLOOKUP 関数)
http://support.microsoft.com/intl/japan/support/kblight/t002/3/03.htm

参照を使用した VLOOKUP 関数の設定方法
http://support.microsoft.com/intl/japan/support/kblight/t002/3/02.htm

名前を利用した VLOOKUP 関数の使い方
http://support.microsoft.com/intl/japan/support/kblight/t002/3/01.htm

指定したコードに対する製品名や金額を求める (VLOOKUP関数)
http://support.microsoft.com/intl/japan/support/kblight/t002/3/00.htm

[XL97] VLOOKUP 関数の計算結果のエラー値を非表示にする方法
http://support.microsoft.com/intl/japan/support/kblight/t002/3/04.htm

[XL2002] 指定したコ-ドに対する製品名や金額を求める (VLOOKUP 関数)
http://www.microsoft.com/japan/support/kb/articles/J014/1/14.asp

[XL]VLOOKUP 関数の使用例
http://www.microsoft.com/japan/support/kb/articles/J013/4/53.asp

[XL95] VLOOKUP 関数のオンラインヘルプの記述について
http://www.microsoft.com/japan/support/kb/articles/J021/2/68.asp

【エクセル技道場】－関数－生年月日から学年を自動表示
http://www2.odn.ne.jp/excel/waza/function.html#TOC25

参考URL：

http://www2.odn.ne.jp/excel/

お礼

ポイントだけしてお礼を書くの忘れていました
いろんなところにあるんですね、すごいですね
感心します
ありがとうございました

補足

早速の回答有り難うございます
VLOOKUP 関数は分かるのですが
Ａ１にコード番号を入れたそのセルが文字に変換する
ようにしたいのですが、関数では無理なような気がしてきました
マクロのボタンになるんですかね？
もう少しご教授お願いできたら助かります
よろしくお願いします