エクセルで条件を組み合わせて値を求める方法

質問

お知恵をお貸しください。
求めたいのは質量です。
Ａ列に材質　鉄、アルミ、樹脂
Ｂ列に形状　○、◎、□
Ｃ列～Ｅ列にそれぞれ寸法が入っています。（○の場合はＣ列が直径とＤ列が長さ）
Ｇ1～Ｇ３に鉄（3.8）、アルミ（2.7）、樹脂（1.4）とそれぞれの密度が入力されています。
条件式により
たとえば鉄の場合で形状が□の場合、Ｃ×Ｄ×Ｅ×＄Ｇ＄１として計算
　　　　アルミの場合で形状が○の場合　（Ｃ／２）＾２×３．１４×＄Ｇ＄２として計算
というようにＡ列の条件、Ｂ列の条件の組み合わせにより計算式を変えてそれぞれの質量をＦ列に出したいと思っています。

以下のように値は入力されています。
Ａ１　鉄　　　Ｂ１　□　　Ｃ１ １０　Ｄ１ ５０　Ｅ１　５　
Ａ２　鉄　　　Ｂ２　○　　Ｃ２ １６　Ｄ２ ３８０
Ａ３　アルミ　　 Ｂ３　○　　Ｃ３ １２　Ｄ３ １２５
Ａ４　樹脂　　Ｂ４　□　　Ｃ４ ５　　Ｄ４ ８　　Ｅ４ ４

条件式を用て行ってみたのですが複雑になりうまくいきません。
どうかよろしくお願いします。

回答No.2

imogasi

（１）式
形状が
四角の場合　たてｘ横ｘ高さ
円筒　　　　　　半径の２乗ｘパイ
◎？　　　　　　？？？
ーーー
（２）密度
密度は=VLOOKUP(A1,"{"鉄",3.8;"アルミ",2.7;"樹脂",1.4},2,FALSE)
で求められる。
本当はＧ１－Ｇ３に鉄、アルミ、樹脂、Ｈ１－Ｈ３に３．８、２．７、１．４の表を作ることが望まれる。
ーーーー
質量＝（１）ｘ密度
だから
質量は＝（形状ごとの式）ｘ（（２）の式）
ーーー
ＩＦ関数で場合分けするのでなく！、形状ごとに、式を選択できれば良い。式は沢山の型(式）があるとして
選択を一般化した式にしたい。
しかしこれは難しいと思う。ユーザー関数定義に逃げ込んだ。
ーーーー
標準モジュールに
Public Const pi As Double = 3.1419
Function siki(n, m)
Select Case n '式のタイプと具体的な式
Case 1
siki = Range("C" & m) * Range("D" & m) * Range("E" & m)
Case 2
siki = (Range("C" & m) / 2) ^ 2 * pi
Case 3
End Select
End Function
ーーー
テスト
例データ
Ａ列　　Ｂ列　　　Ｃ列　　Ｄ列　　　Ｅ列　　Ｆ列（結果）
鉄 ☐ 3 2 1 22.8
鉄 ○ 5 74.620125
アルミ ○ 10 212.07825
樹脂 ☐ 6 3 2 50.4
ーー
Ｆ１の式
=siki(VLOOKUP(B1,{"☐",1;"○",2;"◎",3},2,FALSE),ROW())*VLOOKUP(A1,{"鉄",3.8;"アルミ",2.7;"樹脂",1.4},2,FALSE)
（注）&#9744は四角記号文字です。
ーー
式の後半のＶＬＯＯＫＵＰ以右は、密度を求める部分。
siki　のＶＬＯＯＫＵＰは形状のタイプ＝式のタイプを示す部分
sikiのＶＬＯＯＫＵＰの後の第2引数は、式を入れている行番号を示していて、これを関数sikiの引数として渡している。
ーーー
結局ＶＢＡ的になった。
ユーザー関数が増えるたびに、Case 4以下に、式を追加できるＶＢＡの知識が要る。
ーーーーー
ＩＦ文を使う泥臭い方法でない、式の選択が一般化できる方法の回答が出ることを待つ。

お礼

回答をありがとうございました。
ＶＢＡとなるとちょっと引いてしまって。

回答No.1

kuma56

Ｇ1～Ｇ３欄の密度（比重？）をこの三か所だけにしないで、G列そのものにIF関数式
=IF(A1="鉄",3.8,IF(A1="アルミ",2.7,1.4))
を入れておいて、鉄なら3.8、アルミなら2.7、樹脂なら1.4と表示するようにしておいて、F列の式には＄Ｇ＄１や＄Ｇ＄２といった固定セルを指定しないで、各々の行のG列の値を掛けるようにする。
そうすればあとは、B列が○か□かのIF関数式を入れるだけでいいのでは？？
=IF(B1="□",C1*D1*E1*G1,(C1/2)^2*3.14*G1)

余談だけど、鉄の3.8って、アルミの2.7に比べて軽すぎませんか？？

お礼

回答をありがとうございました。
kuma56さんがおっしゃたように関数を入れることでできました。
発想を変えることも必要ですね。
助かりました。