Question

我目前正致力于在工作中设置电子表格以跟踪项目状态。当所选单元格中的值等于零时，我可以让我的函数返回“N / A”，但是我希望代码返回在相应单元格中找到的值。（即：AWARD（U7）=单元格U7的值，AWARD（U8）=单元格U8的值，而不是我写的，它每次都返回单元格U7的值。

我的代码如下：

Public Function AWARD(awarddate As Double)

    If awarddate = 0 Then
        result = "N/A"
    Else
        result = ActiveSheet.Range("U7").Text
    End If

    AWARD = result

End Function

Answer 1

类似的东西：

Public Function AWARD(awarddate As Range)
    Dim result
    If awarddate.Value = 0 Then
        result = "N/A"
    Else
        result = awarddate.Value
    End If

    AWARD = result

End Function

Answer 2

或者

Public Function AWARD(awarddate As Range
    AWARD = IIF(awarddate.Value = 0, "N/A", awarddate.Value)
End Function

如何编写VBA代码，以便我的公式返回所选单元格中的值？

2 个答案: