Vba 只需使用给定代码在特定表格中搜索单词

上面的代码用于在excel工作簿中搜索某个单词，并显示最后找到的单词

例：如果我们在第1页和第2页有“猫”的名字。因此，此代码有助于仅在表2中显示Cat，而不关心表1

现在我要做的是，我要选择图纸。因此，它只能在选定的工作表上搜索。 如果我们让它取表1，它只能从表1搜索猫。不应转到第2页或更高的位置

注意：必须根据图纸名称进行搜索。 如果我们给出表2，它只能搜索表2上的cat。因此，提供了图纸名称

我尝试了两个实验，它显示类型不匹配，需要对象

---

在这方面，任何修改都只能帮助我。

删除循环并更改工作以获得所需的值

---

您应该更改代码的这一部分：

Dim ws As Worksheet
Set ws = ActiveSheet

---

您只需删除循环并将rngFound更改为仅在活动工作表中查看。

我将给出工作表名称。。它只需在特定的工作表上搜索。：）您能帮助我吗。@user3305322，将

ActiveSheet

更改为

thiswoolk。工作表（“Sheet1”）

HI，是的，我已经浏览了那个网站。但我需要的是，我们将给出图纸名称。它只能根据图纸名称在该图纸中搜索。。

Dim ws As Worksheet
Set ws = ActiveSheet

  'For Each wks In ActiveWorkbook.Worksheets
     Set rngFound = ActiveSheet.UsedRange.Find(what:=strFind, LookIn:=xlValues, lookat:=xlPart, MatchCase:=False)
     If Not rngFound Is Nothing Then
        Application.Goto rngFound, True
          CellNo = rngFound.Address(Offset, Offset)
     End If
  'Next wks