셀 범위에서 특정 단어를 모두 굵게 표시하는 방법은 무엇입니까?

Excel에서 찾기 및 바꾸기 함수는 특정 텍스트를 찾고 전체 셀에 굵게 또는 기타 서식을 지정하는 데 도움이 될 수 있습니다. 그러나 아래 스크린 샷과 같이 전체 셀이 아닌 셀의 특정 텍스트 만 굵게 표시하려고 시도한 적이 있습니까?

VBA 코드로 셀 범위의 모든 특정 단어를 굵게 표시

VBA 코드로 셀 범위의 모든 특정 단어를 굵게 표시

다음 VBA 코드는 셀 콘텐츠의 특정 텍스트 만 굵게 표시하는 데 도움이 될 수 있습니다. 다음과 같이하십시오.

1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 다음 코드를 모듈 창문.

VBA 코드 : 셀 범위의 굵은 특정 텍스트

Sub FindAndBold()
'Updateby Extendoffice 20160711
    Dim xFind As String
    Dim xCell As Range
    Dim xTxtRg As Range
    Dim xCount As Long
    Dim xLen As Integer
    Dim xStart As Integer
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    On Error Resume Next
    Set xTxtRg = Application.Intersect(xRg.SpecialCells(xlCellTypeConstants, xlTextValues), xRg)
    If xTxtRg Is Nothing Then
        MsgBox "There are no cells with text"
        Exit Sub
    End If
    xFind = Trim(Application.InputBox("What do you want to BOLD?", "Kutools for Excel", , , , , , 2))
    If xFind = "" Then
        MsgBox "No text was listed", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xLen = Len(xFind)
    For Each xCell In xTxtRg
        xStart = InStr(xCell.Value, xFind)
        Do While xStart > 0
            xCell.Characters(xStart, xLen).Font.Bold = True
            xCount = xCount + 1
            xStart = InStr(xStart + xLen, xCell.Value, xFind)
        Loop
    Next
    If xCount > 0 Then
        MsgBox "number of " & CStr(xCount) & " text be bolded!", vbInformation, "Kutools for Excel"
    Else
        MsgBox "Not find the specific text!", vbInformation, "Kutools for Excel"
    End If
End Sub

3. 그런 다음 F5 키를 눌러이 코드를 실행하면 굵게 표시 할 데이터 범위를 선택하라는 메시지 상자가 나타납니다. 스크린 샷을 참조하십시오.

4. 그런 다음 OK, 셀에만 굵게 표시 할 특정 텍스트를 입력하라는 다른 상자가 나타납니다. 스크린 샷을 참조하십시오.

5. 텍스트를 입력 한 후 OK 버튼을 클릭하고 지정한 모든 텍스트가 선택한 범위에서 굵게 표시되었습니다. 스크린 샷을 참조하십시오.