[[20090105233222]]　『連続番号の印字』（masakazu）　ページの最後に飛ぶ

『連続番号の印字』（masakazu）
６０歳を過ぎてパソコンを初めました。エクセルで文章を書きました。２００枚程印字しますが１枚ごとに連続番号を任意のセルに表示、印字させたいのです。ご教授願います

エクセル２００３　ウィンドウズXPを使用しておりますよろしくお願い申し上げます

 状況がよくわからないです。
 たとえば、「任意のセル」がA1セルだとした場合

 Ａ・
 一枚におさめられた文章を200枚印刷する際、
 一枚印刷するごとにA1セルの値を変更しながら印刷したい

 Ｂ．
 おおよその内容の文章（テンプレート）を作成しており
 内容の一部を変更しながら200枚印刷するが
 その際、A1セルの値を変えるのは面倒なので
 ここは自動化したい

 Ｃ．
 その他

 どういったことですかね？

 とりあえず、Ａの場合なら
 こんな感じのマクロで印刷をするのはどうでしょう。

 '------
Sub 印刷()
Dim i As Long, pn
    If MsgBox("A1セルの値を初期化しますか？", vbYesNo) = vbYes Then
        Range("A1").Value = 1
    End If
    pn = InputBox("何枚印刷しますか？")
    If IsNumeric(pn) Then
        For i = 1 To pn
            ActiveSheet.PrintOut
            Range("A1").Value = Range("A1").Value + 1
        Next i
    Else
        MsgBox "不正な値が入力されました。"
    End If
End Sub
 '------

 (HANA)

コメント返信：

[ 一覧(最新更新順) ]

[[20090105233222]] 『連続番号の印字』（masakazu） ページの最後に飛ぶ

[[20090105233222]]　『連続番号の印字』（masakazu）　ページの最後に飛ぶ