2014-01-17 176 views
1

我正在報告已支付的金額和目標金額,並且我想包含一個帶有指標的行。以下是該指標的代碼;但是,當我保存時顯示錯誤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 
+0

您在Q中輸入的代碼是否與項目中的代碼完全相同?如果是這樣,它充滿了語法錯誤。 – davidsbro

+0

是的,那是我的項目中的代碼。你能幫我解決嗎? – narcissi

回答

1

我不確定你是否複製並粘貼了你的代碼,結果很糟糕,但是你有幾個語法錯誤。試試這個:

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 
+0

它現在顯示「聲明期望」 – narcissi

+0

嘗試刪除KPI和指標之間的空間。這有幫助嗎? – davidsbro

+0

沒有變化!我有另一個功能運行在頂部(這是正確的,正在工作),你認爲這是問題? – narcissi

1
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。如果您仍然收到錯誤,則必須發佈更多代碼。