２つの数字の組み合わせに対応する文字を返すコードを教えてください。

質問

すみませんがお知恵を拝借させてください。下のような表で，Ｂ列の値に０～３，Ｃ列の値に０～３のいずれかを入れたとき，２つの数字の組み合わせに対応するＡ列にある名前を返すコードを教えていただけませんか。
　例えば，Ｂ列の値＝２，Ｃ列の値＝０のとき，「酒井」と出力したいのですが。
※２つの数字の組み合わせに重複はありません。範囲は下に書いた10名分のみです。よろしくお願いいたします。　
-----------------------------------------
Ｂ列の値：＿
Ｃ列の値：＿

Ａ列　 Ｂ列　 Ｃ列
-------------------
大田　　3　　　0
酒井　　2　　　0
三宅　　2　　　1
坂下　　1　　　0
原田　　0　　　0
山内　　0　　　1
山口　　1　　　1
相馬　　1　　　2
渡辺　　0　　　2
安藤　　0　　　3

回答No.5

yk3291

B列の値を入力するセルがＢ1、Ｃ列の値を入力する
セルがＢ2とします。
Ａ5からC14の範囲に名前及び数字のデータが入力
されているとします。
該当のシート名は"Sheet1"とします。

この内容において、Sheet1のモジュールに以下の
コードを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim a As Integer, b As Integer, c As Integer

If Target.Column <> 2 Or Target.Row > 2 Then Exit Sub

b = Sheets("Sheet1").Range("B1").Value
c = Sheets("Sheet1").Range("B2").Value

For a = 5 To Sheets("Sheet1").Range("A65536").End(xlUp).Row

If Sheets("Sheet1").Range("B" & a).Value = b And Sheets("Sheet1").Range("C" & a).Value = c Then Exit For

Next a

If Sheets("Sheet1").Range("B1").Value <> "" And Sheets("Sheet1").Range("B2").Value <> "" Then
Sheets("Sheet1").Range("C1").Value = Sheets("Sheet1").Range("A" & a).Value
End If

If Sheets("Sheet1").Range("B1").Value = "" Or Sheets("Sheet1").Range("B2").Value = "" Then
Sheets("Sheet1").Range("C1").Value = ""

End If

End Sub

文字数の関係で改行されてしまっている部分は
手直ししてください。

あとは状況(シート名や、入力の位置、データが
入力されている範囲等）に応じて部分的に変更して
みてください。

お礼

yk3291様
　お知恵を拝借して恐縮です。本当にすごいというか，感心することしきりです。あと，コマンドボタンで操作したいときは，
Private Sub Worksheet_Change(ByVal Target As Range)を，
Private Sub CommandButton1_Click()
にかえて，
If Target.Column <> 2 Or Target.Row > 2 Then Exit Sub
を削除すればよろしいですよね？
本当にありがとうございました。