[我正在尝试针对未找到搜索项的代码进行修改

Question

我有这段代码可以在特定的工作表上搜索单独的工作簿，并在搜索到的下一个单元格中提供数据。如果找到了搜索到的项目，这很好用，但是如果没有找到搜索到的项目，我似乎无法适应代码。发生这种情况时，我只想向用户表单上的标签返回一条消息，即未找到该项目。我已经看过并阅读了教程，并尝试使用If Not Nothing，但是我似乎无法使其正常工作。如果有人可以帮助我，我将不胜感激。非常感谢。

Dim departments As Workbook
Dim searchItem As String
Dim foundItem As String


Set departments = Workbooks.Open("C:\Users\MyPc\Desktop\Department References.xls")

searchItem = UserForm1.Textbox1.Value

If Menu.optionBtnDepartmentOne = True Then
foundItem = departments.Worksheets("Department One").Range("D2:D10000").Find(searchItem).Offset(0, 1).Value

ElseIf Menu.optionBtnDepartmentTwo = True Then
foundItem = departments.Worksheets("Department Two").Range("D2:D10000").Find(searchItem).Offset(0, 1).Value

ElseIf Menu.optionBtnDepartmentThree = True Then
foundItem = departments.Worksheets("Department Three").Range("D2:D10000").Find(searchItem).Offset(0, 1).Value

End If

UserForm1.Label = foundItem
Workbooks("Department References").Close SaveChanges:=False

Answer 1

您具有将其编写为函数的思想吗？而且，如果函数返回“ something”，那么就会出现您想要的消息。所以看起来像这样：