2003Excel 別シートからのセル代入保存繰り返し方法について

質問

エクセル初心者です。
仕事の資料作成でとても困っています。
分かる方教えてください。

エクセルシート１と２があるとします。

シート１
　　A　B　C　D
１　　
２　　
３
４
・
・
・

シート２
　　E　　F　　G　　H
５　○　 ×　 △　　
６　▲　 ☆　 ★　　
７　□　 ▽　 ●
８　　　・
９　　　・
１０　　・
１１　　・
・　　　・
・　　　・

【シート１のA１、A２、A３にシート２の５E、５F、５Gを入れて名前を付けて保存】
シート１
　　A　B　C　D
１　○
２　×　
３ △
４
【シート１のA１、A２、A３にシート２の６E、６F、６Gを入れて名前を付けて保存】
シート１
　　A　B　C　D
１　▲
２　☆　
３ ★
４
【シート１のA１、A２、A３にシート２の７E、７F、７Gを入れて名前を付けて保存】
　　　　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　　　　・

と言うのを繰り返したいのですが分かる方教えて頂けませんか？
宜しくお願いします。

回答No.3

wareware7

No.1です。
サイトに公開されているようなマクロはあくまでも例なので
そのままコピペでは思ったように動かない場合が多く
必ずと言っていいほど、環境に合わせた手直しが必要になります。
なので面倒ですが、地道に手作業でされる事をオススメします。
これからマクロ（VBA）を勉強して、手直しをして・・・とやっている間に
終わっちゃうと思いますよ（＾＾）

ちなみに、完全に決め撃ち（このセルをここにコピペして、ファイル名はこう！みたいな感じ）でざっくり作って見ました。
もし、マクロの勉強をされるようなら参考にしてみてください。

http://kissho.xii.jp/1/src/1jyou95030.xls.html
DLKeyは1です。

※ファイルはデスクトップに保存して下さい。
　マクロを有効にして、シートの内容を確認した後
　ツール→マクロ→マクロから実行ボタンを押して下さい。

参考URL：

http://excelvba.pc-users.net/

回答No.2

135ok

１例として、ご参考程度で。
添付資料を参照下さい。

sheet2
表から、シート１に表示方法に変換させる。
Ｂ１　ここにＤ列の数字を入れて変化させる。
Ｂ２　=OFFSET($D$4,MATCH($B$1,$D$5:$D$1000,0),MATCH(A2,$E$4:$G$4,0))

次に、次の作業をマクロで記録する。
１　マクロの記録開始
２　黄色の部分をコピーする。
　　*色づけは参考のため。
３　シート１に　形式を選択→値で貼り付け。
４　マクロの記録終了。
５　表示→ツールバー→フォームでボタンを作成。
６　ボタンにマクロの登録。

作業として、Ｂ１にＤ列の数字を入力しボタンを押せば、シート１に値が表示されます。

保存方法等は、シートをコピーして保存するなりすればよろしいかと。

回答No.1

wareware7

手作業でとなると大変なのでマクロで完全自動化できませんか？というご質問でしょうか？
もしそうなのであれば、マクロを作成する場合、問題となる点が1つ。
「名前を付けて保存」です。
マクロを使ったとしても保存のタイミングでファイル名を入力しないといけなくなる為
完全自動化には出来ません。
「名前をつけて保存」ではなく自動でその都度シートを増やしていくとか
シート1、シート2の様な規則性のある名前でどんどん自動保存してしまうといった方法であれば可能だと思います。

お礼

さっそくのご回答ありがとうございます。
保存するシートの数は、１００シートほどあり、１シートで１つのエクセルファイルで保存することを考えています。現状完全自動化までは、考えていません。
決まったファイル名があるので、マクロと言うのが出来るのであればコピペを考えています。
今回作成する上で参考になるサイトなどあれば教えていただけないでしょうか？
どうかご教授して頂けないでしょうか？

宜しくお願いします。