ExcelのVBAに明るい方・・・

質問

Excelの、Sheet1　に
1日目，鈴木くん，点数，・・・
2日目，佐藤くん，点数，・・・
2日目，山田くん，点数，・・・
3日目，佐藤くん，点数，・・・
3日目，鈴木くん，点数，・・・
4日目，山田くん，点数，・・・
・・・
という、元ダネの一覧表があって、
このデータを日々追加入力していくごとに、自動的に、

Sheet2　には、鈴木くんのみの一覧表のデータ
1日目，鈴木くん，点数，・・・
3日目，鈴木くん，点数，・・・
・・・

Sｈｅｅｔ3　には、佐藤くんのみの一覧表のデータ
2日目，佐藤くん，点数，・・・
3日目，佐藤くん，点数，・・・
・・・

Sheet4　には、山田くんのみの一覧表のデータ
2日目，山田くん，点数，・・・
4日目，山田くん，点数，・・・
・・・

が、自動的に追加入力されるVBAの記述って、
どうすればいいんでしょうか？
VBAに明るい方、どうかよろしくお願いします。

回答No.2

imogasi · ベストアンサー

ニーズとしては、必要性を良く共感できます。
ご質問者は簡単な問題と思ったかどうか、判りませんが
検討して決めるべきことがあると思います。
１．例えば鈴木さんのシート（個人別シート）は何で判別するのか
（１）各シートの決まったセルに「鈴木」をいれる
（２）シート名を「鈴木ＸＸＸ」にする
（３）対応表を作る
（４）毎回作り直し
のどれにするか
２．プログラムはすべてキッカケがないと実行されません。それを何に求めるか。
「追加入力してゆくごとに」との兼ね合いが難しい。
（１）シートやフォームに貼りつけたボタン
（２）エクセルシートのイベント
（３）ＢｏｏｋのＣｌｏｓｅイベント
（４）タイマーのようなもの（自動バックアップのようなイメージ）
（１）は確実でコードが作り易いが、ボタンを押さないと実行されないので、シート１と個人シートの整合性で問題があるかも知れない。個人シートがどれくらいのタイミングで頻繁に利用されるのかと関係する。
（２）はイメージではピッタリなのだが、ＶＢＡレベルでは、どうもピッタリのものがなく、入力処理時にパソコンに負担がかかり、入力時にレスポンスが時間的間延びするかもしれない。
３．毎回個人シートに振り分けをやるとして
（１）毎回シート１を全行振り分けるか
（２）シート１の振り分けてない行のみを振り分けるか
（２）の場合シート１の各行と個人別シートに振り分け済みかどうかのサインが必要かと思う。
４．シート１（全体表）を行削除したとき、個人シートの該当行を削除するのか。
全体シート・個人別シートは行削除禁止か。
○いろいろ考えると、シート１を原本とし「テーブル」として、必要の都度個人表を「クエリ」で作成してみる（使う）アクセスなどの方式が、安定していて良くはないでしょか（アクセスを使うべし）。
○入力と同時に個人シートにも書きこむだけにするのが
簡単で良いかと思う。
○上記の点１－４を決めていただいても、具体的コードは、相当長く、熟達のスキルが必要で、忙しい人も多い中で、答えを上げ難いように予想する。
まあ、小システムを作るに等しい作業で、ＶＢＡのコード
を上げてくださる奇特な方が現れると良いですが。
不完全な形では関数を使っても出来そうですが、個人シートが関数だらけになり、個人シートで他の関数を使えず
お勧めできません。

お礼

ご回答ありがとうございます。
お礼が後れて申し訳ございません。

最初は、WorkSheet_Changeで、できそうだと
簡単に考えていたのですが、
入力の度に、原本をソート個人シートを全行書き換えることになると、
ご指摘くださった、

＞入力処理時にパソコンに負担がかかり、
＞入力時にレスポンスが時間的間延びするかもしれない

・・・んじゃないか？と心配になってしまいました。

いろいろ方法がありそうでも、
課題もいろいろありそうですね。

でも、やはり自分の言葉以外で、
考えを聞くことは大事で、
おかげで、頭の中が少し整理がつきました。

ソースをカキコしてくれる暇な人はさすがにいないかな（^^;

もう少し、考えてみます。
とにかくありがとうございました。

締め切りは、もう少しあとでしますね。

回答No.1

atokih

追加分だけを反映するとなると面倒なので、
毎回シート1のデータを全部検索して、シート２以降のデータを全部作り直すという構造のほうが簡単なんじゃないんでしょうか。

お礼

お礼が後れて申し訳ございません。
たしかに、そうするのが見やすそうですね。
ただ、けっこう、行数がありそうなんですよね。

ブックやシートのアクティヴの度の更新よりも、
できれば原本のデータ入力段階で、
個人データも書き換えたいのですが、
行が多くなると、速度とか大丈夫なのかなぁと思って、
どうしたほうが一番いいのか、分からなくなってしまいました。

ご回答ありがとうございます。
締め切りは、もう少しあとでしますね。