PrivateSubWorkbook_BeforePrint(CancelAsBoolean)

Sheets("Sheet1").Range("A2")=Sheets("Sheet1").Range("A2")+1

EndSub

上面這個事件好像是一個列印事件,你在EXCEL編輯中是不會執行的

至於你所說的打一次編號就自動加一,這個所謂的打一次編號是什麼意思?

至於想讓指定的單元格加1

Sheets("Sheet1").Range("A2")=Sheets("Sheet1").Range("A2")+1

以上這行程式碼倒是沒錯

至於你所說的提示缺少EndSub,這肯定是因為某處程式碼中:

有起始事件"SUB.....",而沒有"EndSub"

每個SUB對應一個EndSub,你仔細檢視一下就知道了.

假設編碼在G1單元格，使用下面程式碼可實現列印和自動編碼遞增。按ALT+F11開啟VBA視窗，插入一個模組，把下面程式碼複製進去。回到excel視窗，按“檢視－工具欄”，點“窗體”，調出“窗體”工具欄，在上面選一個按鈕，新增到表格上，並指定宏為“列印”。使用時，每點選一下新增的按鈕，就會列印一次，並使編號自動加一。Sub 列印()ActiveWindow.SelectedSheets.PrintOuts = Val(Range("g1"))s = s + 1Range("g1") = """ & Right("0000" & s, 5)End Sub如有疑問，可以H我。