首頁猿問如何讓它滿足不同的條件用不同的公式...

如何讓它滿足不同的條件用不同的公式，拜托給我把函數(shù)改一下，先謝謝了

Java C

慕工程0101907 2022-07-20 15:11:42

這是原函數(shù)：你的自定義函數(shù)宜只用一個參數(shù)，如:Function mmm(rr)s = 0For i = 1 To Range("C65536").End(xlUp).RowIf Range("C" & i).Value = rr Thens = s + 2 * (Range("D" & i).Value + Range("E" & i).Value) * Range("F" & i).Value / 1000End IfNext immm = sEnd Function用=mmm("18MDF")調(diào)用現(xiàn)在我想要滿足不同的條件用不同的公式，具體條件如下：1，在C列滿足"18MDF"，在G列滿足"雙面"用如下公式：s + 2 * (Range("D" & i).Value + Range("E" & i).Value) *Range("F" & i).Value / 10002，在C列滿足"18MDF"，在G列滿足"單面"用如下公式：s + 1 * (Range("D" & i).Value + Range("E" & i).Value) *Range("F" & i).Value / 1000

查看完整描述

1 回答

Cats萌萌

TA貢獻1805條經(jīng)驗獲得超9個贊

Function mmm(rr, mm)
s = 0
For i = 1 To Range("C65536").End(xlUp).Row
If Range("C" & i).Value = rr And Range("G" & i).Value = mm Then
If mm = "雙面" Then
s = s + 2 * (Range("D" & i).Value + Range("E" & i).Value) * Range("F" & i).Value / 1000
End If
If mm = "單面" Then
s = s + 1 * (Range("D" & i).Value + Range("E" & i).Value) * Range("F" & i).Value / 1000
End If
End If
Next i
mmm = s
End Function

用“=mmm("18MDF","雙面")”或“=mmm("18MDF","雙面")”調(diào)用