☰

印刷するたびに数字を変更する

tag-icon • tag-icon microsoft-excel printing
印刷するたびに数字を変更する

請求書として使用する Excel シートがあります。

100 ページを印刷し、請求書番号を 1 から 100 に変更して、各用紙に異なる請求書番号が付くようにしたいと考えています。

これどうやってするの？

答え1

そのためにはマクロが必要です。次のマクロを見つけて、いくつか変更を加えました。正しく動作するかどうか試してみてください。

Sub PrintCopies_ActiveSheet()

Dim CopiesCount As Long
Dim copynumber As Long

CopiesCount = Application.InputBox("How many copies do you want?", Type:=1)
'Now the program wants you to input how many pages you like to print.
'You can input 100 here.

For copynumber = 1 To CopiesCount
With ActiveSheet
   .Range("E1").Value = copynumber 'I assume your invoice number is in cell E1.
   .PrintOut 'Print the sheet
End With
Next copynumber
End Sub

答え2

これを実行するにはマクロを使用します。簡単な組み込みの方法がないように思われます。マクロの概要は非常に単純です。次のようなものです。

  1. コピー枚数とプリンタ名の入力を求める
  2. 請求書番号セルを0に設定します
  3. コピー回数のループ
    1. 請求書のセル番号を増やす
    2. ドキュメントをプリンタ名に印刷する

編集

このページWord の例があるので、これを Excel に適応させるだけです。 このページExcelの大まかな例があります

関連情報