excel表格中订单号自动生成?
大概意思是:我想做个表格例如订货单,并在单子上标明订单号,当我输入第一份订单打印后,再输入二份订单的时候,那个订单号可以自动更新,不需要我再手动去改!我想把这订单号编成2...
大概意思是:我想做个表格例如订货单,并在单子上标明订单号,当我输入第一份订单打印后,再输入二份订单的时候,那个订单号可以自动更新,不需要我再手动去改!我想把这订单号编成2009042701类似这种的,就是年月日+编号(这个编号是为了知道这是今天打的第几份单子)请各位比较懂的大侠们帮帮忙!谢谢啦!
展开
5个回答
展开全部
假设你在SHEET1的A1中显示订单编号
按下ALT+F11,双击左边的"THISWORKBOOK",复制下列代码退出.
另:在打印预览时,编号才会更新.
Private Sub Workbook_beforePrint(Cancel As Boolean)
Sheets("Sheet1").Cells(1, 1).Select
a = Selection.Value
If a = "" Or Left(a, 8) <> Format(Date, "yyyymmdd") Then
Selection.Value = Format(Date, "yyyymmdd") & Format(1, "00")
Else
Selection.Value = Val(a) + 1
End If
End Sub
按下ALT+F11,双击左边的"THISWORKBOOK",复制下列代码退出.
另:在打印预览时,编号才会更新.
Private Sub Workbook_beforePrint(Cancel As Boolean)
Sheets("Sheet1").Cells(1, 1).Select
a = Selection.Value
If a = "" Or Left(a, 8) <> Format(Date, "yyyymmdd") Then
Selection.Value = Format(Date, "yyyymmdd") & Format(1, "00")
Else
Selection.Value = Val(a) + 1
End If
End Sub
展开全部
第一个编号手工打,在A1,从第二个开始,在A2,写入这公式。。。
=IF(LEFT(A1,8)=(YEAR(TODAY())&REPT(0,2-LEN(MONTH(TODAY())))&MONTH(TODAY())&REPT(0,2-LEN(DAY(TODAY())))&DAY(TODAY())),(YEAR(TODAY())&REPT(0,2-LEN(MONTH(TODAY())))&MONTH(TODAY())&REPT(0,2-LEN(DAY(TODAY())))&DAY(TODAY()))&REPT(0,3-LEN(RIGHT(A1,3)+1))&(RIGHT(A1,3)+1),YEAR(TODAY())&REPT(0,2-LEN(MONTH(TODAY())))&MONTH(TODAY())&REPT(0,2-LEN(DAY(TODAY())))&DAY(TODAY())&"001")
=IF(LEFT(A1,8)=(YEAR(TODAY())&REPT(0,2-LEN(MONTH(TODAY())))&MONTH(TODAY())&REPT(0,2-LEN(DAY(TODAY())))&DAY(TODAY())),(YEAR(TODAY())&REPT(0,2-LEN(MONTH(TODAY())))&MONTH(TODAY())&REPT(0,2-LEN(DAY(TODAY())))&DAY(TODAY()))&REPT(0,3-LEN(RIGHT(A1,3)+1))&(RIGHT(A1,3)+1),YEAR(TODAY())&REPT(0,2-LEN(MONTH(TODAY())))&MONTH(TODAY())&REPT(0,2-LEN(DAY(TODAY())))&DAY(TODAY())&"001")
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
只能用宏来操作,打印的时候用宏打印,直接增加~
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在A12009042701
在A2=A1+1
向下拖
在A2=A1+1
向下拖
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
一般“订单号”类型的数据是以文本形式存储的,可能包含自定义前缀、日期、流水号、等等自定义类型的数据。把需要的数据用文本连接符&号连接起来就可以。
例如:
="XSD"&TODAY()&ROW(A1)
公式中"XSD"是自定义前缀,TODAY()是返回当前日期的函数,ROW(A1)是返回行号。
三个数据之间用文本连接符号&来连接起来的。
需要注意:
任何公式中的文本内容都需要用半角双引号括起来。
ROW()函数常用来返回流水号。
可以用TEXT函数来设定流水号的格式,比如流水号是3位,自动用零补齐,可用公式=TEXT(ROW(A1),"000")即可。
文本连接符号&常用来连接任何文本内容,也可以将两个公式的结果进行连接。
例如:
="XSD"&TODAY()&ROW(A1)
公式中"XSD"是自定义前缀,TODAY()是返回当前日期的函数,ROW(A1)是返回行号。
三个数据之间用文本连接符号&来连接起来的。
需要注意:
任何公式中的文本内容都需要用半角双引号括起来。
ROW()函数常用来返回流水号。
可以用TEXT函数来设定流水号的格式,比如流水号是3位,自动用零补齐,可用公式=TEXT(ROW(A1),"000")即可。
文本连接符号&常用来连接任何文本内容,也可以将两个公式的结果进行连接。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |