Excel VBA質問箱 IV

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

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


16551 / 76738 ←次へ | 前へ→

【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なら、表1(基準)のまま
数値が2なら3〜4の表にし、5行にSUM関数を入れる
数値が3なら3〜5の表にし、6行にSUM関数を入れる

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


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

0 hits

【65652】入力した数値分の表を作成したい あや 10/6/18(金) 16:23 質問
【65656】Re:入力した数値分の表を作成したい Jaka 10/6/18(金) 16:58 発言
【65658】Re:入力した数値分の表を作成したい あや 10/6/18(金) 17:04 質問
【65662】Re:入力した数値分の表を作成したい 芋洗い五段 10/6/18(金) 23:41 回答
【65666】Re:入力した数値分の表を作成したい neptune 10/6/19(土) 13:40 発言
【65677】Re:入力した数値分の表を作成したい あや 10/6/21(月) 15:51 お礼

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