怎样在EXCEL单元格中，自动生成单据编号？-excel单元格号,excel随机选取多个单元格

放在“ThisWorkbook”的代码窗口中即可。

假如:"ZZYH"固定不zd变, B列为日期,B1为"2007-12-11",C列为编号,
在C1中输入专公式:
=A1&TEXT(B1,"yyyymmdd")&TEXT(COUNTIF(B$1:B1,B1),"000")
下拉填属充复制公式即可.

'注意：以下zhidao代码版必须放在“ThisWorkbook”的代码窗口中

Private Sub Workbook_BeforePrint(Cancel As Boolean)
confirm = MsgBox("自动更新权单据编号？", vbYesNoCancel)
If confirm = 2 Then Cancel = True: Exit Sub
If confirm= 6 Then
With Sheets("Sheet1").Range("G2")
.Value = Format(Date, "暂定Ayyyymmdd") & Format(Val(Right(.Value, 5)) + 1, "00000")
End With
End If
End Sub