亚洲在线久爱草,狠狠天天香蕉网,天天搞日日干久草,伊人亚洲日本欧美

為了賬號安全,請及時綁定郵箱和手機立即綁定
已解決430363個問題,去搜搜看,總會有你想問的

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

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

慕工程0101907 2022-07-20 15:11:42
這是原函數:你的自定義函數宜只用一個參數,如: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
查看完整描述

1 回答

?
Cats萌萌

TA貢獻1805條經驗 獲得超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","雙面")”調用

查看完整回答
反對 回復 2022-07-24
  • 1 回答
  • 0 關注
  • 192 瀏覽
慕課專欄
更多

添加回答

舉報

0/150
提交
取消
微信客服

購課補貼
聯系客服咨詢優惠詳情

幫助反饋 APP下載

慕課網APP
您的移動學習伙伴

公眾號

掃描二維碼
關注慕課網微信公眾號