vba - VBA代码仅显示包含与输入字段相似的文本的行？

Question

我是 VBA 新手，正在尝试拼凑一些代码，以允许用户在单元格中输入一个单词（或几个单词），然后显示匹配行条目的列表。

我尝试了以下代码，但收到“ instring = type mismatch”错误。

请注意，“ B3”是专用于“搜索词”的字段，列F是包含我要在其中搜索的文本的列。如果包含该单词，我想显示该行并隐藏所有不包含该单词的行。

Sub Find_Possible_Task()

  ROW_NUMBER = 0
  SEARCH_STRING = Sheets("codeset").Range("B3")
  ROW_NUMBER = ROW_NUMBER + 1
  ITEM_IN_REVIEW = Sheets("codeset").Range("F:F")

  If InStr(ITEM_IN_REVIEW, SEARCH_STRING) Then
    Do
      Cells(c.Row).EntireRow.Hidden = False
    Loop Until ITEM_IN_REVIEW = ""
  End If

End Sub

蒂亚！

score 0 · Accepted Answer

考虑 range.find() 而不是 instr()。

Sub Find_Possible_Task()

Dim SEARCH_STRING As String
Dim ITEM_IN_REVIEW As Range
Dim found As Range
Dim i As Integer

SEARCH_STRING = Sheets("Sheet1").Range("B3").Value
i = 1

Do
    Set ITEM_IN_REVIEW = Sheets("Sheet1").Cells(i, 6)
    Set found = ITEM_IN_REVIEW.Find(What:=SEARCH_STRING)
    If found Is Nothing Then

        ITEM_IN_REVIEW.EntireRow.Hidden = True
    End If
    i = i + 1
Loop Until ITEM_IN_REVIEW = ""

End Sub

或者，考虑使用过滤器表： 1. 检查您的表是否有过滤器 ==> 如果是，则通过。如果没有，请打开过滤器。2. 过滤列 F 的关键字以包含单元格 B3 中的值。

score 0 · Accepted Answer

很少有糟糕的编码约定，甚至可能是彻头彻尾的错误：

明确声明过程的范围Public/Private是一个好习惯Sub
除非您从其他地方传递变量，否则它们需要用Dim关键字声明
使用Option Explicit将帮助您防止上述错误

（主观）所有大写的变量都很丑陋，在大多数编程语言中，为常量保留所有大写变量名称是惯例（Const）

Option Explicit
Private Sub keep_matches()
  Dim what As Range
  Dim where As Range
  Dim res As Range ' result
  Dim lr As Long ' last active row
  Dim ws As Worksheet: Set ws = Sheets("codeset")

  lr = ws.Cells(ws.Rows.Count, "F").End(xlUp).Row
  Set what = ws.Range("B3")
  Set where = ws.Range("F1:F" & lr)

  ' we'll create an extra column for a loop in our .Find method
  where.Copy
  ws.Range("F1").EntireColumn.Insert
  ws.Range("F1").PasteSpecial xlPasteValues

  where.EntireRow.Hidden = True ' preemptively hide them all

  Set where = ws.Range("F1:F" & lr)
  Set res = where.Find(what, lookIn:=xlValues) ' ilook for matches, 1st attempt
  If Not res Is Nothing Then ' if found
     Do Until res Is Nothing ' repeat for all results
       res.EntireRow.Hidden = False
       res = "Checked"
       Set res = where.FindNext(res)
     Loop
  Else
     MsgBox("No matches were found")
     where.EntireRow.Hidden = False ' we don't wanna hide anything
  End If

  ws.Range("F1").EntireColumn.Delete ' remove the extra help column for Find method
End Sub

应该按预期工作。
如果有任何问题，请告诉我。

vba - VBA代码仅显示包含与输入字段相似的文本的行？

2 回答 2

Related

Reference