excel2010打印时在某单元格内自动生成日期+三位的流水...-excel自动生成流水号,电子表格如何自动生成流水号

设置单元格格式

用VBA处理吧。

做一copy个按钮，程序如下百：

Sub G2编号打印后加一度_Click() 

    Number = [G2]    '首次打印前在G2先输入问8位日期+三位的答流水号 

    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _ 

        :=True 

    [G2] = Left(Number, 8) & Format(Right(Number, 3) + 1, "000") 

End Sub

B1输入百公式 =IF(A1="","",VALUE(LEFT(A1,5)&"000"&1))
B2输入公式 =IF(A2="","",IF(LEFT(A2,5)=LEFT(A1,5),B1+1,IF(LEFT(A2,5)<>LEFT(A1,5),VALUE(LEFT(A2,5)&"000"&1))))
将B2公式向下拖度

问题补充：A1列多行后的结果不版太理想权！
公式修改如下
B1=IF($A1="","",VALUE(LEFT($A1,5)&"000"&1))
B2=IF($A2="","",IF(LEFT($A2,5)=LEFT($A1,5),$B1+1,IF(LEFT($A2,5)<>LEFT($A1,5),VALUE(LEFT($A2,5)&"000"&1))))
将B2公式向下拖
选中B列的公式向右拖

流水号可以自动生成，但日期要用NOW()来自动生成 的话，每次打开都要变。

="S"&TEXT(INT(NOW()),"yymmdd")&TEXT(ROW(A1),"000")

试试这个