[[20061017114803]]　『１枚のシートで複数の枚数をﾌﾟﾘﾝﾄｱｳﾄするときに…』（みかん）　ページの最後に飛ぶ

『１枚のシートで複数の枚数をﾌﾟﾘﾝﾄｱｳﾄするときに…』（みかん）

教えてください！
１枚のシートでフォーマットを作ったのですが、右上に番号を連番でつけていきたいのです。
今のところ、100枚以上ﾌﾟﾘﾝﾄｱｳﾄしないといけないので、自動的にﾌﾟﾘﾝﾄｱｳﾄするごとに、連番をつけていきたいのですが、そのようなことは出来るのでしょうか？

教えてください！
エクセルのバーションは　Excel2003です。お願いします！！！

 すごい勢いなので圧倒されますが
 プリントアウトするたびにインクリメント！！
 だと思います。(VBAですが)
 一般操作では出来るかどうかわかりません。
 (Matta)

＞matta　さん
すいません…m(_ _)m
焦って、改行せず…威圧的でしたね…
やはり一般操作では無理でしょうか？

(VBAとは…ビジュアルベーシックのこと？ですか？）

みかん

 イエイエとんでもありません。
 VB=VBAではありませんが,エクセルで言うマクロです。
 >自動的にﾌﾟﾘﾝﾄｱｳﾄするごとに、連番をつけていきたいのですが
 と書かれていたので。
 プリントアウトするたびにインクリメント(数を+1)していけば連番になると思います。
 プリントアウトの所をマクロで作成すればと思っただけです。
 一般操作なら他の識者の方のレスをお待ち下さい。
 (Matta)

 sub test()
  dim i
   for i = 1 to cells(1,9)
     ActiveWindow.SelectedSheets.PrintOut
   next i
 end sub

 セルの　1row,9colum にプリントしたい頁数を入力して実行する場合の例ですが如何でしょ
 うか？    mr_mangoos

 申し訳ありません。上記では正しく動作しません。取り消させてください。　mr_mangoos

 sub test()
  dim i,j
   j=cells(1,9)
   for i = 1 to j
     cells(1,9)=i
     ActiveWindow.SelectedSheets.PrintOut
   next i
 end sub

 再びです
 セルの　1row,9colum にプリントしたい頁数を入力して実行する場合の例ですが如何でしょ
 うか？    mr_mangoos

 ひょっとして!
 ヘッダーの右に
  &P
 の事かな！？
 (Matta)

＞mr_mangoos　さん
…すいません…どこにこのプログラムを打ち込めば…
よいのでしょう…
プログラミングはさっぱりわからないんですm(_ _)m

Matta さんヘッダーの上に＆ｐは、ページが1枚だと、何枚ﾌﾟﾘﾝﾄｱｳﾄしても
『1』しか表記されないんです…
これが連番になってくれるとよいのですが…

みかん

 マクロで出来ますが
 その前に印刷するデータをどの様にして印刷用のシートに持ってきてますか？
 範囲を選択してコピー貼り付けとか,マクロで自動でとか
 100枚位あればこの作業も大変だと思うのですが。
 (Matta)

 EXCELで　ツール（左クリック）→マクロ→VISUAL BASIC EDITR（左）→VBAプロジェクト
 （左）でVBAの画面が出ます。
 そしたら、挿入（左）→標準モジュール（左）でコーディング用の白いパネルが表れますので
 そこにコピーして貼付けて下さい。
 実行は Alt+F8 でいいと思います。
 選択画面が出たら、testを選択すればいいでしょう。
 プログラムはテストしていませんので、2ページぐらいを指定して実行してみてください。
 mr_mangoos

了解しました。
やってみます。
教えて頂いてありがとうございました！！！

みかん

もしよかったらこの方法を使いたいと思うのですが
いまいち素人で使い方がよく分かりません
簡単に押して頂くことは出来ないでしょうか？

 参考になると思います。

 作成したマクロをボタンに登録してみよう！
http://allabout.co.jp/computer/msexcel/closeup/CU20060525A/index2.htm

 ボタンにマクロを登録しよう（その2）
http://allabout.co.jp/computer/msexcel/closeup/CU20061225A/index.htm
 (MARBIN)

 inputboxで入力 右ヘッダーに シート名  数 です。
（kohe)

 Option Explicit
 Sub mikan()
 Dim i As Long
 Dim mysu As String
 mysu = InputBox("印刷枚数を入力して OK で印刷開始", , 1)
 On Error Resume Next
 If mysu = "" Then Exit Sub
   For i = 1 To mysu
   If Err.Number = 13 Then Exit Sub
     With ActiveSheet
       .PageSetup.RightHeader = "&A  " & i & "/" & mysu
       .PrintOut
     End With
   Next
 End Sub

 10：58 ちょっと修正＾＾；

コメント返信：

[ 一覧(最新更新順) ]

[[20061017114803]] 『１枚のシートで複数の枚数をﾌﾟﾘﾝﾄｱｳﾄするときに…』（みかん） ページの最後に飛ぶ

[[20061017114803]]　『１枚のシートで複数の枚数をﾌﾟﾘﾝﾄｱｳﾄするときに…』（みかん）　ページの最後に飛ぶ