我在Excel VBA中不断收到#value错误

Question

So I wrote a quick function in VBA for Excel, but every time I call it, it gives me a #value error. I don't know what I am doing wrong. Can anyone help?

Function h(UA, k, A, Af_At, Delta, l)
h1 = 0
m = (2 * h1 / k / Delta) ^ 0.5
ml = m * l
Nf = WorksheetFunction.Tanh(ml)
No = 1 - Af_At * (1 - Nf / ml)
UA1 = h1 * A * No / 2

While UA > UA1
    UA_old = UA1
    h_old = h1
    h1 = h1 + 0.5
    m = (2 * h1 / k / Delta) ^ 0.5
    ml = m * l
    Nf = WorksheetFunction.Tanh(ml)
    No = 1 - Af_At * (1 - Nf / ml)
    UA1 = h1 * A * No / 2
Wend

h = h_old + (UA - UA_old) * (h1 - h_old) / (UA1 - UA_old)

End Function

I call it using: =h(10,1,1,1,1,1) in the insert function bar.

Answer 1

Division by zero at

No = 1 - Af_At * (1 - Nf / ml)

m1 is zero because h1 is zero.

You should change:

h1 = 0