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

Question

別シートに印刷用のレイアウトを作成し、更に別シートで印刷設定を行っています。

その印刷設定のページには、印刷開始顧客番号　印刷終了顧客番号とセルを作り、そこで顧客番号を指定して連続印刷したいのですが、今の状況だと、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

kobouzu_su · Accepted Answer

またまた登場、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)

としなければなりません。全てそう。
これは式をコピーできるようにするためです。


●●●●●
項目が多くて面倒なようでしたら、
シート「住所録」とシート「レイアウト」のセルの対比をアップしてもらえればコードで処理できますが。

例えば、（必要なのは、１件分です）

「住所録」　　　「レイアウト」
　　Ｂ２　ー＞　　Ｃ２
　　Ｄ２　ー＞　　Ｅ３
　　　以下同様
等々
　
以上です。

kobouzu_su · Answer

kobouzuです。

下記コードをコピペしてテストしてみてください。
テストするときは、オリジナルブックのコピーをとってからテスト。

'----------------------------------------------
Sub 連続印刷2()

Dim R As Long
Dim L As Long
Dim Cnt As Integer
    
Sheets("レイアウト").PageSetup.PrintArea = "$A$1:$N$52"
Sheets("レイアウト").Columns("O:O").ClearContents
     
With Sheets("住所録(会社)")
　For R = 2 To .Range("Q65536").End(xlUp).Row
　　If .Cells(R, "Q").Value = Range("B2").Value Then
　　　Cnt = Cnt + 1
　　　L = (Cnt - 1) * 4 + 2
　　　Sheets("レイアウト").Cells(L, "O").Value = .Cells(R, "A").Value
　　　If Cnt = 13 Then
　　　　　Sheets("レイアウト").PrintPreview
　　　　　Sheets("レイアウト").Columns("O:O").ClearContents
　　　　　Cnt = 0
　　　End If
　　End If
　Next R
        
　If Cnt > 0 Then
　　　Sheets("レイアウト").PrintPreview    '余り印刷
　End If

End With    

End Sub
'-----------------------------------------------------

●シート「設定2」の構成
　　Ｂ２：　５０音
　　Ｂ３：　印刷枚数

●シート「住所録(会社)」の構成
　　Ａ列：　顧客番号
　　Ｑ列：　顧客読みの頭１文字
　
　
■■■
＞VLOOKについてですが、空白になるように、エラー処理はしておりません

