エクセルで（マクロ）で特定のデータのみ別シートに自動抽出・計算

質問

当方、関数は頻繁に使用するのですがマクロはほとんど使用することがないので、かなり昔にやったきり覚えておりません。今回至急でやらなければいけないので、ぜひともお力添えを頂きたく投稿しました。。

　ある部品の重量計算シートが型式違いで10シートあります。例えば丸(○)型部品の重量計算は、使用したい直径(φ)の寸法を選んで長さを入力すると自動的に重量が計算されるという計算式が入っています。丸型(○)は直径(φ)ですが、角型(□)ですと定尺寸法で決められています。
　そこで、ある製品を作るのに、どの部品をどれだけ(重量)必要かを見積りします。しかもその製品はユニット毎に分かれていて、(1)ユニット・(2)ユニット・・・多くて(8)ユニットまであります。
　例えば(1)ユニットで使用したい部品には、型式別(10シート)の部品の一番左列に"(1)"と記入していき、別シート(重量計算集計表)
にその部品名と重量が自動的に抽出され、数量を入力して総重量も自動計算されるようにしたいのです。同様に(2)ユニットなら"(2)"と記入し各シートから抽出。
　最終的に、先ほどの別シートに(1)ユニットでどんな型式の部品をどれだけ使用するか、(2)ユニット・・・も同様、それぞれユニットで使用する部品の型式とその内訳と重量が分かるようにし、さらに数量を手入力して使用合計重量を自動計算したいのです。
※但し、ユニット番号が入力されているものだけが抽出される。(全ての部品を使用するわけではありません）

＜○型シート＞　　　＜□型シート＞ ～～種類別シート10まで
(1)φ6 ・・・10g　　　(2)10*10 ・・・20g
(2)φ8 ・・・30g 　　 (1)20*20 ・・・30g
(1)φ10・・・50g　　 (3)30*30 ・・・40g
(3)φ12・・・60g　　　　 40*40 ・・・50g　←左端ににユニット番号がないものは抽出しない

　↓ ↓　↓　↓
＜別シート＞　(重量計算集計表)
（抽出）　　　　　　　　　数量(手入力)　 使用重量合計(自動計算)
(1) ○型φ6 ・・・ 10g　　　　　　　　　　2　　　　 　　　　20g
(1) ○型φ10・・・ 50g　　　　　　　　　　1　　　　　　　 　50g
(1) □型20*20 ・・・30g　　　　　　　　　 2　　　　　　　 　60g

(2) ○型φ8 ・・・ 30g　 　　　　　　　 3　　　　　　 　　 90g
(2) □型10*10 ・・・20g　 　　　　　　 5 　 　100g

(3) ○型φ12・・・ 60g 　　　　　　　 2 　　 120g
(3) □型30*30 ・・・40g　 　　　　　　 3 　　　 120g

　以上、文字間が不ぞろいの上、説明が不十分で申し訳ありませんが、何卒よろしくお願いいたします。m（_　_）m

回答No.4

ASIMOV · ベストアンサー

＞積算シートB2、C2、D2にエラーが出て、どうも上手くいきません

シート名（下のタブに表示されている名前）とＤ列に表示されている名前が合ってますか？
特に全角／半角の関係に注意してください

＞AシートとBシートに入力した際、積算シートにもコードを手入力しなければ、データが呼び出されないのでしょうか

Ａ／Ｂシートのデーター（行）が増えた場合は
D2 =IF(A2=0,"",LEFT(A2,1)&"シート!A2:C6")
の「A2:C6」の範囲を広げる必要が有ります
予め、データーの最大行数を見込んで、設定しておけば良いと思います
「A2:C100」とか．．

お礼

うまくいきました。まだまだ細かい部分を改善する必要がありますが、大まかにはできました。いろいろを知恵を貸して下さり本当にありがとうございました。m（_　_）m

回答No.3

ASIMOV

「○型シート」や「□型シート」はデーターベースの様なものですので、そこに直接積算の為のデーターを書き込むのは好ましくない様に思います

一般的には、VLOOKUP等を使って、データーベースのシートから積算のシートに必要なデーターを読み込んで計算するのが良いのではないかと思います

一例として．．．
VLOOKUPを使う場合、データーベースのシートが複数に分かれていると検索できませので、検索対象を動的に変更する必要があります
各部品にはコードを割り振り、コード入力で呼び出すようにします
一応「○型」がAシート、「□型」がBシートのイメージです

【積算シート】
B2 =IF($A2=0,"",VLOOKUP($A2,INDIRECT($D2),2,0))
C2 =IF($A2=0,"",VLOOKUP($A2,INDIRECT($D2),3,0))
D2 =IF(A2=0,"",LEFT(A2,1)&"シート!A2:C6")
以上を下方にコピーします

A列に部品コードを手入力すると、B,C列にデーターが呼び出されます
D列は非表示にしてもいいです
あと、必要に応じて数量、計等のセル（列）を増やします

【Aシート】【Bシート】
図を見てください

補足

ありがとうございます。VLOOKUPは頻繁に使用していますので慣れているはずなのですが・・・（´｀；
上記の通り作成してみましたが、積算シートB2、C2、D2にエラーが出て、どうも上手くいきません。何かポイントとなる事があるのでしょうか？
それと・・・ちょっとよく分からないのですが、AシートとBシートに入力した際、積算シートにもコードを手入力しなければ、データが呼び出されないのでしょうか？？何度もすみません、よろしくお願いいたしますm（_　_）m。。

回答No.2

ASIMOV

＞ユニット間で同じ部品を使用することも有リます

であれば、
＞(1)φ6 ・・・10g
では、対応できないのでは？

(1)(2)φ6 ・・・10g
とか、するのでしょうか．．．ちょっと無理があるような感じですが

補足

すみません。例えば(1)(2)でφ6を使用する場合、(1)の下に行挿入して(2)のデータを作っていきます。ですので、種類別シートのデータが増える可能性があります。
やっぱり無理がありますかね、他に良い方法があればよいのですが・・・（´_｀；

回答No.1

ASIMOV

【疑問】
ユニット間で部品がダブル事は無いのでしょうか？

例えば
ユニット(1)で、「○型φ6」を使っていますが、ユニット(2)でも同じ部品を使う場合があるとか．．．

補足

ご指摘ありがとうございます。説明不足ですみません。ユニット間で同じ部品を使用することも有リます。（・・；