• 締切済み

エクセル2010で印刷マクロを組むには

印刷シートに,Vlookup関数でいろいろあるタグから引用したデーターを,名簿にある個人個人のファイルとして印刷をしたいと思っています。マクロを組まないとなると,個人のデータを反映させた後,ファイル→印刷,新たに整理番号入力→ファイル→印刷と・・・いちいち,整理番号を入力後,マウスを動かし,人数分の数だけ同じ作業をしないといけないのですが,それをマクロを組んで,印刷フォームのあるタグの上部等の印刷指定していない場所に,印刷ボタンを作ってそのボタンをクリックするだけで,印刷できる方法を教えてほしいと思っています。 できれば,その個人には,通し番号があるので。番号を進ませるボタンや逆に番号を戻すボタンもあれば,なおいいし,たとえば○○番から△△番まで指定して印刷ボタンをクリック,プリンターからはその指定した分の個人情報が入力した紙ベースの資料が出てくる・・・・・となったら最高です。 よろしくお願いします。

みんなの回答

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

例えばシート1のA1セルに整理番号を入力することで、VLOOKUPなどの関数を用いて例えばシート2からのデータがシート1上に入力され個人のデータが表示されるようになっているとします。 そこでマクロを使って整理番号を3番から10番までといったように順々に入力しては印刷を繰り返すとしたら次のようにします。 初めにシート1の印刷とは関係のない場所にコマンドボタンを「開発」タブの「挿入」から「コマンドボタン」を選んで設置します。 その後にそのコマンドボタンを右クリックして「コードの表示」を選択します。 次のマクロを入力します。 Private Sub CommandButton1_Click() Dim P1 As Integer Dim P2 As Integer Dim i As Integer P1 = Application.InputBox("印刷する最初の整理番号を入力してください。") P2 = Application.InputBox("印刷する最後の整理番号を入力してください。") For i = P1 To P2 Worksheets("Sheet1").Range("A1") = i ActiveSheet.PrintOut Next End Sub

turubee
質問者

補足

早々の回答ありがとうございます。 いろいろわからないところがあって・・・ 質問させていただいてもよろしいですか? 私はエクセルの2010を使用しています。 そのKURUMITOさんがおっしゃっている「開発」タブの「挿入」から「コマンドボタン」 を選ぶという場面で,「開発」が見つけることができません。 それから,私のイメージでは印刷ボタンがあり,印刷する最初の整理番号を入力するセルがあり 印刷する最後の整理番号が入力するセルがあるのかと思っていました。 あなたの指定したマクロを入力するだけで,上記の3つが入力したりボタンができたりするのでしょうか? 初心者でいろいろご迷惑をおかけします。

