首页 > 解决方案 > Excel VBA 返回公式中使用的值的数据类型错误

问题描述

我想在 excel 中创建一个用户定义的函数。这会根据输入单位转换一个值。但是如果最终结果低于 1,我会得到一个错误。 功能

Function ConvertQtyToMeterPerSecs(qty As Double, unit As String) As Double
    Dim ck As Double

    'Converting all to m3/secs
    If (unit = "cm/hr") Then
        ck = qty * ((1 / 100) / (60 * 60))
    ElseIf (unit = "cm/day") Then
        ck = qty * ((1 / 100) / (24 * 60 * 60))
    ElseIf (unit = "cm/sec") Then
        ck = qty * (1 / 100)

    ConvertQtyToMeterPerSecs=ck
End Function

当我在 excel 的单元格中调用该函数时,它可以正常工作,但是如果例如结果为 0.32444,它将引发错误

标签: excelvbafunction

解决方案


推荐阅读