0

我通过 vba 创建了一个函数，并使用此函数制作了一个迭代表。我已将工作簿计算设置为自动，并且一切正常，但是当我打开 excel 文件时，包含上述函数的单元格会给我 #name 错误，并且每次我需要重新计算时。有没有办法来解决这个问题？

Public Function FrictionFactor(relativeroughness, reynoldsnumber)

    'Dim relativeroughness, reynoldsnumber As Double
    fNext = 0.005               ' initial value for f
    fIncrement = 0.005          ' initial step size
    Convergence = 0.000001      ' sets the decimal place accuracy of the result

    Do

        fStart = fNext
        LHSColebrookStart = 1 / (fStart ^ 0.5)
        RHSColebrookStart = -2 * (Log((relativeroughness / 3.7) + (2.51 / (reynoldsnumber * (fStart ^ 0.5)))) / Log(10))
        DifferenceStart = LHSColebrookStart - RHSColebrookStart

        fNext = fStart + fIncrement
        LHSColebrookNext = 1 / (fNext ^ 0.5)
        RHSColebrookNext = -2 * (Log((relativeroughness / 3.7) + (2.51 / (reynoldsnumber * (fNext ^ 0.5)))) / Log(10))
        DifferenceNext = LHSColebrookNext - RHSColebrookNext

        If DifferenceStart * DifferenceNext < 0 Then        ' march f in opposite direction and more slowly
            fIncrement = fIncrement / -10
        ElseIf DifferenceStart * DifferenceNext = 0 Then    ' done
            fIncrement = 0
        End If                                              ' keep marching f in same direction and at same rate

    Loop While Abs(fStart - fNext) > Convergence

    FrictionFactor = fStart
End Function
4

1 回答 1

0

发生这种情况的通常原因是打开工作簿时未启用宏。检查您的安全设置。

于 2013-10-30T12:52:27.047 回答