我们在商品销售等日常记账时常常使用日期+数字来作流水号。比如我们在记录零售产品时,每一单都需要一个特别的号码来作为识别,也就是流水号了,如:20170301-12017年3月1日第一笔20170301-22017年3月1日第一笔……若每次均需要手动输入,就容易出错且带来更大的工作量,我们可以设置一些简单的公式来实现。
工具/原料
excel2007
方法/步骤1:公式法
1、先设计好你的表格表头
2、在B2单元格输入公式:=IF(A2="","&quo隋茚粟胫t;,TEXT(A2,"yyyymmdd&qu泠贾高框ot;)&"-1")在B3单元格输入公式:=IF(A3="","",TEXT(A3,"yyyymmdd")&"-"&RIGHT(B2,1)+1)
3、选中B3单元格,点右下角黑色方块往下拖动填充公式到其他下行,比如填充到第10行B10
4、此时,当你在A列输入日期时,B列就会自动合并成流水号,且流水号每次均呈递增状态,若需要更多的行,则再次拖动B列填充公式即可注意:B2单元格的函数公式只适用于B2使用,B列B3以下的单元格均参照B3函数公式往下填充
方法/步骤2:代码法
1、设置好表格如图:
2、Alt+F11打开Visualba衡痕贤伎sic编辑器输入代码:---------------------PrivateSubWorks茑霁酌绡heet_Change(ByValTargetAsRange)y=Range("A65536").End(xlUp).Row+1IfRange("B2").Value=""ThenRange("B2").FormulaR1C1="=IF(RC[-1]="""","""",TEXT(RC[-1],""yyyymmdd"")&""-1"")"ElseRange("B"&y).FormulaR1C1="=IF(RC[-1]="""","""",TEXT(RC[-1],""yyyymmdd"")&""-""&RIGHT(R[-1]C,1)+1)"EndIfEndSub------------------
3、关闭VisualBasic,回到表格此时,当你在A列输入日期时,B列就会自动合并成流水号,且流水号每次均呈递增状态
4、完成!