ワイルドカードで特定のテキストを含むセルの参照を取得する

Question

実際にこの質問に対する回答は既にここにあります。マクロを使用せずに行うことができます

Get the reference of a cell containing a certain text

、

しかし、私が持っている問題は、私はワイルドカードを使用して、特定のテキストを検索したいということです。

example: DOM???text

Answer 1

あなたはLike演算子のためInStr()機能を置き換えることができます。あなたのsIn文字列が正しいワイルドカードを持っていることを確認する必要があり

Public Function WhereIs(rIn As Range, sIn As String) As String 
    WhereIs = "" 
    Dim r As Range 
    For Each r In rIn 
     If r.Text Like sIn Then 
      WhereIs = r.Address(0, 0) 
      Exit Function 
     End If 
    Next r 
End Function 

：コードは次のようになります。

Answer 2

これを試してください。それを実行し、ダイアログボックスで単語を検索するだけです。それからあなたにセル参照を与えます。

Option Explicit 

Private Sub FindText() 
Dim ws As Worksheet 
Dim FindString As Variant 
Dim rng As Range 

Set ws = ThisWorkbook.Worksheets("Sheet1") 

FindString = InputBox("Search for value") 

If Trim(FindString) <> "" Then 
Set rng = ws.Cells.Find(_ 
      What:=FindString, _ 
      LookIn:=xlValues, _ 
      LookAt:=xlPart, _ 
      SearchOrder:=xlByRows, _ 
      SearchDirection:=xlNext, _ 
      MatchCase:=False, _ 
      SearchFormat:=False) 

If Not rng Is Nothing Then 

MsgBox rng.Address 

Else 
MsgBox "Nothing found" 
End If 
End If 
End Sub