|
こんには。かみちゃん です。
横から失礼します。
>データシートの番号1〜5をラベルシートの左側半分の所定の位置に、番号6〜10を
>同じラベルシートの右側半分の所定の位置に転記し、印刷。印刷が終われば、番号11〜15を左に、番号16〜20を右側にと繰り返していきたいと考えています。
であれば、最初のご質問の
> まず、データシートの番号1〜5(2行目から6行目)を作業シートのセル"A1"にコピーする。
>
> 作業用シートの内容をラベルシートの右側半分の所定の位置に転記する。
は、違うということでいいですか?
違うのであれば、先ほど私が提示したコードも違いますので、以下の部分を差し替えてください。
'作業用シートのデータをラベルシートに転記する
For j = h - (z - 1) * 5 To i - (z - 1) * 5
'名前
Worksheets("ラベル").Cells(j * 10 - 18, 18 - (z Mod 2) * 15).Value = Worksheets("作業用").Cells(j - 1, 2).Value
'備考
Worksheets("ラベル").Cells(j * 10 - 18, 23 - (z Mod 2) * 15).Value = Worksheets("作業用").Cells(j - 1, 4).Value
'品名
Worksheets("ラベル").Cells(j * 10 - 11, 20 - (z Mod 2) * 15).Value = Worksheets("作業用").Cells(j - 1, 3).Value
'番号
Worksheets("ラベル").Cells(j * 10 - 11, 28 - (z Mod 2) * 15).Value = Worksheets("作業用").Cells(j - 1, 1).Value
Next j
|
|