首頁>Club>

30 excel收據列印，下次列印時編號依次遞增？

53
回覆列表
  • 1 # 使用者8616219450500

    這個要用vba實現，假設編號在第一個工作表的A1單元格，在thisworkbook程式碼視窗中輸入以下程式碼：

    PrivateSubWorkbook_BeforePrint(CancelAsBoolean)

    DimcurentNumAsInteger

    curentNum=Right(Worksheets(1).Cells(1,1),4)

    curentNum=curentNum+1

    Worksheets(1).Cells(1,1)="LY"+Format(curentNum,"0000")

    ThisWorkbook.Save

    EndSub

  • 2 # 家庭是我的家

    第一步，在excel裡，按ALT+F11，會彈出一個視窗第二步，在彈出的窗口裡選 選單中的插入，模組第三步，複製貼上下面Sub dayin() dim n as integer n=inputbox("列印次數") *1 for i=1 to n activesheet.PrintOut Copies:=1 [H2]= "NO:" & application.text(i,"0000000000")"這裡是H2，改成自己需要的單元格，後面是數字格式，根據需要修改 nextEnd Sub程式碼，然後關閉視窗第四步，回到excel中》宏》dayin》確定，輸入列印份數

相關內容

  • ∧ 中秋節和大豐收的關聯？
  • ∨ 新車是多長時間下戶？10個月了沒有下戶，還可以上牌嗎？