Note: The other languages of the website are Google-translated. Back to English

Excel에서 셀의 특정 단어에 색을 지정하거나 강조 표시하는 방법은 무엇입니까?

셀에 여러 단어가 포함되어있는 경우이 셀에서만 특정 단어를 강조 표시하려면 어떻게해야합니까? 이 특정 단어를 여러 셀에 강조 표시하는 것은 어떻습니까? 이 기사에서는이를 달성하는 방법을 제공합니다.

VBA 코드로 단일 셀 / 다중 셀의 특정 단어에 색상 지정


VBA 코드로 단일 셀 / 다중 셀의 특정 단어에 색상 지정

다음 VBA 코드는 선택 항목에서 특정 단어를 강조하는 데 도움이 될 수 있습니다. 다음과 같이하십시오.

1. 범위 안에 특정 단어를 강조 표시하려는 셀이 포함 된 범위를 선택하십시오. 그런 다음 다른 + F11 동시에 열려면 키 응용 프로그램 용 Microsoft Visual Basic 창.

2. 오프닝에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 끼워 넣다 > 모듈. 그런 다음 VBA 코드를 복사하여 코드 창에 붙여 넣습니다.

VBA 코드 : Excel에서 셀의 특정 단어 색상 지정

Sub HighlightStrings()
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = Application.InputBox("What is the string to highlight:", "KuTools For Excel", , , , , , 2)
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            xArr = Split(xCell.Value, xHStr)
            xCount = UBound(xArr)
            If xCount > 0 Then
                xStrTmp = ""
                For I = 0 To xCount - 1
                    xStrTmp = xStrTmp & xArr(I)
                    xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3
                    xStrTmp = xStrTmp & xHStr
                Next
            End If
        Next
    Application.ScreenUpdating = True
End Sub

3. 누르세요 F5 코드를 실행하는 키입니다. 그리고 Excel 용 Kutools 대화 상자에서 셀에 강조 표시 할 특정 단어를 입력 한 다음 OK 단추. 스크린 샷보기 :

그런 다음 아래 스크린 샷과 같이 지정한 모든 단어가 선택한 셀에서 즉시 빨간색으로 표시되는 것을 볼 수 있습니다.


관련 기사 :


최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (23)
5에서 평가 된 5 · 1 등급
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
마지막 단계에서 언급한 "Kutools for Excel 대화 상자"를 여는 방법을 설명하지 않습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
친애하는 저스틴,
미안합니다. VBA 코드를 코드 창에 붙여넣은 후 F5 키를 눌러 코드를 실행하면 "Kutools for Excel" 대화 상자가 열립니다. 고맙습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
탭을 편집할 때 코드가 자동으로 단어를 강조 표시하도록 하는 방법이 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕,
죄송합니다. 도와드릴 수 없습니다. 귀하의 의견에 감사드립니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
고마워, 고마워, 고마워
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Quisisera resaltar varias palabras al tiempo, como lo puedo hacer?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Eso es lo que estoy tratando de hacer tamiben (저도 그렇게 하려고 합니다)
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
대소문자를 구분하지 않는 검색/강조 표시를 선호하는 경우 'xArr = Split(xCell.Value, xHStr)' 행을 'xArr = Split(LCase(xCell.Value), LCase(xHStr))'로 변경하십시오. 또한 F5 키를 눌러도 스크립트가 실행되지 않는다는 점에 주목했습니다(대신 다른 모달 창이 표시됨). Excel 옵션(리본 사용자 지정)을 사용하여 개발 도구 탭을 활성화한 다음 매크로를 클릭하여 액세스했습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
감사합니다... 많은 도움이 되었습니다! 부분 대신 전체 단어만 강조 표시되도록 매크로를 조정하는 방법이 있습니까? 예를 들어, 저는 "design"이라는 단어를 강조하려고 하지만 "designate"라는 단어에서 "design"을 강조합니다. 전체 단어가 아닌 경우 해당 단어를 건너뛰고 싶습니다. 감사해요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요
Est-il possible de supprimer la boite de dialogue et de mettre par défaut "apple" comme mot recherché?
메르
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 PAUC입니다.
다음 코드는 당신에게 도움이 될 수 있습니다. 시도해 주세요.
Sub HighlightStrings()
'Updated by Extendoffice 20220721
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = "apple"
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            xArr = Split(xCell.Value, xHStr)
            xCount = UBound(xArr)
            If xCount > 0 Then
                xStrTmp = ""
                For I = 0 To xCount - 1
                    xStrTmp = xStrTmp & xArr(I)
                    xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3
                    xStrTmp = xStrTmp & xHStr
                Next
            End If
        Next
    Application.ScreenUpdating = True
