EXCELで入力された式の値を求めて自動計算

質問

A B C D E
1｜データNO ｜数値１｜　数値２｜　数値３｜
2｜ 1｜ 0.3 ｜ 0.2 ｜ 0.5 ｜
3｜ 2｜ 0.3 ｜ 0.2 ｜ 0.5 ｜
4｜ 3｜ 0.3 ｜ 0.2 ｜ 0.5 ｜

--------------------------------------------

10｜ 2/1｜ 数式1｜ 数式2 ｜ 数式3 ｜
11｜ 3/2｜ 数式4｜ 数式5 ｜ 数式6 ｜
12｜

【求めたい値】
数式１には=C3/C2、数式２には=D3/D2、数式３には=E3/E2
数式４には=C4/C3、数式２には=D4/D3、数式３には=E4/E3

B列の2/1というのをそのまま式にしたいです。
2/1、3/2などは規則性はありません。その都度変わります。
C列の式ではC列の値を、D列の式ではD列の値を用います。

関数で=MATCH(LEFT(D34,SEARCH("/",D34,1)-1),D1:D23,0))と入れ、C3の値を求めようと思いましたが
この時点でエラーになりました。=MATCH(2,D1:D23,0)だと大丈夫なのですが・・・。
関数でやるととても式が長くなりそうなので、VBAの方が良いかとも思っています。

どのようにコード、もしくは式を書けば希望の値が得られるでしょうか？
VBAの場合は2/1などの数値を入れた時点で自動計算できれば嬉しいです。

よろしくお願いします。

回答No.1

keithin · ベストアンサー

B10以下には「２／１」のように『割り算』しか入らないとします
B10以下に「２／１」のように記入するため，Ｂ１０以下のセルは「文字列」の書式設定を施しておきます
またＢ２以下の１，２，３の番号も，「文字列」の書式を付けた上で１，２，３の番号の数字を改めて記入し直しておきます。（必ず行う）
＃ご利用のエクセルのバージョンが不明ですが，「緑の▼」が表示されて目障りなときは，セルを選んで表示される「黄色い！」からエラーチェックオプションで「文字列として保存されている数値」のチェックを外す

ふつーに／の前後で番号の数字を切り分けて該当する値を参照し，割り算する：

Ｃ１０に事前に「数値」などの書式を設定してから次の式を入れること
=IF($B10="","",VLOOKUP(--LEFT($B10,FIND("/",$B10)-1),$B$2:C$8,COLUMN()-1,FALSE)/VLOOKUP(--MID($B10,FIND("/",$B10)+1,9),$B$2:C$8,COLUMN()-1,FALSE))
右に下にコピーする

＃補足
前段にごちゃごちゃ書いた説明をキチンと行っておけば，アナタが当初考えて失敗した式でも計算できたと思います。

お礼

希望の値を得ることが出来ました。
ありがとうございました！

回答No.4

KURUMITO

例えばC3の値は=MATCH(LEFT(D34,SEARCH("/",D34,1)-1),D1:D23,0))の式ですと、この式が正しいとしてもその数値がD1からD23の間で検索されその時の行番号を求めることになるのですが、それでよいのでしょうか？
お示しの表ではC3セルの値は0.3となっていますがよいのですね。
ただ行を求めるといってもお示しの式ではD1セルからD23セルの範囲に文字列があるのでしたらエラーとはなりませんが、数値の検索となるのでしたら式そのものを次の式に変えることが必要ですね。

=MATCH(LEFT(D34,SEARCH("/",D34,1)-1)*1,D1:D23,0))

式では＊1とすることで文字列を数値に変換しています。

なお、ご質問の意味がC10からE10さらにその下方に入れる式をご質問でしたら次の式をC10に入力してE10セルまでオートフィルドラッグしたのちに下方にもオートフィルドラッグすればよいでしょう。

=IF($B10="","",INDEX(C$1:C$9,MATCH(LEFT($B10,FIND("/",$B10)-1)*1,$B$1:$B$9,0))/INDEX(C$1:C$9,MATCH(MID($B10,FIND("/",$B10)+1,10)*1,$B$1:$B$9,0)))

回答No.3

某HN クロメート(Chromate)（@CoalTar）

＞=MATCH(2,D1:D23,0)だと大丈夫なのですが・・・。
なんでD列なのだろうと思いつつ

E34セルに
=IF($D34="","",
INDEX(E$2:E$23,LOOKUP(100,LEFT($D34,{1,2})*1))
/INDEX(E$2:E$23,LOOKUP(100,RIGHT($D34,{1,2})*1)))
右へ下へオートフィル
2桁限定。
D列が連番でないなら
=IF($D34="","",
VLOOKUP(LOOKUP(100,LEFT($D34,{1,2})*1),$D$2:$G$23,COLUMN(B34),FALSE)
/VLOOKUP(LOOKUP(100,RIGHT($D34,{1,2})*1),$D$2:$G$23,COLUMN(B34),FALSE))

回答No.2

mu2011

被除数・除数をセル分割すれば簡単な関数でも出来ますが如何でしょうか。
例えば、データ範囲をB2：D4として、A10以下に被除数、B10以下に除数とすると
C10に=INDEX($B$2:$D$4,$A10,COLUMN(A1))/INDEX($B$2:$D$4,$B10,COLUMN(A1))
として縦横にコピー