第2个回答 2019-10-17
打开excel,按下alt+f11.出现代码编辑模式。
写上下面的代码即可。
注意:把对应的
case
is
=“1”和后面的“aa”,换成你需要的物品id和物品名称。
private
sub
worksheet_change(byval
target
as
range)
on
error
goto
err:
a
=
target.value
select
case
a
case
is
=
"1"
target.value
=
"aa"
case
is
=
"2"
target.value
=
"bb"
end
select
exit
sub
err:
end
sub