如何自动生成材料编码

yangwting

示意图

编号规则：
当A列物料分类为GRE封头时，那么在J列里自动生成   “B列”-D“G列”/“D列”-P“I列”
当A列物料分类为石墨块时，那么在J列里自动生成   “B列”-BLOC-“H列”-XTH

实际上A列有10几种情况，都需要根据A类的名称，在J列按照公司规定自动生成一个编码。请问应该如何实现？谢谢！
自动生成材料编码.rar (6.86 KB, 下载次数: 13)

2017-1-10 23:16 上传

点击文件名下载附件
自动生成材料编码

爱疯

第一步：用2列，记录这10几种情况，存放在另个工作表。
第二步：在图中这个表的j列，用vlookup来查找。

yangwting

爱疯 发表于 2017-1-10 23:35
第一步：用2列，记录这10几种情况，存放在另个工作表。
第二步：在图中这个表的j列，用vlookup来查找。

第一步怎么做,2列写什么数据？是一列写物料分类，一列写材料编码吗？如果是的话，那么这个表的数据只是唯一的。不能适用于不同的尺寸。
比如GRE封头，不同尺寸，材料编码不一样的。

爱疯

需要先知道把这10几种情况是怎样的？像1楼描述那2种一样的来描述。

grf1973

可以自定义函数，把所有规则写到函数里。

1. Function js(rg As Range)
   
2.     i = rg.Row
   
3.     Select Case rg.Value
   
4.         Case Is = "GRE封头"
   
5.             js = Cells(i, "B") & "-D" & Cells(i, "G") & "/" & Cells(i, "D") & "-P" & Cells(i, "I")
   
6.         Case Is = "石墨块"
   
7.             js = Cells(i, "B") & "-BLOC-" & Cells(i, "H") & "-XTH"
   
8.         'Case Is ="......"     请自行添加规则
   
9.     End Select
   
10. End Function
    

复制代码

grf1973

也可以用附表分情况写出公式，比如
GRE封头的公式为        =indirect("B"&row())&"-D"&indirect("G"&row())&"/"&indirect("D"&row())&"-P"&indirect("I"&row())
然后通过vlookup引用公式，复制公式，粘贴数值即可。

yangwting

grf1973 发表于 2017-1-11 14:17
也可以用附表分情况写出公式，比如
GRE封头的公式为        =indirect("B"&row())&"-D"&indirect("G"&row())&"/"& ...

非常感谢，方法很好，谢谢！！！

laoau138

grf1973 发表于 2017-1-11 14:15
可以自定义函数，把所有规则写到函数里。

VBA不用A列辅助编号改写逆顺   行数小于60先逆行到1   再从60 59逆下去


http://www.excelpx.com/thread-427134-1-1.html