我是VBA的新手,目前正在使用它來創建一個使用三個條件來吐出計算結果的函數。三個輸入單元格包括一個數字值(「排放量」)和兩個文本值(「氣體」和「單位」,它們都具有從下拉菜單中選擇的值。Excel VBA帶多個條件和下拉列表的if/elseif函數
我基本上想創建一個功能,該功能根據從下拉菜單中選擇的值計算結果。例如,如果下拉B(「gas」)列出某個值並且下拉C「units」列出某種類型的單位測量值,我想用在A列的數量來計算終值以下是我已經開始至今(三個污染物類型之一)發展。
Function CO2EquivalentEmissions(emissionsquantity As Double, gas As String, units As String)
If (gas = "CH4" Or "ch4") And units = "tons" Then
CO2EquivalentEmissions = emissionsquantity * 25
ElseIf (gas = "CH4" Or "ch4") And units = "lbs" Then
CO2EquivalentEmissions = (emissionsquantity/2000) * 25
ElseIf (gas = "CH4" Or "ch4") And units = "tonnes" Then
CO2EquivalentEmissions = (emissionsquantity * 1.10231) * 25
End If
End Function
使用此功能,但是,我得到0.00的結果,而不管我使用「emis」的值sionsquantity」。有什麼建議?非常感謝!
嘗試在我的回答如下 –