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

質問

例
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

お礼

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

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

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