单据编号自动生成公式
@牧有1816：目前要做一个表格,表格中的单据编号希望能用Excel自动生成(用公式或者VBA) 编号的格式如下: “XT”+日
佟忠15261862924…… 用公式: (1)如已有日期值数据(如B列):=＂XT＂&text(B1,＂yyyymmdd＂) (2)如无日期值:=＂XT＂&text(date(年,月,日),＂yyyymmdd＂)
@牧有1816：EXCEL函数公式,自动生产序号 -
佟忠15261862924…… 比较麻烦.假设A列是真正的“日期”,用两个辅助列. 右键点DE列,插入,在新的D2、E2各输入一个1,在D3、E3分别输入公式 =IF(B3=B2,D2+1,1) =IF(TEXT(A3,＂ym＂)=TEXT(A2,＂ym＂),IF(OR(D3=1,MOD(D3,6)=1),E2+1,E2),1) 在C2输入 =TEXT(A2,＂yymm＂)&TEXT(E2,＂00000＂) 公式都向下复制,可以隐藏DE列.
@牧有1816：在excel表格中如何能自动生成编号 -
佟忠15261862924…… 在Excel中单元格自动显示序号方法 1、如果在B1输入姓名,要A1自动显示的序号是1时,在A1输入公式:=IF(B1=＂＂,＂＂,ROW(B1));如果要A1自动显示的序号是1001,则在A1输入公式:=IF(B1=＂＂,＂＂,ROW(B1)+1000). 如果在B2输入...
@牧有1816：用Excel自动根据日期+三位序号生成单据编号 -
佟忠15261862924…… 设置单元格格式
@牧有1816：Excel 让表格根据日期自动生成打印序号 -
佟忠15261862924…… 由日期生成单号这个可以通过截取日期字符来实在,但如果单号是做成公式的话,那日期改变,单号肯定也会改变.除非你每一单都把单号转一下.
@牧有1816：怎样在Excel里自动生成系列连续单据号? -
佟忠15261862924…… Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim i As Integer i = CInt(Range(＂A1＂).Text) + 1 Dim s As String s = CStr(i) Range(＂A1＂).Value = s ActiveWorkbook.Save Application.ScreenUpdating = True End Sub 直接copy到thisworkbook,是打印触发的,,A1数字序列 比较一下
@牧有1816：excel自动生成编号 -
佟忠15261862924…… 函数法: 在=ROM()公式所在行的行号 在A2单元格中输入:=ROM(A1)回车,即A2单元格显示数字:1. 然后鼠标放在A2单元格右下角会出现一个黑色十字标志,同样双击光标,序号自动生成.
@牧有1816：excel怎么自动生成编号 -
佟忠15261862924…… 需要用VBA解决 假如编号在A1,ALT+F11打开VB编辑器,双击左边窗体中的“ThisWorkbook”,把以下代码粘贴进去,保存退出即可.注意宏的安全性需要调到最低,在“工具”—“宏”里面 Private Sub Workbook_Open() Application.ScreenUpdating = False Application.DisplayAlerts = False [A1] = [A1] + 1 ActiveWorkbook.Save Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
@牧有1816：怎样在excel中自动生成序号 -
佟忠15261862924…… 这里需要注意两点: 1、第一行不用公式,用手输入一次,第二行用公式; 2、公式自动生成有用数据后,随时拷贝序列号,然后选择性粘贴-选数值.这样生成的数据就因拷贝后由公式转为数值了,也就不会随日期或B列数据的变动而自动改变了.这点最关键. 第二行公式:A2=IF(B2=＂＂,＂＂,IF(MID(A1,1,8)=YEAR(NOW())&MONTH(NOW())&DAY(NOW()),YEAR(NOW())&MONTH(NOW())&DAY(NOW())&TEXT(MID(A1,9,4)+1,＂0000＂),YEAR(NOW())&MONTH(NOW())&DAY(NOW())&＂0001＂))
@牧有1816：用excel如何在一个单元格上设置一个编码生成的公式 -
佟忠15261862924…… 这样就解决了. 以上是每个号两行的做法,只输入3行.再拖下来.就成第1个图了.成功后请采纳,谢谢!
佟忠15261862924…… 用公式: (1)如已有日期值数据(如B列):=＂XT＂&text(B1,＂yyyymmdd＂) (2)如无日期值:=＂XT＂&text(date(年,月,日),＂yyyymmdd＂)
@牧有1816：EXCEL函数公式,自动生产序号 -
佟忠15261862924…… 比较麻烦.假设A列是真正的“日期”,用两个辅助列. 右键点DE列,插入,在新的D2、E2各输入一个1,在D3、E3分别输入公式 =IF(B3=B2,D2+1,1) =IF(TEXT(A3,＂ym＂)=TEXT(A2,＂ym＂),IF(OR(D3=1,MOD(D3,6)=1),E2+1,E2),1) 在C2输入 =TEXT(A2,＂yymm＂)&TEXT(E2,＂00000＂) 公式都向下复制,可以隐藏DE列.
@牧有1816：在excel表格中如何能自动生成编号 -
佟忠15261862924…… 在Excel中单元格自动显示序号方法 1、如果在B1输入姓名,要A1自动显示的序号是1时,在A1输入公式:=IF(B1=＂＂,＂＂,ROW(B1));如果要A1自动显示的序号是1001,则在A1输入公式:=IF(B1=＂＂,＂＂,ROW(B1)+1000). 如果在B2输入...
@牧有1816：用Excel自动根据日期+三位序号生成单据编号 -
佟忠15261862924…… 设置单元格格式
@牧有1816：Excel 让表格根据日期自动生成打印序号 -
佟忠15261862924…… 由日期生成单号这个可以通过截取日期字符来实在,但如果单号是做成公式的话,那日期改变,单号肯定也会改变.除非你每一单都把单号转一下.
@牧有1816：怎样在Excel里自动生成系列连续单据号? -
佟忠15261862924…… Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim i As Integer i = CInt(Range(＂A1＂).Text) + 1 Dim s As String s = CStr(i) Range(＂A1＂).Value = s ActiveWorkbook.Save Application.ScreenUpdating = True End Sub 直接copy到thisworkbook,是打印触发的,,A1数字序列 比较一下
@牧有1816：excel自动生成编号 -
佟忠15261862924…… 函数法: 在=ROM()公式所在行的行号 在A2单元格中输入:=ROM(A1)回车,即A2单元格显示数字:1. 然后鼠标放在A2单元格右下角会出现一个黑色十字标志,同样双击光标,序号自动生成.
@牧有1816：excel怎么自动生成编号 -
佟忠15261862924…… 需要用VBA解决 假如编号在A1,ALT+F11打开VB编辑器,双击左边窗体中的“ThisWorkbook”,把以下代码粘贴进去,保存退出即可.注意宏的安全性需要调到最低,在“工具”—“宏”里面 Private Sub Workbook_Open() Application.ScreenUpdating = False Application.DisplayAlerts = False [A1] = [A1] + 1 ActiveWorkbook.Save Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
@牧有1816：怎样在excel中自动生成序号 -
佟忠15261862924…… 这里需要注意两点: 1、第一行不用公式,用手输入一次,第二行用公式; 2、公式自动生成有用数据后,随时拷贝序列号,然后选择性粘贴-选数值.这样生成的数据就因拷贝后由公式转为数值了,也就不会随日期或B列数据的变动而自动改变了.这点最关键. 第二行公式:A2=IF(B2=＂＂,＂＂,IF(MID(A1,1,8)=YEAR(NOW())&MONTH(NOW())&DAY(NOW()),YEAR(NOW())&MONTH(NOW())&DAY(NOW())&TEXT(MID(A1,9,4)+1,＂0000＂),YEAR(NOW())&MONTH(NOW())&DAY(NOW())&＂0001＂))
@牧有1816：用excel如何在一个单元格上设置一个编码生成的公式 -
佟忠15261862924…… 这样就解决了. 以上是每个号两行的做法,只输入3行.再拖下来.就成第1个图了.成功后请采纳,谢谢!
