|
セルA1に 1〜100の数字を入力し、Enterすると
入力した数値分の表を作成したい。
【表1】
A B C
1 1
2 ナンバー 商品名 金額
3 1
4 =sum(A3:A3)
【表2】
A B C
1 5
2 ナンバー 商品名 金額
3 1
4 2
5 3
6 4
7 5
8 =sum(A3:A5)
- 考えたこと -
下記マクロにて 入力した数値分、行挿入で対応をしようとしましたが
A1の変更をした場合、どんどん行が増えていきます。
A1の数値が減った場合の対応も出来ません。
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then
Exit Sub
Else
Application.CutCopyMode = False
Range("3:" & Int行数).Insert
Endif
End sub
数値が1なら、表1(基準)のまま
数値が2なら3〜4の表にし、5行にSUM関数を入れる
数値が3なら3〜5の表にし、6行にSUM関数を入れる
一度、10にしたものを4にした場合 1〜4の表にする
一度、5にしたものを10にした場合 1〜10の表にする
足りない情報があれば、追記します。
考え方を頂ければ調べながら作成していきたいと思います。
調べながらになるので
確認が遅くなるかもしれませんが、よろしくお願いいたしますm(_ _)m
|
|