如何製作一個返回單元格內容的自定義函數？

Question

我想用這個函數來引用一個單元格。如果單元格中有任何內容，則返回內容。如果單元格爲空，則返回「 - 」。這是我正在使用的代碼並收到「無效的財產使用」錯誤。這裏是代碼：

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

我相信你這樣做是出於興趣而不是效率，所以像這樣的

• 範圍可能比以上一旦單元格

• 您的公式將返回任何文本條目的「 - 」

  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