使用VBA在Excel上進行高級搜索和過濾

Question

我設法創建了一個代碼，它使用visual basic在Excel數據庫內搜索所有選項卡。但是，搜索只會告訴我信息所在的位置，並且不會顯示信息。

下面的代碼如下：

Sub SearchWordInEntireWorkbook() 
Dim ws As Worksheet 
Dim strWhat As String 
Dim cell As Range 
Dim Found As Boolean 
strWhat = Application.InputBox("What word do you want to search in this workbook?", "Search Word!", Type:=2) 
If strWhat = "" Then 
    MsgBox "No search word entered.", vbExclamation, "Search Cancelled!" 
    Exit Sub 
End If 

For Each ws In Worksheets 
    With ws.Cells 
     Set cell = .Find(what:=strWhat, lookat:=xlPart, MatchCase:=False) 
     If Not cell Is Nothing Then 
     Found = True 
     MsgBox "The Word " & strWhat & " is found in " & cell.Address(0, 0) & " on " & ws.Name & " sheet." 
     End If 
    End With 
Next ws 
If Not Found Then 
    MsgBox "The word " & strWhat & " is not found on any sheet in this workbook.", vbExclamation, "Word Not Found!" 
End If 
End Sub 

我需要的是，當你運行搜索，而不是告訴我在哪裏，該數據位於要顯示的數據。

請任何人都可以幫我解決這個問題嗎？如果您需要任何其他信息，請告訴我。 據我所知，有

Answer 1

爲我的意見的延續，而不是

Sub SearchWordInEntireWorkbook() 
    Dim ws As Worksheet 
    Dim strWhat As String 
    Dim cell As Range 
    Dim Found As Boolean 
    strWhat = Application.InputBox("What word do you want to search in this workbook?", "Search Word!", Type:=2) 
    If strWhat = "" Then 
     MsgBox "No search word entered.", vbExclamation, "Search Cancelled!" 
     Exit Sub 
    End If 

    For Each ws In Worksheets 
     With ws.Cells 
      Set cell = .Find(what:=strWhat, lookat:=xlPart, MatchCase:=False) 
      If Not cell Is Nothing Then 
      Found = True 
      'MsgBox "The Word " & strWhat & " is found in " & cell.Address(0, 0) & " on " & ws.Name & " sheet." 
      Application.Goto Sheets(cell.Parent.Name).range(cell.Address) 
'edit starts 
     ans = MsgBox("is this the one you r looking for. if so, say yes and quit, else say no and go to the next result", vbYesNo) 
     If ans = vbYes Then 
      Exit For 
     End If 
'edit ends 
      End If 
     End With 
    Next ws 
    If Not Found Then 
     MsgBox "The word " & strWhat & " is not found on any sheet in this workbook.", vbExclamation, "Word Not Found!" 
    End If 
    End Sub 

Answer 2

如果要添加存儲在單元格中的數值，只是添加了一些報告值目前您報告了

MsgBox "The Word " & strWhat & " is found in " & cell.Address(0, 0) & " on " & ws.Name & " sheet." 

地址：

MsgBox "The Word " & strWhat & " is found in " & cell.Address(0, 0) & " on " & ws.Name & " sheet. The cell contains:" & Cell.Value 

Answer 3

如果這個詞可以在多張紙上找到，這將過濾所有包含單詞的表格

另外，如果用戶輸入野生字符，它將停止搜索CTER 「*」

---

Option Explicit 

Public Sub SearchWordInEntireWorkbook() 
    Dim ws As Worksheet, findWhat As String, foundCell As Range, found As Boolean 

    findWhat = Application.InputBox("Enter word to search for in this workbook?", _ 
            "Search Word!", Type:=2) 
    If Len(findWhat) = 0 Or findWhat = "*" Then 
     MsgBox "Try again", vbExclamation, "Search Cancelled!" 
     Exit Sub 
    End If 

    For Each ws In ThisWorkbook.Worksheets 
     With ws.UsedRange 

      If ws.AutoFilterMode Then .AutoFilter 

      Set foundCell = .Find(What:=findWhat, _ 
            After:=.Cells(.Rows.Count, .Columns.Count), _ 
            LookAt:=xlPart, MatchCase:=False) 

      If Not foundCell Is Nothing Then 
       .AutoFilter Field:=foundCell.Column, Criteria1:=findWhat 
       found = True 
      Else 
       .Rows.Hidden = True 
      End If 
     End With 
    Next ws 

    If Not found Then 
     MsgBox "The word '" & findWhat & "' was not found in this workbook.", _ 
       vbExclamation, "Word Not Found!" 
    End If 
End Sub