エクセルにて表に入力→一覧に自動転記

質問

ＥＸＣＥＬ関数を利用した一覧の作成について質問です。

　　　Ａ　　　　　Ｂ　　　　　Ｃ　　　　　Ｄ　　　　～　　　　Ｘ
１　名　前　　金　額　　商品名　　配送先　　　～　　　返　金
２　近　藤　　2000　　　砂　糖　　栃　木　　　～　　　　500

上記のような表があり、Ａ２～Ｄ２の各項目が毎日違う値になるとします。
その値を、別のシート（下記）に毎日自動転記したいのですが、
どのようにすれば宜しいでしょうか？
上の表はほんの一例です。表の値を出すためにも別の表で関数を
駆使して集計や計算をし、それが上の表に出てくるので、をれを
手入力で毎日一覧に転記するとミスが生じてしまうのです。

やはり、ＥＸＣＥＬだけでは限界ですか？
ご存知の方、宜しければ教えてください！
　　　　　　Ａ　　　　　Ｂ　　　　　Ｃ　　　　　～　　　　　Ｘ
　　　　　名　前　　金　額　　商品名　　　～　　　返　金
○月１日　近　藤　　2000　　　砂　糖　　　～　　　　500
○月２日　鈴　木　　5000　　　　塩　　　　～　　　　200
○月３日　田　中　　3000　　　砂　糖　　　～　　　　800
　・
　・
○月３１日　星　　　3000　　　銀　杏　　　～　　　　100

回答No.4

imogasi · ベストアンサー

#2です。
＞マクロを併用していろいろやってみます。
マクロの記録だけではだめですよ。
VBAでやる上で、役立ちそうなコードを挙げておきます。あくまで１つの方法です。自分の場合、私の例とどう違うので、コードのどこをどう修正したらよいかを、色々試行錯誤してみてください。
Ｓｈｅｅｔ１
Ａ１に日付をいれ、データは第２行目から、Ａ－Ｃ列で
山田 リンゴ 2
木下 もも 1
上野 柿 4
これを打ち込んで、コマンドボタンをクリック。
Ｓｈｅｅｔ２はＡ－Ｄ列
2006/12/25 山田 リンゴ 2
2006/12/25 木下 もも 1
2006/12/25 上野 柿 4
となる。
Ｓｈｅｅｔ１でＡ１は新日付を打ち直し。
第２列以後はクリアして打ち直し。
2006/12/26
大野 イチゴ 12
垣田 みかん 5
池下 さくらんぼ 7
コマンドボタンをクリック。
Ｓｈｅｅｔ２は
2006/12/25 山田 リンゴ 2
2006/12/25 木下 もも 1
2006/12/25 上野 柿 4
2006/12/26 大野 イチゴ 12
2006/12/26 垣田 みかん 5
2006/12/26 池下 さくらんぼ 7
ーーー
実行に先立ち、前もってやっておくこと
（１）Ｓｈｅｅｔ１にコマンドボタンを置く方法
表示ーツールバーーコントロールツールボックスのコマンドボタンをシート状にＤ＆Ｄ
（２）
ＶＢＥの標準モジュールに
Sub tuika()
l1 = Worksheets("Sheet1").Range("A65536").End(xlUp).Row 'Ｓｈｅｅｔ１の最終行
l2 = Worksheets("Sheet2").Range("A65536").End(xlUp).Row 'Ｓｈｅｅｔ２の最終行
For i = 2 To l1 'Ｓｈｅｅｔ１の第２行目から最終行まで
'--Ｓｈｅｅｔ２の最終行以下へＳｈｅｅｔ１よりデータを持ってくる。
Worksheets("Sheet2").Cells(l2 + i - 1, "A") = Worksheets("Sheet1").Range("A1")
Worksheets("Sheet2").Cells(l2 + i - 1, "B") = Worksheets("Sheet1").Cells(i, "A")
Worksheets("Sheet2").Cells(l2 + i - 1, "C") = Worksheets("Sheet1").Cells(i, "B")
Worksheets("Sheet2").Cells(l2 + i - 1, "D") = Worksheets("Sheet1").Cells(i, "C")
Next i
End Sub
をコピー貼り付け。
（３）ボタン上で右クリックし、マクロの登録で、「tuika」を指定。
ーーー
本当はクリックを忘れて累積されなかったとか、２回クリックして、重複累積したり、コマンドボタンがシートコマンドボタンの問題はマクロボタンをツールバーに作る方法など勉強（ＷＥＢ照会など）してください。

