説明の一部を検索

Question

セル内の説明の一部を検索できる方法はありますか？ UTPのような部品を検索するとエラーが出るので

オヤジのアイデアはありますか？ここで

が、私は質問を理解している場合

Answer 1

わからないいくつかのオランダ語の単語がありますが、多分ルックアットとして代わりに「xlWhole」の「xlPart」を使用しようとするコードでは私のコード

'search for a cbxItem_Nr or a cbx_Description 
Sub Find_test_click() 
    Dim FindString As String 
    Dim Rng As Range 
    FindString = InputBox("Voer de product code in") 
    If Trim(FindString) <> "" Then 
     With Sheets("Magazijn").Range("A:B") 'searches all of column A and B 
      Set Rng = .Find(What:=FindString, _ 
          After:=.Cells(.Cells.Count), _ 
          LookIn:=xlValues, _ 
          LookAt:=xlWhole, _ 
          SearchOrder:=xlByRows, _ 
          SearchDirection:=xlNext, _ 
          MatchCase:=False) 
      If Not Rng Is Nothing Then 
       Application.Goto Rng, True 'value found 
      Else 
       MsgBox "Opgegeven product Niet gevonden" '(MsgBox) Saying Did not find the product 
      End If 
     End With 
    End If 
End Sub 

です-parameter。