Excel VBA 指定した印刷範囲をすべて印刷

質問

いつもお世話になっています。

Excelデータをフォーマットに差し込んで印刷するVBAがあります。
当初はこれで問題なかったのですが、番号が連番でなかったりすると正しく印刷できません。
※厳密なデータベースではないので、場合により番号は重複します。

番号　氏名　性別
1　　　田中　　男
2　　　山田　　男
6　　　鈴木　　男
1　　　田中　　女

Sub 申し込みフォーマット印刷()
Dim section　・・・セクション
Dim num
num = Range("d3") ・・・ここにセクション全員の人数をカウントした数値が入ります。

If vbNo = MsgBox("全員を印刷しますか？", vbYesNo) Then Exit Sub

For section= 1 To num　・・・sectionは1からカウントした数値までの間
Sheets("申込用紙_印刷").Range("d4").Value = section　・・・Range("d4")は番号を入力
Sheets("申込用紙_印刷").PrintOut Copies:=1, Collate:=True
Next section

MsgBox "印刷が終了しました"

End Sub

とにかく全員を印刷したいというのが希望なのですが、
1 To num　を欠番も含めて連番で印刷してしまう、重複する番号の行は印刷されない、
人数より多い番号は無視される　という状態です。
一件のみ印刷する場合は、Range("d4")に番号を入力して「選択した番号のみ印刷」を
実行しています。これは問題ないのですが、今回は番号は関係ないのですが、なぜか
１番から人数分を一人ずつ連番でカウントして印刷してしまいます。

すっきりとして結構気に入っているだけに、何かもう少しのことで使えるようにならないでしょうか。
お力添えをお願いします。

回答No.1

keithin · ベストアンサー

マクロではなく，「申込用紙_印刷」シートの具体的な数式を直す必要があります。

＞Sheets("申込用紙_印刷").Range("d4").Value = section　・・・Range("d4")は番号を入力

「申込用紙_印刷」シートのD4セルに１から順に数字が入ると，シートの数式が
=VLOOKUP(D4,データシート,列番号，FALSE)
などといった数式になっていて，「番号の行のデータを参照してくる」ようにしていると推測されます。

これを
=INDEX(データシート!B:B,D4+1)
などのような数式に改めて，データシートの「番号」（Ａ列）はあっさり無視して，単純に「所定の列の何行目(上から順に何番目)のデータ」を参照してくる式にやり直して下さい。

お礼

いつも早々に回答をいただきありがとうございます。
シートの数式は、以下のようになっていて他のシートから参照しています。
=VLOOKUP(d4,INDIRECT(d2),2,)

ただこれをどう
=INDEX(データシート!B:B,D4+1)
などのような数式に改めて参照先を変えるのか、
実はINDEX関数を使ったことがないので先ほどから四苦八苦しているところです。

また進展がありましたらご報告いたします。
お気づきの点がありましたらご指南ください。
よろしくお願いいたします。

回答No.2

keithin

【基礎編　関数のお勉強から必要ですか】
○INDEX関数の使い方その１
=INDEX(Sheet1!B:B,3)
のように数式を書くと，シート１のB列の上から３行目のセルを参照します

○INDEX関数の使い方その２
=INDEX(Sheet1!B2:F20,3,4)
のように数式を書くと，シート１のB2:F20のセル範囲の，上から３行目，左から４列目のセルを参照します
間違えないように：
「B2:F20のセル範囲の，上から３行目，左から４列目」とは，B2セルが「１行目の１列目」です。D3セルは「２行目の３列目」になります。

＞シートの数式は、以下のようになっていて他のシートから参照しています。
＞=VLOOKUP(d4,INDIRECT(d2),2,)

使い方その２を利用すると
=INDEX(INDIRECT(D2),D4,2)
のようにして，D4に１，２，３…が入れば「INDIRECT(D2)」の上から順に１，２，３行目（の２列目）を採ってこれることがわかります。

D2セルにたとえば具体的に「Sheet1!B2:C10」と書いてあったとすると，いま実際に欲しい「その２列目」はSheet1!C2:C10ですから
E2セルに「Sheet1!C2:C10」と書いておいて
使い方その１：
=INDEX(INDIRECT(E2),D4)
とすれば良いことが判ります。
（判りやすくE2を使って説明しましたが，実際にはD2の「Sheet1!B2:C10」を「Sheet1!C2:C10」に書き換えて使えばよいという事です）

お礼

早々に丁寧な回答をいただきありがとうございます。
答えそのものをいただきながら、スキル不足で作業に手間取ってしまいました。
おかげで希望どおりに動くようになり感動です。
また機会がありましたらよろしくお願いいたします。