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

Question

例
sheet１
　　Ａ
１　１→１を入力するとsheet2に入力されているデーター
　　　　から、該当する番号を判断して、東京とセル内に
　　　　表示する

sheet２
　　Ａ　Ｂ
１　１　東京
２　２　千葉
３　３　埼玉
行はまだ下に続く

こんな事をしたいのですが、ご教授お願いします

nishi6 · Accepted Answer

質問のような動きをするようにしてみました。

ツール→マクロ→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

imogasi · Answer

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

kbonb · Answer

こんにちは

　以下のページがご参考になるのでは？

検索値と完全に一致する値だけを検索する (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/

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

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

＃１の補足の疑問に対しては「否」です。

こんにちは

この回答への補足

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング