- ベストアンサー
一枚ずつ印刷用のマクロに複数枚設定したい
一枚ずつ印刷用のマクロに複数枚設定したい。マクロ初心者です。Excel2007のマクロシー トを使っています。作成者は他人ですので、質問ができません。複数のシートからなるExcelファイルで、シート1に入力したシーケンス番号を2のシートのマクロを起動してポップアップに入力すると、シート1の内容が反映された印刷用のフォーマットが1枚ずつ作成されるマクロがあります。シーケンス番号は200ほどあり、ひとつひとつ設定していると時間がかかるため、シーケンス番号の範囲を指定するなどして、印刷を一気に行う方法はありませんでしょうか？質問等に不備がございましたらお知らせください。よろしくお願いいたします。
- tikunsuke
- お礼率90% (29/32)
- オフィス系ソフト
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
まずはそのマクロとやらがわからないのでは、的確な回答ができない 手段としては 1）その印刷マクロ自体を書き換える 2）シーケンス番号とやらを範囲指定し、その範囲指定した回数分、既存の印刷マクロをシーケンス番号を指定して実行するループをマクロで作成する 3）まったく新規にマクロを作成する 等が考えられる、2の場合も既存印刷マクロの一部修正が必要の可能性はあるが、大きな変更では無いので一番容易かと思われる
その他の回答 (1)
- imogasi
- ベストアンサー率27% (4737/17068)
質問表現があいまいで良くわからない。 補足してください。 エクセル質問の鉄則を踏んでない。ブックーシートーセルはどうなって居るか。 （１）ブック １つのブックだよね （２）シート 多数あるのだね。２００シートぐらいなのか。 （３）そのブックにあるシートすべてを対象にして良いのか。 除外してほしいシートが混じっているのか。 （４）各シートにおいてシーケンス番号を入れるセルは１つと決っているのか。シートのどのセルか。 （５）シーケンス番号というのはどういう番号なのか。説明しないとわからない。 １シート１番号か。 整数で４けたで１づつアップのばんごうか。 順序はシートの順なのか。 そういうことを書かないと判らないでしょう。 ーー １ブックのすべてのシートを順次捕まえるのは Sub test01() For Each sh In Worksheets MsgBox sh.Name '本当は書くシートに対する処理のコードを書く Next End Sub を屋って考えること。 ＞シート1に入力したシーケンス番号を2のシートのマクロを起動してポップアップに入力すると の意味が良くわからない。 今あるシートについて考えればよいのだろう。その来歴が、手作業で入力されたものでも、VBAで作成されたものでも変わりないのではないか。わざわざ説明する必要があるのか。 ＞作成者は他人ですので、質問ができません これだって書く必要は無いだろう。その他人のマクロで出来たシートに、自分が他人の協力を得ずに、データを加えたいだけだろう？
お礼
すみません。 本質問は解決いたしました。 ありがとうございました。
補足
早々のご回答ありがとうございました。 エクセル質問の鉄則を踏んでない。ブックーシートーセルはどうなって居るか。 →失礼しました。以下に補足いたします。 （１）ブック １つのブックだよね →一つのブックです。 （２）シート 多数あるのだね。２００シートぐらいなのか。 →シートは10くらいです。 （３）そのブックにあるシートすべてを対象にして良いのか。 除外してほしいシートが混じっているのか。 →印刷したい内容が書いてあるシートは１シートです。それ以外は除外したいです。 （４）各シートにおいてシーケンス番号を入れるセルは１つと決っているのか。シートのどのセルか。 →一つのシートのA列が対象となります。 （５）シーケンス番号というのはどういう番号なのか。説明しないとわからない。 １シート１番号か。 整数で４けたで１づつアップのばんごうか。 順序はシートの順なのか。 そういうことを書かないと判らないでしょう。 →整数で1から200 1ずつアップします。 １ブックのすべてのシートを順次捕まえるのは Sub test01() For Each sh In Worksheets MsgBox sh.Name '本当は書くシートに対する処理のコードを書く Next End Sub を屋って考えること。 ＞シート1に入力したシーケンス番号を2のシートのマクロを起動してポップアップに入力すると の意味が良くわからない。 今あるシートについて考えればよいのだろう。その来歴が、手作業で入力されたものでも、VBAで作成されたものでも変わりないのではないか。わざわざ説明する必要があるのか。 →印刷用のシートにシーケンス番号を入れるためのボタンがあり、入力すると印刷用フォーマットに シーケンス番号が振られた行のほかの列の内容が自動で入るという意味です。 例)元の行に「1,○○銀行,100円」とあったとすると、1を入力すれば「○○銀行,100円」と自動的に 印刷フォーマットに入ります。 ＞作成者は他人ですので、質問ができません これだって書く必要は無いだろう。その他人のマクロで出来たシートに、自分が他人の協力を得ずに、データを加えたいだけだろう →自分で作成しているマクロではないという意でした。 よろしくおねがいいたします。
関連するQ&A
- 助けてください。印刷マクロを
OS:XPSP2,Excel2002で印刷マクロを教えてください。 "入力シ－ト"に顧客管理用で下のようなデ－タが入っています。 A列 B列 C列 ２行目：受付番号 氏名 住所; ・・・・・・S(列) ３行目 ８０００１ 玉田 ８０００２ 山田 ８０００３ 上田 ・ ・ 受付番号はすでに85000くらい（不確定）まで入力済みです。 氏名以下をデ－タとして日々入力していき作成し、件数がかなり溜まった(数百件くらい)ときに印刷をするといった仕事です。 マクロを使って、印刷したいデ－タをMsgで”最初の番号を入力”で受付番号を入れて次に同じようにMsgで”印刷最後の番号を入力”で受付番号を入れて、その間のデ－タをA列からS列まで印刷するものです。
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロで、印刷設定をしたいのですが可能でしょうか？
エクセルのマクロで、印刷設定をしたいのですが可能でしょうか？ お世話になっています。 会社での作業を少しでも効率よく出来ないものかと、以下のようなことを考えています。 エクセル２００３を使用していますが、下記のような動作をするマクロを組むことは可能でしょうか？ よろしくご教授ください。 Sheet1は、入力用のシートとして使っています。 Sheet2は、Sheet1に入力された商品データなどから、必要な箇所のみ反映されるように設定しています。 このシートは、罫線などが存在し表形式になっており、全てを印刷するとＡ４用紙６枚分になります。 そこで、Sheet1（入力用のシート）のJ18セルに文字が入力された場合は、Sheet2（印刷用のシート）の１ページだけを印刷したく、Sheet1のj27セルに文字が入力された場合は、Sheet2の２ページまで・・・ Sheet1のJ36に文字が入力された場合は、Sheet2の3ページまでという風に印刷範囲を設定しなくても印刷出来るようにしたいのです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- マクロって・・・
Excelシート１にデータ（管理番号１～５００）１～３００まではデータが存在しています。３０１～５００迄はデータは無いのですが、今後入力する予定です。 Excelシート２に管理番号を入力したら、必要なデータが反映するようにVLOOKUPで作成しています。 管理番号を１～３００まで入力→印刷すればOKなんですが、マクロで データが入力されている管理番号まで勝手に印刷出来る方法ってありますか？？ おれば教えて下さい。 マクロを始めたばっかりで・・・
- 締切済み
- Visual Basic
- Excel2007 マクロ 複数シートの作成
Excel2007 マクロ 複数シートの作成 2つのファイルを使用します。 AファイルにBファイルの情報を反映して、会社ごとにシートを作成します。 AファイルとBファイルの画像を添付します。 どのようなマクロを作成すればよいのか教えてください。 よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- マクロVBAで印刷
マクロはまったくの初心者です。 エクセルで入力シートにて明細書を作成したものを、出力シートに反映させ、 マクロで作成した印刷ボタンをクリックすると、１枚目には「お客様控え」・２枚目には「支店控え」・ ３枚目には「当社控え」となる様なマクロが出来てます。 これを「当社控え」だけを印刷するように変更したいんです。 出力シートには「お客様控え」としかなってないのに、印刷するとその３枚が印刷されます。 他の人が作ったもので、私は分からないためにマクロの変更・修正が出来ません。説明も分かりずらくて申し訳ございません。 どなたか分かる方教えてください。
- 締切済み
- Visual Basic
- マクロ初心者です。複数のシートを一覧に反映させたいのですが。
すみません。どなたか教えてください。 複数の請求書シートがあり、項目を入力すると、 先頭の一覧シートに項目が反映されるように作成したいのですが、 マクロで作成する方法ありますでしょうか？ 一覧には複数シートの合計金額もわかるように作りたいです。
- ベストアンサー
- オフィス系ソフト
- Excelの複数シートの印刷設定で・・・
両面印刷設定させたいのですが、Ctrl＋シートで複数選択してファイルー印刷ーオプション（プロパティ）などで両面印刷設定やA３用紙設定をしても１シートしか反映されないです。これを選択したすべてのシートに反映させるにはどうすればよいでしょうか？ ご存知の方よろしくお願いします。
- 締切済み
- その他(業務ソフトウェア)
- Excel2000で複数のシートを両面印刷したい。マクロで可能でしょうか？
みなさん、いつもご丁寧に回答いただき有難うございます。 作業環境： Windows XP Homeedithon Excel2000 SP3 Canon ip4200（プリンター） Excelで複数のシートがあり、それぞれを同時に両面印刷したい場合、現在はシート毎に印刷設定をしています。（シートを複数選択した状態で印刷設定した場合、最初に選択したシートにのみ印刷設定がされてしまうため） その作業を簡略化するため、マクロ機能を利用して両面印刷設定をしたいのですが、そのようなことは可能なのでしょうか。マクロの作業記録機能を用い、印刷設定を試してみましたが、どうやら両面印刷のチェックは無視されたようです。 ご回答、よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
お礼
早々のご回答ありがとうございます。 マクロは良くわからないので、このような質問になってしまいました。 2)の方法について調べてみることにいたします。 ありがとうございました。