Question

我想用这个函数来引用一个单元格。如果单元格中有任何内容，则返回内容。如果单元格为空，则返回＆＃34; - ＆＃34;。这是我正在使用的代码并且接收＆＃34;无效使用属性＆＃34;错误。这是代码：

Function rd(rng As Range)    
Dim blank As String

blank = "-"
If rng.Value > 0 Then
    rng.Value
Else
    blank
End If

End Function

Answer 1

试试这个

Function rd(rng As Range)

Dim blank As String

blank = "-"

If rng.Value > 0 Then
        rd = rng.Value
    Else
        rd = blank
    End If

End Function

Answer 2

我认为你出于兴趣而不是效率来做这件事，所以像这样的事情

范围可能不止一次

您的公式将返回＆＃34; - ＆＃34;对于任何文本条目

Function rd(rng As Range) As String

Dim blank As String
blank = "-"

If Len(rng.Cells(1).Value) > 0 Then
       rd = rng.Cells(1).Value
   Else
       rd = blank
End If

End Function

如何制作返回单元格内容的自定义函数？

2 个答案: