Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


63723 / 76732 ←次へ | 前へ→

【17603】Re:転記がうまく出来ない
回答  かみちゃん  - 04/9/3(金) 10:14 -

引用なし
パスワード
   こんには。かみちゃん です。

横から失礼します。

>データシートの番号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

0 hits

【17591】転記がうまく出来ない NAO 04/9/2(木) 23:46 質問
【17596】Re:転記がうまく出来ない ichinose 04/9/3(金) 7:09 発言
【17602】Re:転記がうまく出来ない NAO 04/9/3(金) 9:43 質問
【17603】Re:転記がうまく出来ない かみちゃん 04/9/3(金) 10:14 回答
【17604】Re:試みてみます NAO 04/9/3(金) 10:49 質問
【17617】Re:ありがとうございました NAO 04/9/3(金) 12:58 お礼
【17601】Re:転記がうまく出来ない かみちゃん 04/9/3(金) 9:33 回答
【17615】Re:転記OKです! NAO 04/9/3(金) 12:50 お礼
【17619】Re:印刷部分が・・ NAO 04/9/3(金) 14:02 質問
【17620】Re:印刷部分が・・ かみちゃん 04/9/3(金) 14:17 回答
【17622】Re:印刷部分が・・うまくいきました NAO 04/9/3(金) 14:33 お礼

63723 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free