関連するQ&A

  • エクセルで140人をマクロをつかって連続印刷?

    140人の個別IDがあります。それをVlOOKUPで参照して別のシートに引き出しています。一回一回、IDを入力しては印刷ボタンをクリックしてきました。140人を一度に印刷したり、10~40番までを指定して連続印刷したりするマクロを教えてください。

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

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

  • 教えて!エクセルでの印刷マクロ

    シート1に下のようなデータベースがあります。  受付番号 氏名 〒 住所    1    2    3 データを1から順に入力して、入力内容が日によって違いがあるのですが、入力した分だけ印刷できるマクロがわかりません。 前日、1から15まで入力して印刷、今日は16から50まで入力して、その分(16~50まで)を印刷(前日印刷した分は印刷しない)、次の日は50件入力(印刷は51~100まで)となるようなマクロです。 どなたか、ご教授くださいませ。 

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

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

  • エクセルのマクロについて

    エクセルで表(ファイル名:在庫)にデータを入力し印刷・保存(名前を付けて保存でファイル名を「入力日+ファイル名」で保存)という作業をほぼ毎日行っているのですが、いちいち印刷ボタンを押し、名前を付けて保存でファイル名の前に入力日を付け加えて保存するという作業は手間がかかります。そこで、マクロを使ってワンクリックにて印刷・保存を実行できないかと考えています。ただ、何分初心者ゆえよく分かりません。御教授願えればありがたいです。

  • マクロって・・・

    Excelシート1にデータ(管理番号1~500)1~300まではデータが存在しています。301~500迄はデータは無いのですが、今後入力する予定です。 Excelシート2に管理番号を入力したら、必要なデータが反映するようにVLOOKUPで作成しています。 管理番号を1~300まで入力→印刷すればOKなんですが、マクロで データが入力されている管理番号まで勝手に印刷出来る方法ってありますか?? おれば教えて下さい。 マクロを始めたばっかりで・・・ 

  • エクセルのVLOOKUPで作成した表をまとめて印刷する方法を教えてください!!

    エクセルのVLOOKUPで、番号を入力するとで個人名およびその個人のデータが表示されるA4の表があります。1人のデーター表を印刷するのには1人目の番号を入力して印刷をして、2人目の番号を入力して印刷をして・・・という順でしていましたが、1人ごとの印刷ではなく、180人分の表をまとめて印刷したいのですが、その方法をどなたか詳しく教えてください!!印刷される表はVLOOKUPで作成された表のまま印刷したいと考えています。よろしくお願いします。

  • エクセルのマクロについて

    エクセルのマクロ初心者です。 マクロを使用して印刷プレビューが見れるようにしたいです。 vlookup関数を使いsheet1に入力し、sheet2,sheet3,sheet4、sheet5へデータを反映させています。 sheet1に入力画面を作成してあり、セルA2~A13に入力すればsheet2へ、セルA17~A28はsheet3へ、セルF2~F13はsheet4へ、セルF17~F28はsheet5へデータを反映する作りです。 sheet2~sheet5はフォーマットを作成してあり、印刷するとA4で2枚印刷されるようになっています。 入力画面で入力した内容によってはA4用紙1枚ですむこともあります。(A1~M15でA4用紙一枚、A1~M31でA4用紙2枚) 教えて頂きたいことは。 ・入力画面にマクロのボタンを設置し、ボタンをクリックすると印刷プレビューが表示されるようにしたいです。 ・sheet2用、sheet3用、sheet4用、sheet5用、とボタンを設置したい。 ・印刷プレビュー後に、(実際には印刷後)に入力画面を表示したい。 ・印刷プレビューが見たいのはsheet2,sheet3,sheet4,sheet5です。 以上です。 説明が下手ですみません><

  • エクセルのマクロの連続印刷で困っています。

    初心者です。 エクセルのマクロで通知書を指定した番号~番号までを連続印刷 させたいのですが、印刷をすると、印刷結果が最初の番号は指定した 番号まで印刷されて良かったのですが、次から最後までの番号の 印刷が同じものが印刷されていき、どんどん増えていってしまって いて困っています。 いろいろとやり方を変えてみたりしたのですが、どこが間違えて いるのかが結局分からず、どなたか詳しい方、教えていただけます ようでしょうか?>< よろしくお願いします。 ---- 失敗経緯は↓の感じです ・ただ連続印刷させたらシート1まで印刷したのでシート2を  セレクトさせるようにした ・連続印刷させるように指示した番号が繰り返し印刷される  のでプレビューさせて、プレビューされた1枚だけが印刷  させるようにプレビューを追加した にもかかわらず、プレビューでは1枚だけがプレビューされ るのに印刷結果はプレビュー以外の番号のものまで印刷されて しまいます。しかも、既に印刷がされているものまでもです。 シート2は、VLOOKUPで読み込ませているものは1人分だけの 情報のはずなのに、何故、それ以外の人の分まで印刷して しまうのでしょうか>< エクセルの構成は、 ・シート1 通知書に印刷させる用でID管理用の一覧になっています。 このシートにシート2で印刷させたいNoを入力・印刷指示 をさせています。 ・シート2 シート1で指定されたNoをVLOOKUPで読み込ませて表示させて います。(1人分で1枚のみ) ・セルには名前をつけています Sub 通知書を連続印刷する() myMsg = MsgBox(Range("通知書連続始め").Value & " 番から " & Range("通知書連続終わり").Value & " 番まで一括印刷しますか?" & Chr(10) & Chr(10) & "現在の使用プリンタは " & Application.ActivePrinter & " になっています。", vbOKCancel) If myMsg = vbOK Then For i = Range("通知書連続始め") To Range("通知書連続終わり") Range("連続印刷するNO").Value = i Worksheets("シート2").Select Worksheets("シート2").PrintPreview (False) Worksheets("シート2").PrintOut Next Else MsgBox (" 一括印刷を中止しました ") End If End Sub

  • エクセルの印刷マクロについてご教示下さい。

    現在、     シート1のA列に番号(NO1~200)を、B列からG列までには各番号のデータを入れて     整理したものを、シート2で作成した印刷様式に、印刷マクロ(年賀状の宛名印刷を修正     したもの)を使って印刷を行っていますが、マクロを実行するとデータがない番号も印刷     (カラ印刷)していますので、困っています。         印刷データがない番号(例えばB列にデータがない)については、印刷しないようにする     には、どのようなコードを入れればよいのでしょうか。          VBAをはじめたばかり(素人)ですので、よろしくお願いいたします。(エクセル2003使用)

専門家に質問してみよう