ドロップダウンリストの一部を選んだら2倍に…

質問

エクセルの2010で、

sheet2のA列に商品　Ｂ列に金額があります。
（例）
A1　りんご
A2　パイナップル
A3　メロン
A4　きゅうり
A5　はくさい
A6　だいこん

B1　5
B2　20
B3　15
B4　7
B5　12
B6　6

これをsheet1にドロップダウンリストで選択して金額が出るようにしています。
（例）
E1（商品）入力規則のリストで =Sheet2!$A$1:$A$8
F1（金額）=VLOOKUP(E1,Sheet2!A1:B6,2,0)
そして、Sheet1のG1に個数を入力したらH1に合計金額が出るようになっています。

ここからが問題なのですが、
E1（商品）がsheet2のA1～A3の時は、G1(個数)×2倍　させたいのですが、
なにか方法はあるでしょうか？

A1～A3は連続した範囲です。
実際はもっとややこしい数値なので、最初から2倍の個数を手入力するというのはナシです。

関数でできるのでしょうか？
どこかにチェックを入れたら2倍になるとかの方がいいのでしょうか？
なるべく初心者でもわかる方法でご教授ください。
よろしくお願いします。

回答No.2

kagakusuki · ベストアンサー

Sheet1のG1セルはデータを手入力するための欄なのですから、そこに入力された値そのものを自動的に2倍にする方法は御座いません。
　もし、マクロ等を使用してG列に入力されている値を2倍にする様にするようにしてしまいますと、E列に入力されている商品名を例えば「りんご」から「メロン」に変えて、更に「パイナップル」に変更した場合などには、最初に入力した個数の8倍の個数となってしまいます。
　ですから、Sheet1のG列の個数そのものを2倍にするのではありませんが、以下の様な方法は如何でしょうか？

　まず、Sheet1のG列の項目名を「個数入力」等とし、H列の項目名を「実際の個数」等としておき、合計金額はH列ではなくI列に表示させる様にします。
　そして、Sheet1のH2セルには次の関数を入力して下さい。

=IF(AND($E2<>"",ISNUMBER($G2)),$G2*((COUNTIF(Sheet2!$A$1:$A$3,$E2)>0)+1),"")

　次に、Sheet1のI2セルには次の関数を入力して下さい。

=IF(COUNT($F2,$H2)=2,$F2*$H2,"")

　そして、Sheet1のH2～I2の範囲をコピーして、同じ列の3行目以下に貼り付けて下さい。

　次に、適当な使用していないシート(ここでは仮にSheet3とします)のA1セルに次の関数を入力して下さい。

=IF(Sheet1!A1="","",Sheet1!A1)

　次に、Sheet3のA1セルをコピーして、Sheet3のB1～F1の範囲に貼り付けて下さい。
　次に、Sheet3のG1セルに次の関数を入力して下さい。

=IF(Sheet1!H1="","",Sheet1!H1)

　次に、Sheet3のG1セルをコピーして、Sheet3のH1セルに貼り付けて下さい。
　次に、Sheet3のA1～H1の範囲をコピーして、同じ列の2行目以下に貼り付けて下さい。
　そして、Sheet3のG1セルの関数を消去して、代わりに「個数」と入力して下さい。

　これで、Sheet1は入力専用のシートとして使用し、印刷等はSheet3で行えば良いと思います。

お礼

取り急ぎ、そのまま入力したら、できました！
すごい！

助かりました。
とても丁寧に教えてくださってありがとうございます。

どうなってるのか、今からじっくり勉強してみます。

回答No.1

keithin

＞E1（商品）がsheet2のA1～A3の時は、G1(個数)×2倍

Ｇ１の式を
=今の式*(COUNTIF(Sheet2!A1:A3,E1)+1)
とでもしておきます。

お礼

keithinさん、回答ありがとうございます。