A4横の紙にA5サイズの請求書を2枚の作成しています。
VLOOKUP関数が入っていて、C2とJ2に値を入れると、2名分の請求書がでる状態です。
マクロでC2には奇数を、J2には偶数の値を入れて連続印刷をしたいです。
ここまでは作成したのですが、1~10までの奇数ページが表示された後、2~10までの偶数ページが表示される状態です。
Sub Sample1()
Dim i As Integer
Dim j As Integer
For i = 1 To 10 Step 2
Range("C2").Value = i
ActiveSheet.PrintPreview
Next i
For j = 2 To 10 Step 2
Range("j2").Value = j
ActiveSheet.PrintPreview
Next j
End Sub
というようにするにはどのようにすればよいのでしょうか?説明がうまくできないのですが、
よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
詳細わかりませんが、C2とJ2の値のセットが
1:2 3:4 5:6 7:8 9:10 という風になればいいのですよね?
ならば、for文は1つで済みます。
for i=1 to 5
Range("C2").Value =2* i-1
Range("j2").Value =2*i
next
という感じになるかと。
※表示に関する部分は省略しています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 数式が消える 1 2023/03/19 16:55
- Visual Basic(VBA) A列B列C列 3 2023/04/26 18:11
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 4 2023/05/26 10:43
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) VBA 税率を判定表する方法を教えて下さい。 10 2022/03/28 11:21
- Visual Basic(VBA) Sheet2からオートフィルターで売上日を抽出した件数をカウントし、その件数をSheet1のセルB1 2 2023/01/12 12:24
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- ノートパソコン ページ番号の入れ方について 3 2023/02/16 17:11
- Excel(エクセル) エクセルの印刷マクロについて質問があります。 現在、下記のマクロで印刷しています。Sheet1のD6 5 2023/06/12 10:59
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
Excelで1部印刷する毎に連番を2箇所つけたい
その他(Microsoft Office)
-
エクセル連番自動印刷について
Excel(エクセル)
-
エクセルの表を複数枚印刷したときに連番をつけたい
Excel(エクセル)
-
-
4
Excelファイル 奇数ページだけ印刷したい
プリンタ・スキャナー
-
5
開始と終了番号を指定した連番(Excel)
Excel(エクセル)
-
6
奇数・偶数ページごとに差し込み印刷を設定する方法
その他(Microsoft Office)
-
7
エクセルで連番印刷したいのですが、 フォームは1枚4枠です。 100番まで連番を着けるとして、1枚目
その他(パソコン・スマホ・電化製品)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
変数名の取得
-
VBで電卓のメモリー機能はどの...
-
テキストボックスのvalueとtext...
-
C言語 1から20までの逆数の和を...
-
Powershellのparamについて
-
ハッシュテーブル(連想配列)が...
-
fscanfでC言語の空欄を読んだ場...
-
Excel VBA 複数選択したリスト...
-
VBA ドロップダウンリストを残...
-
[VBA]選択範囲の下から上に処理...
-
ISDBNULLをスルーしてDBNULLが...
-
VB.NETでコンボボックスの1行目...
-
PysimpleGUIでデータベースを作る
-
VB.NETでアクティブなformを知...
-
VBAでメッセージボックスにセル...
-
ユーザーフォームのテキストボ...
-
power BI クエリエディター 〇...
-
エクセルVBAでコンボボックスの...
-
AccessVBA 帳票フォームの非連...
-
[VB.net] DataGridViewのコンボ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テキストボックスのvalueとtext...
-
マクロ 特定のセル値のみクリ...
-
VB.NETでコンボボックスの1行目...
-
変数名の取得
-
値を返さないコード パス
-
Excel VBAのリストボックスの値...
-
VB初心者。小数点以下の表示で...
-
ハッシュテーブル(連想配列)が...
-
textboxとLabelを動的に変更する
-
PL/SQLでのTO_DATEの時間取得に...
-
VB.NETでアクティブなformを知...
-
Excel vba ユーザーフォームテ...
-
DataTableに対するLINQについて
-
マクロで奇数と偶数の値を2か所...
-
【C++/CLI.NET】コンボボックス...
-
[VBA]選択範囲の下から上に処理...
-
変数に代入してある数値を表示...
-
vbscriptを使いexcelを参照して...
-
範囲が指定されている乱数について
-
[VB.net] DataGridViewのコンボ...
おすすめ情報