No.4800906で質問者:bom_baye様がご質問されていることと同じ内容で困っています。
ほとんどは、ご回答者:hige_082様の回答内容の通りで実施可能でした。ただ、
条件が違うのが、データが1からはじまるのですが、100まで等の終わりが決まっていない
点です。リストの最後の数値までを印刷する等の設定は可能でしょうか?
また、それぞれのシートを3枚ずつ印刷する設定も可能でしたら知りたいのですが。
以下、質問と回答をそれぞれ引用させていただきます。何卒よろしくお願いします。
bom_baye様の質問内容を引用させていただきます。
---------------------------------------------------------------------------------
エクセルのVLOOKUPの印刷方法についてですが、シート(1)(データ1~100)をシート(2)(個表)にVLOOKUP(1~100までの個表を番号入力でデータを表示する)で作成したあと1~100までの個表をいっきに印刷をする方法を教えてください。現状は個表の表は1つだけ作成していますので、1~100までの番号を随時入力して印刷しなければなりません。ご回答よろしくお願いします。
---------------------------------------------------------------------------------
次にhige_082様の回答内容を引用させていただきます。
---------------------------------------------------------------------------------
マクロでよければ
Sub test()
Dim a As Range
Dim i As Long
With Worksheets("個表")
Set a = Range("a1") '番号入力用セルの設定
For i = 1 To 100
a.Value = i
ActiveSheet.PrintOut
Next i
End With
End Sub
---------------------------------------------------------------------------------
No.1
- 回答日時:
>データが1からはじまるのですが、100まで等の終わりが決まっていない
点です。リストの最後の数値までを印刷する等の設定は可能でしょうか?
For i = 1 To WorksheetFunction.Max(Range("A1:A20"))
のように変更する。
>また、それぞれのシートを3枚ずつ印刷する設定も可能でしたら知りたいのですが。
For i = 1 To 100 Step 3
のように最後に3ごとに数字を増加させる設定にして
番号を入力するbとcのセル番地を指定して
b.Value = i +1
c,Value = i +2
の2つのコードを追加してください。
No.2ベストアンサー
- 回答日時:
例えば、InputBox で数字を聞くという方法はどうでしょうか。
> Application.Wait Now + TimeSerial(0, 0, 2) '2秒のウェイトを置く
ウェイトの2秒が適しているかは何とも言えませんが、なるべく、マクロを止める方法は残しておいたほうがよいと思います。ウェイトはいらなくても、かならず、DoEvents は残しておいてください。
'//
Sub Test1()
Dim i As Long, j As Long
Dim LastCnt As Long
Dim ret As Variant
Const PCNT As Integer = 3 '回数
With ActiveSheet 'シート
ret = Application.InputBox("枚数を入れてください。", Type:=1)
If ret < 0 Or VarType(ret) = vbBoolean Then Exit Sub
LastCnt = ret
For i = 1 To LastCnt
For j = 1 To PCNT
.Range("A1").Value = i
.PrintOut , Preview:=True
DoEvents
Application.Wait Now + TimeSerial(0, 0, 2) '2秒のウェイトを置く,なくても良い
Next j
Next i
End With
End Sub
この回答への補足
ありがとうございました。今日やってみたところほぼ思いどおりに印刷できました。
3枚同じものを印刷する時に1枚目にはA、2枚目にはB、3枚目にはCなどと
ヘッダーを入れたいと思っているのですが、それは可能でしょうか?
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAで不特定枚数印刷をしたいです。 4 2022/08/02 07:30
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
- Excel(エクセル) エクセルでキーリストからデータを取り出して1枚1枚印刷するには? 11 2022/06/27 09:52
- Excel(エクセル) エクセルの印刷マクロについて質問があります。 現在、下記のマクロで印刷しています。Sheet1のD6 5 2023/06/12 10:59
- Excel(エクセル) 【Excel】複数シートがあるエクセルデータで片面印刷と両面印刷設定がシートごとに入 1 2023/03/10 15:25
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Excel(エクセル) Excelであるシートだけ印刷できない 1 2022/04/01 09:04
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルファイルを開く時、常...
-
エクセル印刷時 一枚の書類に...
-
マクロで印刷→セルの値から部数...
-
エクセルの一部のセルの背景色...
-
1ヶ月分の日付を一度に出す方法...
-
EXCELで宛名だけ連続変更...
-
エクセルで行番号、列アルファ...
-
エクセルのマクロで複数シート...
-
エクセルのシート名を印刷した...
-
エクセルで横置きのシートにペ...
-
エクセルでシートの色がグレー...
-
エクセルVBAで日報自動印刷
-
Wordで差込印刷。テーブル...
-
条件によって印刷するシートを...
-
Excel 2シートを1枚に印刷した...
-
EXCELで、A3からA4に縮小印刷し...
-
エクセル 改ざん防止のため ...
-
エクセルで、ヘッダーに他のシ...
-
エクセルの複数シートをNアップ...
-
エクセルの行タイトルを特定の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルファイルを開く時、常...
-
エクセルの一部のセルの背景色...
-
エクセル印刷時 一枚の書類に...
-
1ヶ月分の日付を一度に出す方法...
-
マクロで印刷→セルの値から部数...
-
エクセルの行タイトルを特定の...
-
エクセルのマクロで複数シート...
-
Excel 特定のシートを印刷不可...
-
エクセルで複数のシートの1枚目...
-
エクセルでのヘッダーをページ...
-
エクセルでシートの色がグレー...
-
エクセルで行番号、列アルファ...
-
条件によって印刷するシートを...
-
EXCELで複数のシートを同時に印...
-
エクセルのシート名を印刷した...
-
エクセルで複数のシートを同じ...
-
エクセルで、ヘッダーに他のシ...
-
EXCELで宛名だけ連続変更...
-
Excelであるシートだけ印刷でき...
-
エクセルの複数シートをNアップ...
おすすめ情報