Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

16620 / 76807

←次へ　｜　前へ→


	【65652】入力した数値分の表を作成したい

あや - 10/6/18(金) 16:23 -


	引用なし

	パスワード

セル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なら、表１（基準）のまま
数値が2なら3～4の表にし、5行にSUM関数を入れる
数値が3なら3～5の表にし、6行にSUM関数を入れる

一度、10にしたものを4にした場合　1～4の表にする
一度、5にしたものを10にした場合　1～10の表にする

足りない情報があれば、追記します。
考え方を頂ければ調べながら作成していきたいと思います。
調べながらになるので
確認が遅くなるかもしれませんが、よろしくお願いいたしますm(_ _)m

1 hits

▼

【65652】入力した数値分の表を作成したい あや 10/6/18(金) 16:23

≪