如何让它满足不同的条件用不同的公式，拜托给我把函数改一下，先谢谢了

Question

这是原函数：
你的自定义函数宜只用一个参数，如:
Function mmm(rr)
s = 0
For i = 1 To Range("C65536").End(xlUp).Row
If Range("C" & i).Value = rr Then
s = s + 2 * (Range("D" & i).Value + Range("E" & i).Value) * Range("F" & i).Value / 1000
End If
Next i
mmm = s
End Function
用=mmm("18MDF")调用
现在我想要满足不同的条件用不同的公式，具体条件如下：
1，在C列满足"18MDF"，在G列满足"双面"用如下公式：
s + 2 * (Range("D" & i).Value + Range("E" & i).Value) *Range("F" & i).Value / 1000
2，在C列满足"18MDF"，在G列满足"单面"用如下公式：
s + 1 * (Range("D" & i).Value + Range("E" & i).Value) *Range("F" & i).Value / 1000

Answer 1

Function mmm(rr, mm)s = 0For i = 1 To Range("C65536").End(xlUp).RowIf Range("C" & i).Value = rr And Range("G" & i).Value = mm ThenIf mm = "双面" Thens = s + 2 * (Range("D" & i).Value + Range("E" & i).Value) * Range("F" & i).Value / 1000End IfIf mm = "单面" Thens = s + 1 * (Range("D" & i).Value + Range("E" & i).Value) * Range("F" & i).Value / 1000End IfEnd IfNext immm = sEnd Function用“=mmm("18MDF","双面")”或“=mmm("18MDF","双面")”调用