想实现的功能:
录入时,填写产品代码,A、C两列自动从产品库中查找,得到相应的产品名和单位。填入同行的相应单元格,如果找不到,提示请输入正确的产品代码。
录入表中A、B、C三列:
产品名 产品代码 计量单位
硅酸盐水泥熟料 3011010 吨
窑外分解窑水泥熟料 3011020 吨
水泥 3011030 吨
产品库中同样是A、B、C三列如同上表。
我是这样写的:哪里不对?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
irow = ActiveCell.Row
Range("A" & irow).FormulaR1C1 = "=IF(B" & irow & "="""","""",(LOOKUP(B" & irow & ",产品库!B$" & irow & ":B$476,产品库!A$" & irow & ":A$476)))"
End If
End Sub
麻烦你给看看好么?
追答我建议你,直接写公式,别整宏,
在公式里建议用VLOOKUP吧,