显示错误“预计结束声明”

我正在报告已支付的金额和目标金额，并且我想包含一个带有指标的行。以下是该指标的代码;但是，当我保存时显示错误end of statement expected。任何人都可以请帮助，我是Visual Basic的新手。显示错误“预计结束声明”

Function KPI Indicator(AmtPaid As Decimal, TargetAmt As Decimal) As String Select Case 

    AmtPaid/TargetAmt 

    Case Is>= 1.5 
     Return "Green" 

    Case Is>=.90 
     Return "Yellow" 

    Case Else 
     Return "Red" 

    End Select 

End Function

来源

2014-01-17 narcissi

您在Q中输入的代码是否与项目中的代码完全相同？如果是这样，它充满了语法错误。 – davidsbro

是的，那是我的项目中的代码。你能帮我解决吗？ – narcissi

我不确定你是否复制并粘贴了你的代码，结果很糟糕，但是你有几个语法错误。试试这个：

Function KPIIndicator(AmtPaid As Decimal, TargetAmt As Decimal) As String 

    Select Case (AmtPaid/TargetAmt) 'select case was in the same line as the function declaration and didn't have anything following it. 

    Case Is>= 1.5 
     Return "Green" 

    Case Is>=.90 
     Return "Yellow" 

    Case Else 
     Return "Red" 

    End Select 

End Function

来源

2014-01-17 21:23:58 davidsbro

它现在显示“声明期望” – narcissi

尝试删除KPI和指标之间的空间。这有帮助吗？ – davidsbro

没有变化！我有另一个功能运行在顶部（这是正确的，正在工作），你认为这是问题？ – narcissi

Function KPI_Indicator(AmtPaid As Decimal, TargetAmt As Decimal) As String 
    Select Case AmtPaid/TargetAmt 
    Case Is>= 1.5 
     Return "Green" 

    Case Is>=0.9 
     Return "Yellow" 

    Case Else 
     Return "Red" 

    End Select 
End Function

首先，函数名不能包含空格。二，Select Case与函数声明位于同一行，AmtPaid/TargetAmt是不同的行。第三，您必须使用0.9而不是.9。如果您仍然收到错误，则必须发布更多代码。

来源

2014-01-18 08:22:46 srka

显示错误“预计结束声明”

回答

相关问题