VBA : 내 검색으로 찾지 못한 셀을 강조 표시합니다.

Question

' On Error Resume Next 'Turn off error handling 
      Set mf = Selection.Find(What:=FindText, after:=ActiveCell, LookIn:=xlValues, LookAt:= _ 
      xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ 
      , SearchFormat:=False) 'search and find my opnumber 
     On Error GoTo 0 'turn back on default error handeling 

     If mf Is Nothing Then 
     MyActiveSheet.Activate 
     With mf 
      .Interior.ColorIndex = 27 
     End With 
      GoTo skipit 
     Else 
      mf.Activate 
     End If 

내 검색에서 찾지 못한 모든 셀을 노란색으로 강조 표시하려고합니다. 어떤 이유로 나는 그것을 작동시키지 않는 것 같습니다. 다음

Sub test() 
    Dim mf As Range 
    Dim sAddr As String  
    Dim FindText As String 

    FindText = "test" 

    With Selection 
     .Interior.ColorIndex = 27 
     Set mf = .Find(What:=FindText, _ 
         LookIn:=xlValues, _ 
         LookAt:=xlPart, _ 
         SearchOrder:=xlByRows, _ 
         SearchDirection:=xlNext, _ 
         MatchCase:=False, _ 
         SearchFormat:=False) 
     If Not mf Is Nothing Then 
      sAddr = mf.Address 
      Do 
       mf.Interior.ColorIndex = xlNone 
       Set mf = .FindNext(mf) 
       If mf Is Nothing Then Exit Do 
      Loop While mf.Address <> sAddr 
     End If 
    End With 
End Sub 

주요 아이디어는 노란색으로 전체 선택을 강조하고, :

Answer 1

강조 선택

의 검색 에 의해 발견를 werent 사람이 코드를 사용해보십시오 FindText이있는 모든 셀에서 강조 표시를 제거하십시오.