vbaについての質問です。 画像の様な１枚の用紙に5ラベル印刷できるシートと、ラベルに項目を差し込む

vbaについての質問です。
画像の様な１枚の用紙に5ラベル印刷できるシートと、ラベルに項目を差し込む為のマスターシートがあります。
リストに入力した項目を指定のラベル枚数、印刷をしたいです。

仮に印刷欄に8ラベルの指定があった場合、その項目を5ラベルに差し込み、一度印刷、次に残りの3ラベル差し込み、印刷。といったプログラムを組みたいのですが、よくわかりません。
ご教授願いたいです。宜しくお願いします。

No.2 ベストアンサー 回答者： Qchan1962 回答日時： 2021/01/24 19:16

＃１です

結合セルですね。。そのままだと、エラーが出てしまうかと、、すみません
Set rg = .Range("B3,B5:B6,B11,B13:B14,B19,B21:B23,B27,B29:B30,B35,B37:B38")
を
Set rg = .Range("B3:C9,B11:C17,B19:C25,B27:C33,B35:C41")
にしてください。
出力に関しては、MergeArea(1, 1)なのでそのままでも実行できますが、
気になれば、（コードを見て結合セルに対してと把握する為）
.Cells(3 + n, 2).MergeArea(1, 1).Value = .Cells(i, 6).Value
などとしておいた方が良いかも知れません。

また、I列の値が文字だと型エラーが発生すると思います。
IsNumeric関数　IsNumeric(値)などで実行前にチェックするのが良いと思います。
ついでに　nの値は、出力先が８行づつ移行する変数です。

No.1 回答者： Qchan1962 回答日時： 2021/01/24 18:33

こんばんは、

どの様に回答すれば良いのかわかりませんが、
掲示の表において、なさりたい事を条件分岐で考えると下記のような流れになると思います。（一例です）
多分このままでも処理できると思いますが、ステップ実行などで処理の流れを確認してください。基本的にベタ書きなので分かると思います。
3行だけなので.value=.valueですが、offsetなどに書き替えても良いかも知れません。
.PrintPreview　としていますので即プリントする場合は.PrintOutなどとして場合によっては、他の制御を加えた方が良いかも知れません。
表示のシートで実行されます。With ActiveSheet　シートは明示した方が良いと思います。。

Sub a()
Dim i As Long, ii As Long
Dim n As Long: n = 0
Dim rg As Range
　With ActiveSheet
　　Set rg = .Range("B3,B5:B6,B11,B13:B14,B19,B21:B23,B27,B29:B30,B35,B37:B38")
　　rg.ClearContents
　　For i = 4 To 6
　　　If .Cells(i, 9).Value <> "" And .Cells(i, 9).Value > 0 Then
　　　　For ii = 1 To .Cells(i, 9).Value
　　　　　If .Cells(3 + n, 2).Value <> "" Or n > 32 Then
　　　　　　.PrintPreview
'　　　　　　.PrintOut
　　　　　　rg.ClearContents
　　　　　　n = 0
　　　　　　.Cells(3 + n, 2).Value = .Cells(i, 6).Value
　　　　　　.Cells(5 + n, 2).Value = .Cells(i, 7).Value
　　　　　　.Cells(6 + n, 2).Value = .Cells(i, 8).Value
　　　　　Else
　　　　　　.Cells(3 + n, 2).Value = .Cells(i, 6).Value
　　　　　　.Cells(5 + n, 2).Value = .Cells(i, 7).Value
　　　　　　.Cells(6 + n, 2).Value = .Cells(i, 8).Value
　　　　　End If
　　　　　If ii < .Cells(i, 9).Value Then n = n + 8
　　　　Next
　　　End If
　　　If n <= 32 Then
　　　　n = n + 8
　　　Else
　　　　n = 0
　　　End If
　　Next
　　.PrintPreview
'　　.PrintOut
　End With
End Sub