• ベストアンサー

マクロで印刷時に連続番号を付けたい

エクセル　2003　で　　印刷時に　例えば 同じ文章で　　A10 のセル位置に　　印刷するときに マクロで1から　Nまで　の整理番号を順番に付けて印刷したいのですが ご指導ねがいます 1回目の印刷は　1 2回目の印刷は　2

質問者が選んだベストアンサー

  • ベストアンサー
  • KURUMITO
  • ベストアンサー率42% (1835/4283)
回答No.1

次のようなコードにすればよいでしょう。 Sub ページ番号付印刷() Dim mypage As Integer mypage = InputBox(Prompt:="最終となるページ番号を入力してください。") For i = 1 To mypage Range("A10") = i ActiveSheet.PrintOut Next End Sub

  1. カテゴリ
  2. [技術者向] コンピューター
  3. データベース
  4. その他(データベース)

関連するQ&A

  • マクロの連続印刷

    エクセルのシート1に情報が登録してあり、A列の番号をシート2のセルA1に入力すると情報が入る仕様のブイルックを組んでいます。 これを連続してA1,A2,A3と連続印刷したいのですがどのようなマクロを組めばよいのでしょうか？

  • ちょっと特殊な連続印刷のマクロを教えてください

    次のような名簿があるとします。 A列　　　 B列　　　　 通し番号　名前　　　　 １　　　　阿部 ２　　　　佐々木 空白　　　空白 ４　　　　木村 ５　　　　田辺 空白　　　空白 空白　　　空白 ８　　　　三浦 通し番号が入力されていない場合は、名前も表示されない様になっています。 セルC1に通し番号を順々に表示（マクロで指定） セルC2にその番号の名前を参照表示←個人票として印刷 番号があれば（名前が表示されれば）印刷 としたいです。 個人票を連続印刷したいのですが、空白を飛ばして、 番号が入っている人だけを印刷、というマクロがどうしても組めません。 一つ一つ、番号が入っていれば名前を印刷のようなマクロを延々と 組むことは出来るのですが、名簿が長大なのでそれは避けたいです。 よろしくお願いします。

  • EXCELで作成した案内状を名前を入れて連続印刷したいのです。

    ＥＸＣＥＬで作成した案内状があります。--------シート1 Ａ欄に一連番号、Ｂ欄に名簿（名前）、 Ｃ欄に各自に伝えたい文章--シート2 （シート1）案内状には、1つのセルにＶＬＯＯＫＵＰ関数で一連番号の1.2.3.4.-----100を、入れていくと「名前」と「伝えたい文章」が次々に別セルでＡさん、Ｂさん、Ｃさんと入れ変わっていきます。印刷もその都度、100回やらないといけません。（伝えたい文章も変わる） どうか、マクロでボタン1回押すだけで「1」～「100」まで自動で変わり、連続印刷できないでしょうか？　良い方法があればマクロじゃなくて、他の方法でも構いません。

  • 印刷マクロを教えてください。

    マクロは初心者です。よろしくお願いいたします。 エクセルで、列ＡからＨまでにデータを入力しています。 また、Ａの1から、Ａの３までは行タイトルとしています。 列Ａ４から下の行にＮｏ１～の順番号をいれていますが、 例えばNo20からN045までのデータ分だけを印刷したい時など、指定したNoの範囲のデータだけを印刷出来るようなマクロがあれば教えてください。 印刷Noの指定は、行番号でもかまいません。 これまでの質問で印刷関係をみてみましたが、多すぎてわかりませんでした。どなたかよろしくお願いいたします。

  • Excelで連続印刷をするマクロ

    Excelでデータベース的な使い方をしています。 「データ」シートにたくさんのデータがあり， 「レポート」シートのA1セルに入力した数字に該当するデータをVLOOKUP関数で読み込んでいます。 それを連続印刷するときに， 現在は For n = 1 To 135 Range("A1").Select ActiveCell.FormulaR1C1 = n ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next n End Sub というマクロで実行させています。 （ちなみにマクロの知識がほとんどなく 「新しいマクロの記録」を利用して作ったため，ほとんど意味は分かっていませんが・・・） このマクロでも印刷できるのですが， このままだとデータが 1 ～ 135に固定されてしまいますよね。 実際はデータ数が変動するので，そのたびにマクロの数字を変えています。 そこで考えているのが 新たに「設定」シートを作成して そこのｉとｊのセルに数字を入力することで，自動的に マクロが　n = （ｉに入力した数字） To （ｊに入力した数字） となるようにした方が便利だと考えています。 あまりマクロについての知識がないくせに ほんのちょっとの工夫でできるような気がして・・・ あれこれ試してみたけどできません。 できれば今のマクロを根本的に変えるのではなくて 少しの変更とか追加とかでできるようにしたいのですが可能でしょうか？ ぜひ　教えてください。よろしくお願いします。

  • 連続番号を振るマクロ

    マクロ初心者です。 以下のようにA列に番号を振るマクロを教えてください。 　　A　　　B 1 001 ああああ 2 002 ああああ 3 003 ああああ 4 011 いいいい 5 012 いいいい 6 021 うううう B列のセル内容が変わると10の位が1つ増え、次に内容が変わるまでカウントします。 よろしくおねがいします。

  • 連続印刷のマクロをおしえてください。

    お世話になります。 Excel初心者でマクロ経験は0です。 似たような質問はあるのですが、どこから手を付けていいのかわからず、また時間も無く新たに質問させていただきます。 表1　住所録 A列　通し番号がふってあります B列　送付先 C列　郵便番号 ．．． というような感じです。 表2 Vlookup関数でB2に表1のA列の値をコピペするとB3、B4、B5等に表1の値が表示されます。 大量に印刷するので、表2　B2に表1のA列の値を自動で入力できるようにしたいです。 A1からA100、A101からA200というように範囲指定できれば有難いです。 マクロはどこのボタンを押して始める というところからご教示をいただけましたら有難いです。 宜しくお願いいたします。

  • エクセルマクロ　印刷「１０５～１１０」などの自動連続印刷の仕方

    エクセルです。今、Vlookup関数で別のシートから呼び出して表示しています。例えば、シート１のＡ４に「１０１」と入力するとシート２を参照してデータをもってくるようになってます。 そして、１０２、１０３～と打つことによって変化していきます。 また、 １０１～１３１まで、一気に自動印刷するマクロはできました。 同様に、 ２０１～２３１まで、一気に印刷するマクロはできました。 そこで、教えて欲しいのです。 １０５～１１０など途中のところを連続印刷するためのマクロはどのようになりますか。 もちろん、１０５～１１０などと打つセルをつくる必要はあると思いますが・・・。お願いしますｍ（＿）ｍ

  • excelでマクロを使用した連続印刷について

    A2セルから通し番号、氏名、住所等のデータが入力されている「データ」シートがあり、 VLOOKUPを使用してB3セルに「データ」シートのA列にある「通し番号」を 入力すると氏名・住所等が反映される「印刷」シートがあります。 例えば「データ」シートのC列（住所）に「東京都」という文字列が 含まれている宛名のみを連続で印刷したい場合、 どのようなマクロになりますでしょうか？ （マクロ内に「東京都」と指定する方法と、 シート内の特定セルに入力した文字列で指定する方法が ありますでしょうか？） wordでの差し込み印刷や、宛名ソフト等の使用は考えておりません。 よろしくお願いいたします。

  • マクロで連続印刷

    いつもお世話になっております。 困っておりますのでお願い致します。 エクセルでSheet1のリスト（住所ろくのようなもの）のデータを Sheet2の特定の形式（はがきのフォーマットのようなもの） に反映させていって（リストの一番うえから入力のある通し番号のところまで） 印刷をするマクロはないでしょうか？ ただし、お恥ずかしながら当方はマクロといえば 「マクロを記録⇒操作⇒マクロの保存」程度の知識しかありません。 お手数で申し訳ないのですがご教示下さい。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する