Question

我是VBA的新手，目前正在使用它创建一个使用三个条件来吐出计算结果的函数。三个输入单元格包括一个数值（＆＃34;排放量＆＃34;）和两个文本值（＆＃34; gas＆＃34;＆＃34;单位＆＃34;，两者都具有从中选择的值下拉菜单。

我基本上想要创建一个根据从下拉菜单中选择的值计算结果的函数。例如，如果下拉B（＆＃34; gas＆＃34;）列出某个值并下拉C＆＃34;单位＆＃34;列出了某种类型的单位测量，我想用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的结果，无论我使用哪个值＆＃34; emissionquantity＆＃34;。有什么建议？非常感谢！

Answer 1

您对如何测试字符串感到困惑，您错放了"的位置，请参阅下面的代码：

Function CO2EquivalentEmissions(emissionsquantity As Double, gas As String, units As String)

If gas = "CH4" And units = "tons" Then
    CO2EquivalentEmissions = emissionsquantity * 25
ElseIf gas = "CH4" And units = "lbs" Then
    CO2EquivalentEmissions = (emissionsquantity / 2000) * 25
ElseIf gas = "CH4" And units = "tonnes" Then
    CO2EquivalentEmissions = (emissionsquantity * 1.10231) * 25
End If

End Function

修改1 ：更新后的更正Function（气体标准包含Or

Function CO2EquivalentEmissions(emissionsquantity As Double, gas As String, units As String)

If (gas = "CH4" Or gas = "ch4") And units = "tons" Then
    CO2EquivalentEmissions = emissionsquantity * 25
ElseIf (gas = "CH4" Or gas = "ch4") And units = "lbs" Then
    CO2EquivalentEmissions = (emissionsquantity / 2000) * 25
ElseIf (gas = "CH4" Or gas = "ch4") And units = "tonnes" Then
    CO2EquivalentEmissions = (emissionsquantity * 1.10231) * 25
End If

End Function

Answer 2

OR条件中有一个小错误。要么这样做：

Function CO2EquivalentEmissions(emissionsquantity As Double, gas As String, units As String)
If (gas = "CH4" Or gas = "ch4") And units = "tons" Then
    CO2EquivalentEmissions = emissionsquantity * 25
ElseIf (gas = "CH4" Or gas = "ch4") And units = "lbs" Then
    CO2EquivalentEmissions = (emissionsquantity / 2000) * 25
ElseIf (gas = "CH4" Or gas = "ch4") And units = "tonnes" Then
    CO2EquivalentEmissions = (emissionsquantity * 1.10231) * 25
End If
End Function

或者包含选项比较文本，这将使所有＆＃34;文本比较＆＃34;不区分大小写，因此您可以简单地进行单一检查，这将适用于CH4，cH4等：

Option Compare Text
Function CO2EquivalentEmissions(emissionsquantity As Double, gas As String, units As String)

If (gas = "ch4") And units = "tons" Then
    CO2EquivalentEmissions = emissionsquantity * 25
ElseIf (gas = "ch4") And units = "lbs" Then
    CO2EquivalentEmissions = (emissionsquantity / 2000) * 25
ElseIf (gas = "ch4") And units = "tonnes" Then
    CO2EquivalentEmissions = (emissionsquantity * 1.10231) * 25

结束如果结束功能

Excel VBA if / elseif函数具有多个条件和下拉列表

2 个答案: