ここから本文です

マクロの質問です。

aia********さん

2015/11/214:43:00

マクロの質問です。

(画像参照願います)
番号管理表を作りたいのですが、マクロ初心者なもので、roopを使用する等
ほんの一部分では考えられても全体を作る事が出来ず、
皆様にお力をお借りしたく質問させて頂きました!

【やりたい事】

●Sheet1に手動で開始番号と部数を入力し、「印刷する」ボタンを押します。

①Sheet2・Sheet3(画像にはSheet3がないのですが、Sheet2と全く同じものがSheet3にもあります)
にSheet1の開始番号から部数(1つ目)で入力した数の通番を入れて、Sheet2とSheet3をそれぞれ1枚印刷。

②次に①の最後に使った番号の次の番号から、Sheet1の部数(2つ目)の数だけ通番をSheet2・Sheet3に入れて、Sheet2とSheet3をそれぞれ1枚印刷。

③次に②の最後に使った番号の次の番号から、Sheet1の部数(3つ目)の数だけ通番をSheet2・Sheet3に入れて、Sheet2とSheet3をそれぞれ1枚印刷。

・・・・とこれをSheet1の部数が空白になるまで繰り返す。

サンプル画像でいうと、結果は・・・
書類No欄に100101~100105が入ったSheet2・Sheet3が各1枚
書類No欄に100106~100110が入ったSheet2・Sheet3が各1枚
書類No欄に100111~100120が入ったSheet2・Sheet3が各1枚
書類No欄に100121~100125が入ったSheet2・Sheet3が各1枚
書類No欄に100126~100145が入ったSheet2・Sheet3が各1枚
書類No欄に100146~100155が入ったSheet2・Sheet3が各1枚 の合計12枚が印刷されている。

※Sheet2・Sheet3の書類Noは、2行ずつが統合されております。(サンプル画像参照)

どうか、どうか、ご教示頂けます様お願い申し上げます!!

Sheet2・Sheet3,Sheet1,通番,部数,書類No欄,Sheet1.Range,Sheet2.Range

閲覧数:
63
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

aka********さん

2015/11/222:55:44

下記を お試しください。

Sheet1.Select
L = Range("C" & Rows.Count).End(xlUp).Row
For I = 4 To L
Sheet2.Range("A4:A100") = ""
Sheet3.Range("A4:A100") = ""
For J = 1 To Sheet1.Range("C" & I)
Sheet2.Range("A" & (J - 1) * 2 + 4) = Sheet1.Range("C2") + J - 1
Sheet3.Range("A" & (J - 1) * 2 + 4) = Sheet1.Range("C2") + J - 1
Next
印刷
Sheet1.Range("C2") = Sheet1.Range("C2") + Sheet1.Range("C" & I)
Next

印刷のサブルーチは そちらで 記入ください。
上記で 希望どおりのNoは 出るはずです。

なお 書類Noのクリアー行
Sheet2.Range("A4:A100") = "" は そちらの最大部数に 合わせてください。

  • 質問者

    aia********さん

    2015/11/613:31:36

    希望通りにできました!!
    ありがとうございます!!
    助かりました★

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

質問した人からのコメント

2015/11/6 13:32:06

希望通りにできましたのでベストアンサーとさせて頂きました!
ありがとうございました!

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる