顧客番号を指定して印刷するには？

質問

別シートに印刷用のレイアウトを作成し、更に別シートで印刷設定を行っています。

その印刷設定のページには、印刷開始顧客番号　印刷終了顧客番号とセルを作り、そこで顧客番号を指定して連続印刷したいのですが、今の状況だと、For MyCounter 1 to 5の5の部分を変え残りは手動で入力という方法で印刷しています。

顧客番号のみで連続印刷する為にはどうすれば宜しいのでしょうか？
宜しくお願いいたします。

----------------------------------------------------------------

Sub 連続印刷2()
Dim mycounter As Integer
Dim sita1 As Integer
Dim migi1 As Integer

mycounter = 1
sita1 = Sheets("設定2").Cells(4, 2)
migi1 = Sheets("設定2").Cells(5, 2)

For mycounter = 1 To 5
Sheets("レイアウト2").Select
Range("O2").Value = Sheets("住所録(会社)").Cells((mycounter - 1) * 13 + 2, 1)
Range("O6").Value = Sheets("住所録(会社)").Cells((mycounter - 1) * 13 + 3, 1)
Range("O10").Value = Sheets("住所録(会社)").Cells((mycounter - 1) * 13 + 4, 1)
Range("O14").Value = Sheets("住所録(会社)").Cells((mycounter - 1) * 13 + 5, 1)
Range("O18").Value = Sheets("住所録(会社)").Cells((mycounter - 1) * 13 + 6, 1)
Range("O22").Value = Sheets("住所録(会社)").Cells((mycounter - 1) * 13 + 7, 1)
Range("O26").Value = Sheets("住所録(会社)").Cells((mycounter - 1) * 13 + 8, 1)
Range("O30").Value = Sheets("住所録(会社)").Cells((mycounter - 1) * 13 + 9, 1)
Range("O34").Value = Sheets("住所録(会社)").Cells((mycounter - 1) * 13 + 10, 1)
Range("O38").Value = Sheets("住所録(会社)").Cells((mycounter - 1) * 13 + 11, 1)
Range("O42").Value = Sheets("住所録(会社)").Cells((mycounter - 1) * 13 + 12, 1)
Range("O46").Value = Sheets("住所録(会社)").Cells((mycounter - 1) * 13 + 13, 1)
Range("O50").Value = Sheets("住所録(会社)").Cells((mycounter - 1) * 13 + 14, 1)
Range(Cells(1, 1), Cells(sita1, migi1)).Select
Selection.PrintOut Copies:=Sheets("設定2").Cells(6, 2)

Next

End Sub

回答No.6

kobouzu_su · ベストアンサー

またまた登場、kobouzuです。

上手くいったようで何より。(^o^)/

で、エラーのとき空白にする式ですが、説明を分かりやすくするために、

VLOOKUP($O2,'住所録(会社)'!$A$2:$Q$65536,2,0)　を　■　とすると

　=IF(ISERROR(■),"",■)　　

という式になります
これは、■がエラーなら"空白"、エラーでなかったら　■ということです。

で実際には

=IF(ISERROR(VLOOKUP($O2,'住所録(会社)'!$A$2:$Q$65536,2,0)),"",VLOOKUP($O2,'住所録(会社)'!$A$2:$Q$65536,2,0))

このようになります。
見た目長い式ですが、VLOOKUP($O2,'住所録(会社)'!$A$2:$Q$65536,2,0)の部分をコピーして貼り付ければ簡単です。

-------------------------------------------------
●ここからは式をセットする方法。

（１）左端の行番号の　６～５２　を選択して、右クリック、削除（行ごと削除します）
（２）残った、１件目の式を修正する
（３）左端の行番号の　２～５　を選択して、右クリック、コピー
（４）左端の行番号の　６～５３　を選択して、右クリック、貼り付け

これで全てに正しい式がセットされます。

●注意事項

VLOOKUPはちょと変更しなければなりません。

＞VLOOKUP(　＄Ｏ＄２　,'住所録(会社)'!$A$2:$Q$65536,2,0)

　＄Ｏ＄２　を　＄Ｏ２　と行番号２の前の＄を省いて

　VLOOKUP(　＄Ｏ２　,'住所録(会社)'!$A$2:$Q$65536,2,0)

としなければなりません。全てそう。
これは式をコピーできるようにするためです。

●●●●●
項目が多くて面倒なようでしたら、
シート「住所録」とシート「レイアウト」のセルの対比をアップしてもらえればコードで処理できますが。

例えば、（必要なのは、１件分です）

「住所録」　　　「レイアウト」
　　Ｂ２　ー＞　　Ｃ２
　　Ｄ２　ー＞　　Ｅ３
　　　以下同様
等々

以上です。

お礼

本当にご親切に有難うございました＾＾

もう、理想どおりの事が出来て凄く満足しています。

最後のセルの対比ですが、勉強しながら挑戦していきたいと思っております＾＾