Excel請教怎么實現EXCEL在打印時自動生成單據編號？按ALT F11復制打印前，按privatesub工作簿（取消為布爾值）n=Val（替換（[A1]，“Doc No.”，“）！[A1]=“Do

Excel請教怎么實現EXCEL在打印時自動生成單據編號？

按ALT F11復制

打印前，按privatesub工作簿（取消為布爾值）

n=Val（替換（[A1]，“Doc No.”，“）！[A1]=“Doc No.”&n 1

結束sub

按ALT F11，選擇左側的此工作簿，在右側窗口中粘貼以下代碼，并將“Doc No.：ry-20100000”單元格放入代碼中：設置a=Sheets（“SHEET2”）。[A1]打印前，會詢問是否更新文件編號，回答“是”更新編號，然后打開“打印”對話框?；卮稹胺瘛辈粫绿柎a，但也會打開“打印”對話框。回答“取消”將取消打印。打印前的專用子工作簿（取消為布爾值）設置a=sheets（“SHEET2”）。[A1]confirm=msgbox（“自動更新文檔編號？“，vbyesnocancel）如果confirm=2則cancel=true：如果confirm=6則退出sub a.value=”文檔號：ry-201“&工作表function.Text（right（a.value，5）1，“00000”）end IfEnd sub

怎樣在EXCEL單元格中，自動生成單據編號？

以Officeword 2013為例，有幾種方法：1。將光標放在倒數第二頁的末尾。2按Delete鍵刪除，或按Ctrl鍵刪除。方法二：1、最新穎的方法：將光標移到最后一頁的開頭，不停地按刪除鍵。方法三：1。在菜單欄中找到“頁面布局”選項卡并選擇“邊距”功能。2選擇默認邊距或自定義邊距。空白頁也可以通過調整頁邊距的大小來刪除。方法四：1。將光標移到最后一頁，在文檔中單擊鼠標右鍵，然后選擇“段落”以打開段落設置。2調整行間距，設置行間距數據（根據實際情況），并通過調整行間距刪除空白頁。方法五：1。選中空白頁的換行符，右擊選擇“字體功能”。2打開“字體”功能，檢查“隱藏”效果。