マクロで自動連番(1/?)の入った現品票を作成
シート1現品表には雛形(4枚分)
シート2にはデータがあります。(1列7行)
シート2は全て文字列で、毎回手入力します。
手入力完了後マクロを起動したら
シート1の指定セルがシート2の指定したセルに転記されたら印刷、
を繰り返しシート2の入力データから計算して決めた回数で停止。
さらにシート1の
セルD9,D21,D33,D45に連番(1/?)を振りたいです。
↓
シート2のセルC6÷C9÷4=転記と印刷回数とD9,D21,D33,D45の値が決まる
例えば
C6→100
C9→10
だと100÷10÷4=2.5
転記回数は3回
印刷も3回。
連番は1/10~10/10。
シート2のセル → シート1のセルで表現しています。
1回目転記
シート2のC3 → シート1のB4,B16,B28,B40
シート2のC4 → シート1のB5,B17,B29,B41
シート2のC5 → シート1のB6,B18,B30,B42
シート2のC6 → シート1のB7,B19,B31,B43
シート2のC7 → シート1のB8,B20,B32,B44
シート2のC8 → シート1のB9,B21,B33,B45
シート2のC9 → シート1のF9,F21,F33,F45
1/10と転記 → シート1のD9
2/10と転記 → シート1のD21
3/10と転記 → シート1のD33
4/10と転記 → シート1のD45
↓
印刷1回目
↓
2回目転記
シート2のC3 → シート1のB4,B16,B28,B40
シート2のC4 → シート1のB5,B17,B29,B41
シート2のC5 → シート1のB6,B18,B30,B42
シート2のC6 → シート1のB7,B19,B31,B43
シート2のC7 → シート1のB8,B20,B32,B44
シート2のC8 → シート1のB9,B21,B33,B45
シート2のC9 → シート1のF9,F21,F33,F45
5/10と転記 → シート1のD9
6/10と転記 → シート1のD21
7/10と転記 → シート1のD33
8/10と転記 → シート1のD45
↓
印刷2回目
↓
3回目転記
シート2のC3 → シート1のB4,B16
シート2のC4 → シート1のB5,B17
シート2のC5 → シート1のB6,B18
シート2のC6 → シート1のB7,B19
シート2のC7 → シート1のB8,B20
シート2のC8 → シート1のB9,B21
シート2のC9 → シート1のF9,F21
9/10と転記 → シート1のD9
10/10と転記 → シート1のD21
↓
印刷3回目
↓
終了
としたいです。
またC6÷C9÷4=転記と印刷回数
の時に
C6÷C9の時点で小数点が発生する場合は
最後の転記の時にC9の値をそのまま転記しないで
自動変更して転記したいです。
例
C6→27
C9→4
27÷4=6.75
4が6枚、3が1枚
転記2回、印刷2回
連番は1/6~6/6
1回目転記
シート2のC3 → シート1のB4,B16,B28,B40
シート2のC4 → シート1のB5,B17,B29,B41
シート2のC5 → シート1のB6,B18,B30,B42
シート2のC6 → シート1のB7,B19,B31,B43
シート2のC7 → シート1のB8,B20,B32,B44
シート2のC8 → シート1のB9,B21,B33,B45
シート2のC9(転記内容は 4 です) → シート1のF9,F21,F33,F45
1/6と転記 → シート1のD9
2/6と転記 → シート1のD21
3/6と転記 → シート1のD33
4/6と転記 → シート1のD45
↓
印刷1回目
↓
2回目転記
シート2のC3 → シート1のB4,B16,B28
シート2のC4 → シート1のB5,B17,B29
シート2のC5 → シート1のB6,B18,B30
シート2のC6 → シート1のB7,B19,B31
シート2のC7 → シート1のB8,B20,B32
シート2のC8 → シート1のB9,B21,B33
シート2のC9 → シート1のF9(転記内容は 4 です),F21(転記内容は 4→3に変更して転記)
5/6と転記 → シート1のD9
6/6と転記 → シート1のD21
↓
印刷2回目
↓
終了
マクロをどういうふうに組めばいいのか記述を教えてください。
お礼
ありがとうございます!検索してすべて置換で簡単にできました!ありがとうございました!