⑴ excel 宏 我自己做了個銷售單列印,希望能自動生成單號, 單號格式為SXH+當日日期+三位數
假設A1: SXH
B1: TODAY()
假設編碼在C1單元格,使用下面代碼可實現列印和自動編碼遞增。
按ALT+F11打開VBA窗口,插入一個模塊,把下面代碼復制進去。
回到excel窗口,按「視圖-工具欄」,點「窗體」,調出「窗體」工具欄,在上面選一個按鈕,添加到表格上,並指定宏為「列印」。
使用時,每點擊一下添加的按鈕,就會列印一次,並使編號自動加一。
Sub 列印()
ActiveWindow.SelectedSheets.PrintOut
s = Val(Range("C1"))
s = s + 1
Range("C1") = "'" & Right("00" & s, 3)
End Sub
調整一下表格 是A1 B1 C1看起來像個整體就好了