Получить ссылку на ячейку, содержащую определенный текст с подстановочными знаками

Question

Фактически ответ на этот вопрос уже здесь.

Get the reference of a cell containing a certain text

, который может быть сделано без использования макросов,

Но проблема у меня есть, что я хочу, чтобы найти определенный текст с джокером.

example: DOM???text

Answer 1

Вы можете заменить InStr() функцию для Like оператора. Код будет выглядеть следующим образом:

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 

Вы должны убедиться, что ваша sIn строка имеет правильные символы.

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