[已解决]各位大神帮忙Excel表格的单号每次打印后能自动生成下一个单号

111223231

zjdh 发表于 2014-12-10 10:29
记住！用表中的“PRINT"按钮打印！

大神，能教我方法吗，怎样加模块，在哪个里面应该放哪个宏，谢谢！！！！

zjdh

thisworkbook里放
Private Sub Workbook_Open()
   Sheets("Material Request").Range("Q8") = Format(Date, "YYYYMMDD") & "-" & Format(Split(Range("Q8"), "-")(1), "000")
End Sub

任意模块里放
Sub TEST()
  ActiveSheet.PrintOut
  Range("Q8") = Format(Date, "YYYYMMDD") & "-" & Format(Split(Range("Q8"), "-")(1) + 1, "000")
End Sub