エクセル VBA初心者です。

質問

Ｄ列のセル1から44までそれぞれのセルに入力規則で商品名（例：A,B,C,D等）ドロップダウンリストを
作成し、Aを選択したら自動的に同一セルで“1”、Ｂを選択したら“2”と変換させたいのですが、Work sheet changeを使って試してみたのですが、うまくいきません。。。

コードを教えていただけると助かります。

宜しくお願いします。

回答No.1

KURUMITO

Ｄ１セルからＤ４４セルでのドロップダウンリストのＡＢＣＤなどの入力が例えばＧ1セルから下方にあるとします。
そこでマクロですが次のようにすればよいでしょう。

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target <> "" And Target.Row >= 1 And Target.Row <= 44 And Target.Column = 4 Then
With Range("G1:G30")
Set x = .Find(Target.Value, LookIn:=xlValues)
If Not x Is Nothing Then
n = x.Row
Target.Value = n
End If
End With
End If
End Sub