End Sub
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
좋은

Coloreaza cuvantul doar daca e la inceput. Daca e la mijloc in aceeasi casuta de excel sau la sfarsit nu-l coloreaza.
Ce anume as putea schimba in cod pentru al colora indeferent unde se afla in casuta excel?

감사합니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕 안드레아,
단어가 선택한 셀의 시작 부분에 있는 경우에만 강조 표시하려는 경우. 다음 VBA 코드는 당신에게 호의를 베풀 수 있습니다. 시도해 보십시오.
Sub HighlightStrings()
'Updated by Extendoffice 20220805
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = Application.InputBox("What is the string to highlight:", "KuTools For Excel", , , , , , 2)
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            If xHStrLen <= Len(xCell.Value) Then
                If xHStr = Left(xCell.Value, xHStrLen) Then
                    xCell.Characters(1, xHStrLen).Font.ColorIndex = 3
                End If
            End If
        Next
    Application.ScreenUpdating = True
End Sub
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요,
a me servirebbe evidenziare tutti i numeri (comprensivi di Due decimali) da -10,00 a 0 in rosso e da 0 a +10,00 in verde. 비 aggiungere singolarmente ogni dato senza aggiungerli tutti manualmente에 대한 posso 요금이 있습니까?

그라 찌에 밀레
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 Ciao님
번호가 범위의 다른 셀에 있습니까? 그렇다면 두 개의 조건부 서식 규칙(-10과 0 사이, 0과 10 사이)을 만들어 이 숫자를 강조 표시할 수 있습니다. 그렇지 않은 경우 데이터의 스크린샷을 업로드할 수 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
아주 좋아요, thx! Mac에서 작동시키는 방법을 아는 사람이 있는지 궁금합니다. 많은 감사
5에서 평가 된 5
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
다음을 수행하도록 스크립트를 어떻게 변경할 수 있습니까?

글꼴 크기를 1씩 늘리고
스크립트를 한 번 실행하여 여러 단어를 강조 표시하시겠습니까?

고마워!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕 t.taln,

글꼴 크기를 1씩 늘리고 동시에 여러 단어를 강조 표시하려면 "줄 뒤에 다음 줄을 추가하십시오.xCell.Characters(Len(xStrTmp) + 1, xHSrLen).Font.ColorIndex = 3" VBA 코드에서.
주의 사항: 선택한 셀의 현재 글꼴 크기를 미리 알고 원래 단어보다 한 글자 큰 숫자를 입력해야 합니다. 아래 줄의 숫자 12는 일치하는 단어에 할당할 글꼴 크기입니다. 그리고 단어의 원래 글꼴 크기는 11입니다.
xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.Size = 12
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
감사합니다. 매우 유용합니다. 글꼴 색상 대신 단어를 강조 표시하려면 어떻게 해야 합니까?

감사합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
감사합니다. 정말 도움이 되었습니다. 텍스트를 강조 표시하는 대신 색상을 지정하는 방법을 알려주실 수 있습니까?

문안 인사
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 Shaik Faiaz 하마드,

Excel에서는 셀의 일부를 채색할 수 없습니다. 이 문제에 대해 도움을 드리지 못해서 죄송합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
봉쥬르 크리스탈,
코드를 따르십시오. Est-il possible de l'adapter pour mettre en évidence plusieurs mots "Apple, Rose, Vert, Merci"
메르
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕 쿠스,

다음 VBA 코드가 도움이 될 수 있습니다. 코드를 실행하면 대화 상자가 나타납니다. 강조하고 싶은 단어를 입력하고 쉼표로 구분하세요.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/highlight.png
Sub HighlightStrings()
'Updated by Extendoffice 20230130
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    Dim xArr2
    On Error Resume Next
    xHStr = Application.InputBox("What is the string to highlight:", "KuTools For Excel", , , , , , 2)
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
    
    xArr2 = Split(xHStr, ",")
    For j = 0 To UBound(xArr2)
        xHStr = xArr2(j)
    
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            xArr = Split(xCell.Value, xHStr)
            xCount = UBound(xArr)
            If xCount > 0 Then
                xStrTmp = ""
                For I = 0 To xCount - 1
                    xStrTmp = xStrTmp & xArr(I)
                    xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3
                    xStrTmp = xStrTmp & xHStr
                Next
            End If
        Next
    Next
    
    Application.ScreenUpdating = True
End Sub
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호