おや、まあ、(^^;;;
そのVLOOKUPの式をひとつ提示してください。
上記コードがそちらで上手くいくことを確認した後で修正しませう。
　
一応、テストして動作することは確認済みです。
くどいようですが、必ずコピーをとってテストですよ！！
以上です。

kobouzu_su · Answer

こんにちは。kobouzuです。

大体分かりましたが、あと２つ。

●シート「住所録」について

　１行目：　見出し
　データ：　２行目から始まっている
顧客番号：　Ａ列

これは提示のコード＆補足で分かるのですが念のため


●シート「レイアウト」の構成について。

　　　　　【１行目は、大見出し】
１件目は、２行目～５行目（２行目：見出し　５行目：空白行）
２件目は、６行目～９行目（６行目：見出し　９行目：空白行）
３件目は、10行目～13行目（10行目：見出し　13行目：空白行）
以下同様

又は、
　　　　　　【大見出しは、無し　】
１件目は、１行目～４行目（１行目：見出し）
２件目は、５行目～８行目（５行目：見出し）
３件目は、９行目～12行目（９行目：見出し）
以下同様

のどちらかになってるようですね？
そこら辺りの補足を願います。

それから、１３件に満たないときは、
Ｏ列に残りのコードがないことになりますので
Vlookupで値を持ってくるとき、エラー処理をしてなければ、
#N/Aのエラーが表示されると思いますが、それは空白になるように
ちゃんとエラー処理されてますよね？


こういった場合、現物が目の前にあるとあっさり解決するんですが、
文章での遣り取りはなかなかですねぇ。(^^;;;

いちおういままでの補足と上記を勘案してコードを書いてみますが、
返答は早めにお願いします。

以上です。

kobouzu_su · Answer

またまた登場、kobouzuです。

現在までの情報でサンプルコードをアップしてもいいのですが、
一発で完璧なコードにした方がベターなのでも少しお訊ねします。

●現在は、顧客番号指定ではなくて、行番号を指定しているようですが、
今回は、顧客番号指定でやりたいのですね？？？？

これはとても重要なことです。
何故なら、開始終了顧客番号をセットする、ということは
先の投稿でお訊ねしましたが
　　あ行の顧客番号：１００～１９９
　　い行の顧客番号：２００～２９９
と決まってないと無理だからです。
なので、先の回答で質問しましたが、それに対する回答はありませんね。(^^;;;


●シート「レイアウト」について。

＞い行（40～90迄とする）を印刷するときは
＞全部で4ページになりますが、3ページ分をFor mycounter = 1 To 3とし

＞13件分のみ顧客番号を入力し直し3ページのみ設定2のシートで連続印刷し
＞残りの79～90までの11人分の顧客番号は、
＞レイアウトシートのセルO2に直接手動入力し設定2シートを使わず
＞その場合だけファイル→印刷→選択範囲のみ印刷というように印刷しています。

このように最後が１３件に満たない場合は、残り１１件分のみを範囲設定して印刷するということですね。
余り２件分は空白で印刷するのではなくて、１１件分印刷でいいんですね。

このような場合も自動で印刷しないと意味がありませんので、
最後を判断させる為に、シート「レイアウト」のレイアウトが必要です。
使用している列はどの列からどの列までか、
また、印刷するのはどの列からどの列までかということと、
最後の行を自動で判断するために、最後の行に必ず値が入っている列があるか、
あればどの列か。

これが分かると、
sita1 = Sheets("設定2").Cells(4, 2)
migi1 = Sheets("設定2").Cells(5, 2)
これは自動で求めることができますので不要になります。


●それから、
「住所録」シートに１列増やして、そこに、顧客の読みの頭１桁（あ、とか、い）を入力しておくと、
「設定」シートに開始終了顧客番号（現在は、行番号）を設定しなくても
あ、とか、い、を設定すればより簡単になりますよね。

少しでも早く解決したいときは、頻繁にここを覗くようにしてください。
以上です。

kobouzu_su · Answer

こんにちは。

質問の件は簡単にできますが、それにはも少し補足が必要です。


（あ行）をプリントするときは、

      For mycounter = 1 To 5

では、（い行）をプリントするときはどうしているんでしょうか。

 　　For mycounter =　●●　To　▲▲

また、開始終了顧客番号を入力して印刷ですから、
顧客番号は、例えば
　　　あ行：　１００～１９９
　　　い行：　２００～２９９
　　　以下同様
と決まっているんですね？　　　　

また、当然、（住所録）シートと（レイアウト）シートは、異なったレイアウトになっており、
（レイアウト）シートは、１頁のみで、１３顧客が入るようになっていて、1頁埋まる毎に印刷、してるんですよね。
　
少なくともこれらが分かると的確な回答が寄せられると思いますよ。
　
以上です。

NOBNNN · Answer

何をどこからどのように具体的なポイントがわかりません。

まず、コピー元のSheets("住所録(会社)"). はどんな形式のデータなのか顧客の住所録のリストですか？
でそれはどんなアクションをしたらどのように出力先に加工すればいいのか？
まったく不明です。

もし、ただ単にデータを抽出したいなら　Findメソッドやオートフィルタ機能を使えば実現できますし、他の方法では　別なセルに入力式を
OR 演算式 =IIF( 顧客番号　> 1000 and 顧客番号　> 1020, True,false)
というようにして（実際には１０００と 1020,は別なセルの値）
TRUEの行データをだけを処理するようにとか・・・

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

またまた登場、kobouzuです。

kobouzuです。

この回答への補足

こんにちは。

この回答への補足

またまた登場、kobouzuです。

この回答への補足

こんにちは。

この回答への補足

何をどこからどのように具体的なポイントがわかりません。

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング