1樓：匿名使用者
首先說明
本例演示工作表名為sheet2，如有需要修改vsheetname的值
**如下
private sub workbook_beforeprint(cancel as boolean)
'設定儲存資料的工作表名稱，本例為sheet2
vsheetname = "sheet2"
sheets(vsheetname).select
if range("b1") = "" then
'當初始資料都為空時，初始化資料
range("b1") = format(now(), "yyyy")
range("b1") = format(now(), "yyyy") & format(1, "000")
else
'當儲存的年份和當前年份不相同時，儲存年份，並初始化編號為001
if val(left(range("b1"), 4)) <> val(format(now(), "yyyy")) then
range("b1") = format(now(), "yyyy") & format(1, "000")
else
'資料累積並儲存
range("b1") = format(now(), "yyyy") & format((right(range("b1"), 3) + 1), "000")
end if
end if
end sub
下面為執行的截圖
程式執行前截圖
一次列印時截圖
列印二次時截圖
修改年份後截圖
修改年份後列印時截圖
2樓：小刺蝟
不用vba就可以吧。
excel自動編號填充就可以了。
---20171214補充
vba**。呼叫一次列印**，流水號 ss=ss+1編碼="2017" & ss
2017這個也可以用變數控制。還可以控制ss的起止號碼範圍。
3樓：
把單元格格式設定為文字格式，輸入：2017001後下拉就行了
請教開獸藥店需要什麼手續，你好！請教開性保健品店需要辦營業執照嗎？
知識青年 先到當地縣畜牧局獸藥監察所辦理 獸藥經營許可證 再持 獸藥經營許可證 到當地工商部門申領營業執照即可。一 申請條件 1 與所經營的獸藥相適應的獸藥技術人員 2 與所經營的獸藥相適應的營業場所 裝置 倉庫設施 3 與所經營的獸藥相適應的質量管理機構或者人員 4 獸藥經營質量管理規範規定的其他...
你好請教一下如何將proedestp格式的檔案轉換
你好！由於時間的關係我就簡單回答一下 stp檔案不能直接轉換為cad二維三維圖，可以藉助三維proe軟體轉化。先將檔案儲存為.prt檔案格式 相信這個會 便於繪圖可自己建一些基準輔助面或軸什麼的。還可以在 檢視管理 裡定製你要的檢視方向 新建proe繪 件 drw格式 檔案瀏覽到你的這個檔案，格式可...
你好請教一下戴爾MINI12 Inspiron1210 如何重灌系統呀
1 使用光碟安裝就先要在bios裡設定電腦從光碟啟動，就是在電腦啟動時候在自檢就不斷按del鍵 即進入介面提示preass del to enter setup 如果del那是其他鍵就按其他鍵,f2鍵。2 進入後，會顯示bios介面，選擇第二項 advanced bios features 即高階選...