Question

Excel或者WPS表格如何用VB编写小程序或编写宏来实现输一个代码，后面自动生成相对应的名称、规格

Answer 1

利用workwheet的change方法
Private Sub Worksheet_Change(ByVal Target As Range)
'''' 代码中充分利用Target这个参数和这个参数的VALUE、ROW、COLOUME等属性,用于判断正在被编辑的单元格的位置
'''' 一般还会用到application.WorksheetFunction这个对象，对象包括的成员就是EXCEL中的公式
''''因为你没有提供具体数据，我也不好提供具体代码了
end sub

追问

我现在需要做的物料代码量很多，大概一千多个，我希望做个小程序来实现，只要A1输入物料代码，B1、C1就能自动显示这个代码的名称和型号。而且希望在新建的表格中都能实现这种效果
不知有没什么效的办法？

追答

用VLOOKUP函数也可以实现。不需要代码编程
假如表1 sheet1是基础数据表
A是物料代码 B是物料名称 C是物料型号规格
表2 sheet2中
B2 =VLOOKUP($A2,Sheet1!$A:$C,COLUMN(B1),FALSE)
然后将这公式往右，往下拖拉即可

追问

我试了下，还是没弄明白，你能稍微做点说明吗？

追答

将公式优化了一下

B2 =IF(ISERROR(VLOOKUP($A2,Sheet1!$A:$C,COLUMN(B1),FALSE)),"",VLOOKUP($A2,Sheet1!$A:$C,COLUMN(B1),FALSE))

这样不会出现乱码有碍观感

 

附件有样表

追问

我需要将图2里代码所对应的型号，在图1里输入代码就能自动生产型号（图1和图2的物料代码是一致）

追答

不给工作表的名称，我如何给你写代码？
如果我输的表名不对，你复制进去也没有用

追问

这是我所有要做的表格，我需要实现红色标记文档里物料代码在其他文档里输入就能自动出现名称及规格

【如果方便的话，你加下我QQ418928768，那样可以说得详细些。】