シート1にデータがあり、シート2にvlookup関数を使用して、
番号に対応する登録番号・所属・氏名を表示させるようにしました。
質問なのですが、
A2に番号が1~3まであり、空白(空白行)になるまで
シート2に登録番号・所属・氏名を表示させ
番号ごとに印刷をしたいと思っています。
シート2に番号1の内容(登録番号・所属・氏名)を表示させ印刷し、
印刷後、シート2に番号2の内容を表示させシート2印刷し、
印刷後、シート2に番号3の内容を表示させシート2印刷し、
番号行が空白になったらこの処理を終了するというマクロを作りたいのですが、
どのようにしたらよいですか。
初心者でよく分からないのですが。
皆さん教えて下さい。
【シート1】
番号登録番号 氏 名 所属学科職名
100001田中 健太機械工学科教授
200201音 光 機械工学科講師
301525鈴木 洋 機械工学科助手
【シート2】
番号
登録番号:
所属:
氏名:
No.1ベストアンサー
- 回答日時:
Dim r As Integer
r = 1
Do
Sheet2.PrintOut Copies 1
r = r + 1
Loop Until Cells(r, 1) = ""
これを応用してみて下さい。
早急な解答有難うございました。
マクロを参考にさせて頂きました。
下記のように書き、うまく実行出来ました。
有難うございました。
Sub test()
i = 1
Do While i < 3
Worksheets("Sheet1").Range("b1").Value = i
i = i + 1
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Loop
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Excel(エクセル) セルによって印刷するシートを変える方法 EXCEL-VBA 2 2022/08/01 20:48
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Excel(エクセル) Excelで質問です! 現在マクロを勉強中の初心者です。 以下のような表から、会社名が空白のもの以外 2 2022/06/14 12:16
- Excel(エクセル) マクロか関数で処理したいのですが、教えて頂けませんか。 8 2022/10/31 15:18
- Excel(エクセル) エクセルでキーリストからデータを取り出して1枚1枚印刷するには? 11 2022/06/27 09:52
- Excel(エクセル) Excel関数 情報引用する方法 4 2022/07/31 20:59
- その他(音楽・ダンス・舞台芸能) チケットに座席番号のみを印刷する方法 4 2023/02/10 11:21
- ノートパソコン ページ番号の入れ方について 3 2023/02/16 17:11
- 年賀状作成・はがき作成 Wordによる宛名印刷 2 2023/01/04 15:36
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
数式による空白を無視して印刷するマクロ
Excel(エクセル)
-
VBAで空白のセルを飛ばして差込印刷をするコード
Excel(エクセル)
-
マクロ 空白セルまで繰り返す
Excel(エクセル)
-
-
4
エクセルで140人をマクロをつかって連続印刷?
その他(データベース)
-
5
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
6
Excel VBAによる連続印刷について処理の順番
Excel(エクセル)
-
7
エクセルをPDFで保存し、ファイル名はA1セルを参照するVBAの記述を教えてください。
Excel(エクセル)
-
8
【VBA】PDF出力に任意のファイル名前を付ける方法
Excel(エクセル)
-
9
VBAを用いて繰り返し自動的に印刷するにはどうしたら良いのですか
Visual Basic(VBA)
-
10
マクロで印刷→セルの値から部数変更するには
Excel(エクセル)
-
11
【VB】セルが空になるまで処理を繰り返したい
Visual Basic(VBA)
-
12
Excelで連続印刷をするマクロ
Excel(エクセル)
-
13
開始行と最終行を指定して差し込み印刷するマクロ
Excel(エクセル)
-
14
エクセルの空白の行を印刷しない方法
Excel(エクセル)
-
15
エクセルで空白の部分を印刷範囲外にする方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルファイルを開く時、常...
-
エクセルの一部のセルの背景色...
-
マクロで印刷→セルの値から部数...
-
エクセル印刷時 一枚の書類に...
-
エクセルで複数のシートの1枚目...
-
エクセルで行番号、列アルファ...
-
エクセルで、ヘッダーに他のシ...
-
エクセルのマクロで複数シート...
-
Excel 特定のシートを印刷不可...
-
【Excel】複数シートがあるエク...
-
エクセルで1個のシートを1枚の...
-
エクセルでのヘッダーをページ...
-
エクセルでシートの色がグレー...
-
エクセルのページ設定を他のペ...
-
エクセル VBA 水平改ペー...
-
エクセルの複数シートをNアップ...
-
Excelであるシートだけ印刷でき...
-
EXCELで宛名だけ連続変更...
-
特定のシートのみ印刷できない...
-
エクセルで同一シート上にA3とA...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルファイルを開く時、常...
-
エクセルの一部のセルの背景色...
-
エクセル印刷時 一枚の書類に...
-
1ヶ月分の日付を一度に出す方法...
-
マクロで印刷→セルの値から部数...
-
エクセルの行タイトルを特定の...
-
エクセルのマクロで複数シート...
-
Excel 特定のシートを印刷不可...
-
エクセルで複数のシートの1枚目...
-
エクセルでのヘッダーをページ...
-
エクセルでシートの色がグレー...
-
エクセルで行番号、列アルファ...
-
条件によって印刷するシートを...
-
EXCELで複数のシートを同時に印...
-
エクセルのシート名を印刷した...
-
エクセルで複数のシートを同じ...
-
エクセルで、ヘッダーに他のシ...
-
EXCELで宛名だけ連続変更...
-
Excelであるシートだけ印刷でき...
-
エクセルの複数シートをNアップ...
おすすめ情報