未执行的VBA函数

Question

我正在尝试创建一个函数，该函数在给定的单元格范围内寻找值，但它没有被执行。它应该返回值所在的单元格。

Function searchInRange(where As Range, what As String) As Range
For Each c In where.Cells
 Debug.Print (c.Value)
    If c.Value = what Then
        searchInRange = c
    End If
Next c

End Function

我从子模块调用它，但它没有执行。如果我去调试，调试器只是跳到下一个语句，而不输入函数。我不明白为什么

编辑

正如许多人建议的那样，我正在发布调用函数的模块。这是一个按钮点击功能。正确选择了文件和工作表。我之所以知道这一点，是因为最后一句(PE_Sheet.activate)是正确的。致以问候。

Private Sub CommandButton1_Click()
Dim PE_File As Workbook
Dim PE_Sheet As Worksheet
Dim cell As Range


Set PE_File = Workbooks(getSelectedWorkbook())
Set PE_Sheet = PE_File.Worksheets("Monitored")
Unload UserForm1

searchAlarmFilter PE_Sheet.Range("A:A"), "5184"

PE_Sheet.Activate
End Sub

Answer 1

您还需要set范围

Public Function sir(where As Range, what As String) As Range
Dim res As Range: Set res = Nothing
For Each c In where.Cells
    Debug.Print c.Value
    If c.Value = what Then
        Set res = c
        Exit For
    End If
Next
Set sir = res
End Function

Answer 2

由于NickSlash是正确的，而且函数应该像他所指出的那样，这只是问题的一部分。我不明白为什么jet，但是在调用函数之前卸载表单会使解释器不执行函数。似乎以表单的任何方式依赖的所有变量都被卸载到表单中。这对我来说没有多大意义，但它是这样运作的。

因此，调用该函数的适当方法是：

Private Sub CommandButton1_Click()
Dim PE_File As Workbook
Dim PE_Sheet As Worksheet
Dim cell As Range


Set PE_File = Workbooks(getSelectedWorkbook())
Set PE_Sheet = PE_File.Worksheets("Monitored")
searchAlarmFilter PE_Sheet.Range("A1:A500"), "5184"
Unload UserForm1



PE_Sheet.Activate
End Sub

有关此函数的正确版本，请参见NickSlash的答案。