나는 한 단어를 찾아 Excel에서 강조하고 싶습니다. 어떻게해야합니까?

Question

Excel에서 단어를 찾고 해당 셀을 강조 표시하고 싶습니다. VBA를 사용하여 수행하는 방법. 내 코드가 전체 시트를 강조 표시하고 있습니다.

은 코드 - 여기

Sub Foreign_Lang_Converter() 

Sheets("Sheet2").Select 
Value = 0 
i = 1 
Do While (Cells(i, 2) <> "") 
Value = Value + 1 
i = i + 1 
Loop 
Count = 0 
For j = 1 To Value 

a = Cells(j, 1) 
b = Cells(j, 2) 
Sheets("Sheet1").Select 
Cells.Select 
    Selection.Find What:=a 
    With Selection.Interior 
     .Pattern = xlSolid 
     .PatternColorIndex = xlAutomatic 
     .ThemeColor = xlThemeColorAccent6 
     .TintAndShade = 0.599993896298105 
     .PatternTintAndShade = 0 
    End With 
Selection.Replace What:=a, Replacement:=b 
Sheets("Sheet2").Select 
Next j 
End Sub 

Answer 1

먼저 read this이다.

편집 : 이것은 전체 작업에 대한 해결책은 아니지만 원래 코드로 설명한 문제에 대한 해결책이므로 전체 시트를 채울 것입니다.

여기서 문제는 Selection.Find What:=a이 선택을 변경하지 않으며 범위를 반환한다는 것입니다. 전체 시트가 선택 되었기 때문에 다음 단계는 전체 시트에 색상을 지정합니다. 시도해보십시오.

With Sheets("Sheet1").Cells.Find(a) 
    With .Interior 
     .Pattern = xlSolid 
     .PatternColorIndex = xlAutomatic 
     .ThemeColor = xlThemeColorAccent6 
     .TintAndShade = 0.599993896298105 
     .PatternTintAndShade = 0 
    End With 
    .Value = b 
End With 

이것은 한 번만 발생합니다. .FindNext 방법이나 조건부 서식을 살펴보십시오. 또한 저장하기 때문에 다른 검색 매개 변수 (LookIn, LookAt, SearchOrder 및 MatchByte)를 설정하는 것이 좋습니다. (비고 here 참조)

편집 : 고정 코드. 지금 일해야한다.

Answer 2

나는 해상도를 가지고

코드는 것 같은 - 첫째

Sub Foreign_Lang_Converter() 

Sheets("Sheet2").Select 
Value = 0 
i = 1 
Do While (Cells(i, 2) <> "") 
Value = Value + 1`enter code here` 
i = i + 1 
Loop 
Count = 0 
For j = 1 To Value 

a = Cells(j, 1) 
b = Cells(j, 2) 
Sheets("Sheet1").Select 


    Cells.Select 
    Application.ReplaceFormat.Clear 
    With Application.ReplaceFormat.Font 
     .Subscript = False 
     .TintAndShade = 0 
    End With 
    With Application.ReplaceFormat.Interior 
     .PatternColorIndex = xlAutomatic 
     .Color = 5296274 
     .TintAndShade = 0 
     .PatternTintAndShade = 0 
    End With 
    Selection.Replace What:=a, Replacement:=b, LookAt:=xlPart, _ 
     SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
     ReplaceFormat:=True 

Sheets("Sheet2").Select 
Next j 
End Sub