excel - VBA 中的工作表函数

Question

因此，我尝试在 VBA 中创建一个函数，每当我在 excel 中向函数输入特定参数时，它就会给我这些参数的结果。

例如，我在一列中有一个名称列表；约翰、简和乔伊……然后在另一列中我得到了与这些名字一致的数字……这里的目标是让用户在任何给定的单元格中输入一个带有名称的函数，并让电子表格输出与该名称对应的数字。

这就是我所拥有的，但我已经走到了死胡同，因为我不知道该怎么做。

Function NumberOfHits(Name As String)
Dim Vegetable As String 
NumberOfHits = Application.WorksheetFunction.VLookup(Name, Sheets("Hits From Player").Range("B38:D74"), 3)  
End Function 

Answer 1

这对我来说在名为 Hits From Player 的表上和表外都很好用

1. 我使函数可变(以便它更新)。您还可以将 RAND() 与此公式结合使用，以获得相同的效果。

2. 你记得把name放在""

   里吗

   =NumberOfHits("玛丽")

剪裁功能:

Function NumberOfHits(Name As String)
    Application.Volatile
    NumberOfHits = Application.WorksheetFunction.VLookup(Name, _
    Sheets("Hits From Player").Range("B38:D74"), 3)
End Function

已更新:尝试处理不完全匹配

Function NumberOfHits(strName As String) As Variant
Dim StrOut

Application.Volatile

On Error Resume Next
StrOut = Application.WorksheetFunction.VLookup(strName, _
Sheets("Hits From Player").Range("B38:D74"), 3, False)
On Error GoTo 0

If IsEmpty(StrOut) Then
    NumberOfHits = CVErr(xlErrNA)
Else
    NumberOfHits = StrOut
End If
End Function