マクロで指定した文字以外にも入力出来るようにしたい

質問

いつもお世話になります。
今回は以前に教えてもらったマクロで数字をセルに入力しると、マクロ表シートであらかじめ決めている項目の文字に変わるという構文を教えてもらいました。
下記に記します。

Private Sub worksheet_change(ByVal Target As Excel.Range)
Dim h As Range
Set Target = Application.Intersect(Target, Range("D4:K34, M4:U34, W4:AA34, AC4:AG34"))

On Error Resume Next
For Each h In Target
If h <> "" Then
Application.EnableEvents = False
h = Application.VLookup(h.Value, Worksheets("マクロリスト表").Range("D:E"), 2, False)
Application.EnableEvents = True
End If
Next
End Sub

さて、このマクロでは決めた数字以外の文字や数字を入力すると「＃N/A」というエラーが返って来ます。
そこで、このセルに文字を入れたり、他の数字を入れられる様にしたり、データの入力規制でドロップダウンリストを付けて他の項目を選んで入力したりしたいのです。
そういう事がもし出来るなら、上記の構文の「どこ」に「どのような」記述を入れたら良いか、ズバリ教えて頂けないでしょうか。
厚かましい、質問ですが、
どうぞ、よろしくお願い致します。

回答No.2

keithin · ベストアンサー

スミマセン，思い出しました。
下記に訂正します。

改めて：
シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに記載されているマクロを綺麗に消去する
改めて下記をコピー貼り付ける

Private Sub worksheet_change(ByVal Target As Excel.Range)
　Dim h As Range
　Set Target = Application.Intersect(Target, Range("D4:K34, M4:U34, W4:AA34, AC4:AG34"))

　On Error Resume Next
　For Each h In Target
　If h <> "" Then
　　Application.EnableEvents = False
　　h = Application.worksheetfunction.VLookup(h.Value, Worksheets("マクロリスト表").Range("D:E"), 2, False)
　　Application.EnableEvents = True
　End If
　Next
End Sub

ファイルメニューから終了してエクセルに戻る
決められた言葉を記入すると，対応する内容に書き換わる
それ以外を記入したときはそのまま放置になる。

お礼

毎度、毎度、お手数をおかけしてありがとうございます。
完璧で御座いました。
ありがとうございました。

回答No.1

keithin

シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに記載されているマクロを綺麗に消去する
改めて下記をコピー貼り付ける

Private Sub worksheet_change(ByVal Target As Excel.Range)
　Dim h As Range
　dim res as variant
　Set Target = Application.Intersect(Target, Range("D4:K34, M4:U34, W4:AA34, AC4:AG34"))

　On Error Resume Next
　For Each h In Target
　　If h <> "" Then
　　　Application.EnableEvents = False
　　　res = Application.VLookup(h.Value, Worksheets("マクロリスト表").Range("D:E"), 2, False)
　　　if not iserror(res) then h = res
　　　Application.EnableEvents = True
　　End If
　Next
End Sub

ファイルメニューから終了してエクセルに戻る
決められた言葉を記入すると，対応する内容に書き換わる
それ以外を記入したときはそのまま放置になる。