エクセル VBA初心者です。
関数でのVLOOKUPをVBAで作りたいのですが、上手くいきません。
あらかじめ、Sheet2の1から300行までに
A列 / B列
商品名 / 商品コード
が入力されています。(名前の定義=商品コード)
Sheet1にユーザーフォームを利用して、データを書き込んだ後、
B列に商品名が書き込まれると、
A列に商品コードが表示されるようにしたいと考えています。
A列に
=IF(B2="","",VLOOKUP(B2,商品コード,2,FALSE))
と入力していたのですが、
VBAでIfを使って出来ないかと考えてみたのですが、
上手くいきませんでした。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sRow As Long
Dim sColumn As Long
sRow = ActiveCell.Row
sColumn = ActiveCell.Column
If Cells(sRow, 2).Value = True Then
Cells(sRow, 1).Value = WorksheetFunction.VLookup(Cells(sRow2).Value, Worksheets("Sheet2").Range("A1:B300"), 2, False)
ElseIf Cells(sRow, 2).Value = " " Then
Cells(sRow, 1).Value = " "
End If
End Sub
ご教授いただけないでしょうか？
エクセル2003
WindowsXP
↧