お礼

ご回答ありがとうございました！

回答No.6

shinkami

同じデータを複数のファイルに作成するのは感心しません。
シートは一つで考えられませんか？

例から推察しますと日々の集計表の作成のような
元シートに日付の列を追加して、Excelの集計機能を使っては

また集計表にはD列以下(X列を除く)の項目は不要ですね、
印刷の前に不要な列名(D、,E、…)を右クリックして「表示しない」にします

上記の操作をマクロに組むと仕事の効率が上がりますよ

お礼

ご回答ありがとうございました！

回答No.5

goowon

質問の主旨は入力帳票と集計表を別にしたいと考えて
集計結果を印刷したいと仮定します。

■ちょいとかじった程度なんで、ＶＢＡとなると・・・
初心者と思ってアドバイスします。
入力帳票を○月○日の表に直接入力されたら如何でしょう。
難しいテクニックを使うより良いと思います。
その場合表の行が長くなりますので

　Ａ　　　　　Ｂ　　　　　Ｃ　　　　　～　　　　　Ｘ
名　前　　金　額　　商品名　　　～　　　返　金

表題をスクロールしないように画面を固定されたら如何でしょう。
ウィンドウ→ウインドウ枠の固定でＯＫです。他にも方法があります。
検索用にデータ番号、あるいは日付を入力された方が役立つでしょう。

■出力帳票を別シートにつくり印刷されたら如何でしょう。
先ほどのデータ番号あるいは日付でデータを抽出されたら如何でしょう。抽出関数（Vlookup）
http://www.kenzo30.com/ex_kisotyu/ex_ks_tyukyu9_9_4.htm

質問を勝手に解釈してアドバイスしました。悪しからず。

お礼

ご回答ありがとうございました！

回答No.3

s_nak

まぁ手動が少し必要になりますが、・・・、マクロが使えるのなら、コピーしたい頁のA2で「End」「→」キーなどを使った範囲指定とコピーを行うマクロを作り、コピーしたい先の先頭セルにカーソルを移動して、そこにペーストを行うマクロを作ればいいのでは？

VBAを使えば、imogasiさんの仰るように自動化できますが、・・・解答を書く人はいないと思う。

お礼

ご回答ありがとうございました！

回答No.2

imogasi

＞ＥＸＣＥＬだけでは限界ですか
そうではない。「エクセル」の限界ではない。エクセルＶＢＡのことが全く出てきませんが、ご存知ですか。知らないとすれば、仕事にエクセルを使うのは、頭で考えると簡単なことも、簡単にできなくて相当我慢しなければなりません。
手作業で相当補わないとダメだから。例えば再入力やコピー・貼り付けなど併用でしてやる必要が出てきます。
ーー
同じシートの同じ行に（昨日のデータの上書き、または消して上書きをして）、日ごとに
順に、累積した行データを残すのは、（マクロを使わないと）関数では至難の業です。というより、できないでしょう。

お礼

回答ありがとうございます。

なるほど・・・・至難の業ですか・・・。ちょいとかじった程度なんで、ＶＢＡとなると全然わからないっす(T_T)
マクロを併用していろいろやってみます。

回答No.1

web2525

その日の結果（転記元）の表のデータは１行だけですか？
転記先の表には日付が入っていますが、最終列はＸのままという事は、Ａ列には日付＋名前のデータが入るのでしょうか？

質問の内容だけですとただ単に行をコピーして貼り付けて名前の頭に日付を追加だけのようなのですが・・・・・
この操作の何をミスしてしまうのでしょうか？

ミスが生じるという事はもっと複雑な何かがあるのではないですか？

関数だけでの処理は難しいと思うので、マクロでの処理となると思いますが、この程度の処理であればわざわざマクロを作成しなくても【マクロの記録】で手順を記録させるだけで対応可能かと思います。

お礼

ご回答ありがとうございます。
Ａ列には名前だけが入ります。また、コピペなら質問をするまでもありませんが、一応関数やマクロを使って「自動転記」ということでＥＸＣＥＬのみで出来るかどうか、またその方法のヒントを教えていただきたかったのです。