エクセルでデータを蓄積させるには？

エクセルで、入力用雛形シートと、蓄積用リストシートを作ります。入力雛形にデータを入力すると、リスト画面に蓄積されるにはどうすればいいでしょうか？保存ボタンを押すと入力したデータがリストに順々に保存されていくという形にしたいのですが・・・入力雛形はリスト画面に蓄積された（保存ボタンを押した）後、クリアさせるようにもしたいです。マクロは初心者です。教えて下さい。

No.1 回答者： n-jun 回答日時： 2007/09/05 10:32

>入力用雛形シートと、蓄積用リストシートを作ります。

出来ているのですか？
出来ているのならシートレイアウトを提示された方がいいです。

>保存ボタンを押すと
ボタンは作れますか？

この回答への補足

シート、ボタンは作っています。ボタンはフォームより作りました。そのボタンにどのようなマクロを入れればいいのでしょうか？

補足日時：2007/09/05 12:53

No.2 回答者： n-jun 回答日時： 2007/09/05 13:18

どのセルにデータがあり、どこに転記等を行ないたいのか、

提示されては？

シート状態を見られない分、情報は多く必要です。

この回答への補足

すみません・・・どのように提示すればよいのでしょうか？

補足日時：2007/09/05 13:59

No.3 回答者： n-jun 回答日時： 2007/09/05 14:25

入力用雛形シートから蓄積用リストシートへ転記したいセル番地が

どこにあるのか？

【入力用雛形シート】
　　A　　　B　　　　C
1　日付　会社名　担当者
2　9/5　　YYY　　　KKK
3
4　天気　湿度
5　雨　　00%
とあった場合、転記したいのは
セルＡ２、Ｂ２、Ｃ２、Ａ５、Ｂ５

【蓄積用シート】
　　A　　　B　　　C　　　　D　　　E
1　日付　会社名　担当者　天気　　湿度
2　9/5　　YYY　　KKK　　　雨　　　00%
3　9/6　　XXX　　LLL　　　雨？　　90%

転記したいセル位置と転記する位置がこのようにわかれば、
回答がつきますよ。

この回答への補足

備品を管理する台帳を作るので・・・
【入力用雛形シート】
　Ａ　　　　　　Ｂ　　　　　Ｃ
１区分　　　　　国語
２機能別分類　　教材
３品名　　　　　漢字スキル
セルＢにデータを入力していきます。セルＡが入力する項目名です。
転記したいのはＢ１、Ｂ２，Ｂ３です。
雛形の横に保存ボタンを作る。保存ボタンを押すと蓄積用シートへデータが転記される。（データを転記させた後、雛形へ入力したデータは残しておくこともできますか？クリアせずに。）

【蓄積用シート】
　Ａ　　Ｂ　　　Ｃ　　　Ｄ
１１　　国語　　教材　　漢字スキル
２２　　
３３　　
セルＡには通し番号を。保存ボタンを押すとＢ１、Ｃ２、Ｄ３に転記される。
保存ボタンにはマクロを記録するのですよね？
そのマクロが分からなくて・・・

補足日時：2007/09/05 19:27

No.4 回答者： saborima 回答日時： 2007/09/05 14:53

単純な方法としてデータフォーム機能を使う手がありますがそれでは物足りませんか？

参考URLご覧ください。

参考URL：http://dreamy.boy.jp/kihon9.htm

この回答への補足

フォームのやり方も知らなかったので参考になりました。ありがとうございます。

補足日時：2007/09/13 18:13

No.5 回答者： n-jun 回答日時： 2007/09/05 20:21

>そのマクロが分からなくて・・・

取り敢えず、蓄積用シートの１行目は項目が入っているとして、
　　A 　B 　C　　　　　Ｄ
1　ＮＯ　　区分　機能別分類　　品名
2　１　　　国語　　教材　　　漢字スキル
3
２行目からデータを追加していく。
とおし番号は１から。

Dim WS1 As Worksheet
Dim WS2 As Worksheet
Dim r1 As Range, r2 As Range

Set WS1 = Worksheets("Sheet1")
Set WS2 = Worksheets("Sheet2")
Set r1 = WS1.Range("B1:B3")
Set r2 = WS2.Range("B" & Rows.Count).End(xlUp).Offset(1)

r2.Resize(, 3).Value = Application.Transpose(r1)
r2.Offset(, -1).Value = r2.Row - 1

ボタンのマクロの中に上のコードを入れてみて下さい。
Sheet1　と　Sheet2　は実際の名前に変更して下さい。

この回答への補足

すみませんが、このマクロの意味を教えて下さい。
項目を増やしたのでマクロも書き換えなくてはいけないですよね？

補足日時：2007/09/13 09:44

No.6 ベストアンサー 回答者： n-jun 回答日時： 2007/09/13 15:33

Dim WS1 As Worksheet '変数の宣言：シート１

Dim WS2 As Worksheet '変数の宣言：シート２
Dim r1 As Range, r2 As Range 'セル（Range）の宣言　シート１＆２用

Set WS1 = Worksheets("Sheet1") '変数WS1にシート１をセット
Set WS2 = Worksheets("Sheet2") '変数WS2にシート２をセット
Set r1 = WS1.Range("B1:B3") '変数r1にシート1のセルB1：B3をセット

Set r2 = WS2.Range("B" & Rows.Count).End(xlUp).Offset(1)
'変数r2にシート2のＢ列最終行の1つ下をセット

r2.Resize(, 3).Value = Application.Transpose(r1)
'変数r2でセットされたセルから、右に２個増やした
'セル３個分に、r1でセットされた３個のセルを
'行列入替え（縦並びを横並びに）て代入する

r2.Offset(, -1).Value = r2.Row - 1
'シート２のＢ列（r2）の１つ左（Ａ列）に
'行番号から１引いた数を代入する。
'（項目行の分だけ１引いて調整してる）

>項目を増やしたのでマクロも書き換えなくてはいけないですよね？
どのように増やすのかも提示された方が、回答がスムーズにいくと思います。

取り敢えず、シート１の項目が３つでない場合なら、
Set r1 = WS1.Range("B1:B3")
Ｂ１：Ｂ３を実際の範囲に合わせる。（例・Ｂ１：Ｂ６とか）
r2.Resize(, 3).Value = Application.Transpose(r1)
３を実際のセル個数にあわせる。（例・Ｂ１：Ｂ６なら６とか）

この回答へのお礼

とても詳しい説明ありがとうございました！
本当に助かりました（涙）
またよろしくお願いします。

お礼日時：2007/09/13 18:12