複数の条件

いつもお世話になっております
下記の条件で式を作りたいと思います
おしえてくれませんでしょうか
条件
①商品があり商品ごと単価がことなります。
②200ｇまでは単価×数量+500円
③200ｇ超えたら異なる単価×数量　そのままです。


以下のコードは無視してください。

If Range("G30").Value <> "バナナ" And Range("G30").Value <> "ぶどう" _
And Range("G29").Value <= 200 Then '重さ

Range("i33").Value = Range("G29").Value * 200 + 500

ElseIf Range("G30").Value <> "バナナ" And Range("G30").Value <> "ぶどう" _
And Range("G29").Value <= 200 Then '重さ

Range("i33").Value = Range("G29").Value * 200
とりあえずここまででわからなくなりました。

おしえてくれませんでしょうか

例えば　ばなな　で　重さが250グラム　　個数が　20　なら　20×300=6000円
　　　　ばなな　で　重さが200グラム　　個数が　20　なら　20×200+500＝4500円

　　　　オレンジで　重さが250グラム　　個数が　20　なら　20×500=10000円
　　　　オレンジで　重さが200グラム　　個数が　20　なら　20×400+500＝8500円
としたいのです。
あさからやっていますが、できません。悲しいです。
よろしくお願いいたします。

質問者からの補足コメント

• 

  例えば　ばなな　で　重さが250グラム　　個数が　20　なら　20×300=6000円
  　　　　ばなな　で　重さが200グラム　　個数が　20　なら　20×200+500＝4500円
  ばななではなくバナナです。
  申し訳ございません

    補足日時：2020/08/05 11:10

• 

  いつも有難うございます。
  いろいろ検索などしてこれでいいと思いますが
  Select Case True
  Case Range("A24").Value = "バナナ" And Range("C24").Value <= 200
  Range("A27").Value = 200 * Range("C24") + 500
  
  Case Range("A24").Value = "バナナ" And Range("C24").Value > 200
  Range("A27").Value = 300 * Range("C24")
  
  この繰り返しでよろしいでしょうか

  No.1の回答に寄せられた補足コメントです。 補足日時：2020/08/05 14:26

No.1 回答者： めぐみん_ 回答日時： 2020/08/05 13:04

でも、これって『金額』の列に『数式』でも宜しいのでは？

個数：バナナ　は愛嬌としても入力された値を検索して計算し代入するのも手間な気もしますけど。
実際の目的がちょっと別にあるのでしょうか？

この回答へのお礼

いつも有難うございます。
すこし紛らわしい内容申し訳ございません

お礼日時：2020/08/05 20:36

No.2 ベストアンサー 回答者： Qchan1962 回答日時： 2020/08/05 18:04

こんにちは、

複数の条件とありますが、なさりたい事を行う場合、
商品と重さの条件を同じ条件分岐にするのは、どうでしょう？
行方向に条件があるなら、、出来ない事はないかと思いますが、私なら、、、
もし、画像のような形なら、商品で行№を取得するコードを書いて
あとは、カラムナンバーを重さを条件に設定、Offsetなどで値を取得すれば良いのではないかと思います。

画像のような表組の場合

Dim Trg As Range, TrgCol As Long
Dim plus_cost
Set Trg = Range("A1:A10").Find(Range("E3"), LookAt:=xlWhole)
If Range("E2") <= 200 Then
TrgCol = 1
plus_cost = Range("G11").Value
Else
TrgCol = 2
plus_cost = 0
End If
Trg.Offset(, 6) = Trg.Offset(, TrgCol) * Trg.Offset(, 4) + plus_cost

なさりたい事を勘違いしていたら、ごめんなさい。

この回答へのお礼

いつも有難うございます。
すこし紛らわしい内容申し訳ございません
説明不足でした。わかりやすいかと思い
表に羅列してしまいました。
遣りたいことは
重さを入力して
個数　入力　　　　　　すみません個数のところに商品バナナと入力してしまいました。
商品　選択
----------------------------------------------------------------
例）重さ　200
　　個数　150
　　商品　プルダウン選択
金額は一つだけのセル
です。
貴重なお時間を頂きましてありがとうございます。
参考に致します。

お礼日時：2020/08/05 20:40