特定の数字を入力すると、隣のセルに言葉を表示させるには？

解決

Ｒ．Ａ．Ｂ 2006-01-28 01:39:51 No: 129902

Ａ｜  Ｂ    ｜    という表があって、D３にＡ列の数字（仮に３とする）を
１｜日本    ｜    入力すると、隣のＥ３にＢ３の言葉が出てくるように
２｜イギリス｜    したいのですが
３｜アメリカ｜    プログラムの組み方がわからないです
〜〜〜〜〜〜〜    いい方法があれば、教えてください
40｜オランダ｜

Geo=TK3 2006-01-28 02:51:11 No: 129903

...Excel？
ならプログラムを組むまでもなく、E3 セルに VLOOKUP つかった式を
記述するだけのような。

LESIA 2006-01-28 03:05:00 No: 129904

ExcelのVBAdeやるならこんな感じですね。

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim MyRange As Range

    If Target.Address = "$D$3" Then
        Set MyRange = Range("A1:A40").Find(What:=Target.Value, LookIn:=xlValues)
        If MyRange Is Nothing Then
            Target.Offset(, 1).Value = "該当無し"
        Else
            Target.Offset(, 1).Value = MyRange.Offset(, 1).Value
        End If
    End If
End Sub

ＢＩｌｌ 2006-01-31 01:50:51 No: 129905

ありがとうございます
おかげで助かりました