具有单元格引用输入的自定义函数

Posted 2023-04-19

【中文标题】具有单元格引用输入的自定义函数

【英文标题】：Custom Function with cell reference inputs

【发布时间】：2018-03-12 20:49:28

【问题描述】：

我是 Excel 自定义函数的新手，我正在尝试创建一个自定义 Excel 函数，该函数输出“Y”或“N”并接受四个参数。我在另一端遇到的错误是#VALUE！没有进一步的解释。我尝试查看 MSDN 文档中的 Range 对象，但不明白为什么我的函数没有读取这些值。

我的函数有四个参数，单元格中的数据类型是中位数：Double，base：Double，hours：Integer，豁免：String（它需要一个字母“E”或“N”）。我从工作表中的四个独立单元格中获取这些参数。

Function ToIncrease(median As Range, base As Range, hours As Range, exemption As Range)

    ToIncrease = "N"
    exempt = exemption.Value

    If exempt.Equals("N") Then
        baseSal = base.Value * hours.Value
        medianSal = median.Value * hours.Value
        If medianSal > baseSal Then
            ToIncrease = "Y"
            End If
    End If

    If exempt.Equals("E") Then
        If median.Value > base.Value Then
            ToIncrease = "Y"
        End If
    End If

End Function

我首先尝试了exemption.Value.Equals("N")，但它不起作用，然后我尝试将豁免变量声明为Dim exempt As String = exemption.Value，并收到关于预期语句结束的错误。

【问题讨论】：

If exempt.value = "N" Then 和其他 IF 一样。

【参考方案1】：

首先替换如下行：

If exempt.Equals("N") Then

与

If exempt = "N" Then

（可能还有其他问题）

将 VBA 代码调试为 Sub 而不是 Function() 要容易得多，因为错误消息要好得多。

【讨论】：

谢谢，就是这样。我非常确信我必须使用字符串方法，并且只是希望它像在 javascript 中一样读取它。