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

Question

这是原函数：你的自定义函数宜只用一个参数，如: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")调用现在我想要满足不同的条件用不同的公式，具体条件如下：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

Answer 1

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","双面")”调用