做循環不返回值

我想獲得下面的代碼工作。我的目標是逐步增加'測試'變量，直到它和標記的總和等於總費用（subfee + markup = totalfee）。下面的代碼是我現在擁有的代碼，它在我的目標單元格中返回' - '。做循環不返回值

Public Function DetailersFee(TotalFee As Double) As Double 

Dim test As Double 
Dim markup As Double 

test = 0 
markup = 2 * (test^0.75) 

Do While (test + markup) < TotalFee 

    test = test + 50 

    markup = 2 * (test^(0.75)) 

Loop 

test = DetailersFee 

End Function

任何幫助，非常感謝。

來源

2014-06-25 user3777078

您是否希望在函數結束時返回測試中的值？然後DetailersFee =測試而不是測試= DetailersFee。 – VBlades

這應該可能是一個答案。 – ApplePie

您的結果（返回）聲明是落後的。它應該是'DetailersFee = test'。 –

您是否希望在函數結尾處返回測試中的值？然後更換：

test = DetailersFee

與

DetailersFee = test

你要設定的功能名稱等於要返回，而不是周圍的其他方式的變量。

來源

2014-06-25 21:58:36 VBlades

做循環不返回值

回答

相關問題