Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

你正在寻找更好的Excel学习教程吗?Excel技巧80集+数据透视表+函数初中高全套+VBA80集,想学的这儿全都有
查看: 530|回复: 7

[已解决] 如何自动生成材料编码

[复制链接]
发表于 2017-1-10 23:20 | 显示全部楼层 |阅读模式
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程

示意图

示意图

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

实际上A列有10几种情况,都需要根据A类的名称,在J列按照公司规定自动生成一个编码。请问应该如何实现?谢谢!
自动生成材料编码.rar (6.86 KB, 下载次数: 10)
发表于 2017-1-10 23:35 来自手机 | 显示全部楼层
第一步:用2列,记录这10几种情况,存放在另个工作表。
第二步:在图中这个表的j列,用vlookup来查找。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-1-10 23:51 | 显示全部楼层
爱疯 发表于 2017-1-10 23:35
第一步:用2列,记录这10几种情况,存放在另个工作表。
第二步:在图中这个表的j列,用vlookup来查找。

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



回复 支持 反对

使用道具 举报

发表于 2017-1-11 10:26 | 显示全部楼层
需要先知道把这10几种情况是怎样的?像1楼描述那2种一样的来描述。
回复 支持 反对

使用道具 举报

发表于 2017-1-11 14:15 | 显示全部楼层
可以自定义函数,把所有规则写到函数里。
  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
复制代码
回复 支持 反对

使用道具 举报

发表于 2017-1-11 14:17 | 显示全部楼层
也可以用附表分情况写出公式,比如
GRE封头的公式为        =indirect("B"&row())&"-D"&indirect("G"&row())&"/"&indirect("D"&row())&"-P"&indirect("I"&row())
然后通过vlookup引用公式,复制公式,粘贴数值即可。

自动生成材料编码.rar

18.26 KB, 下载次数: 4

回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-1-11 23:11 | 显示全部楼层
grf1973 发表于 2017-1-11 14:17
也可以用附表分情况写出公式,比如
GRE封头的公式为        =indirect("B"&row())&"-D"&indirect("G"&row())&"/"& ...

非常感谢,方法很好,谢谢!!!
回复 支持 反对

使用道具 举报

发表于 2017-1-12 12:35 | 显示全部楼层
本帖最后由 laoau138 于 2017-1-12 17:30 编辑
grf1973 发表于 2017-1-11 14:15
可以自定义函数,把所有规则写到函数里。

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


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



回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2017-7-26 22:47 , Processed in 0.109200 second(s), 27 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表