쿠키는 우리의 서비스를 제공 도움이됩니다. 우리의 서비스를 사용하면 쿠키의 우리의 사용에 동의합니다.
팁 : 다른 언어는 Google 번역입니다. 방문하실 수 있습니다. English 이 링크의 버전.
로그인
x
or
x
x
등록하기
x

or

Excel에서 셀의 글꼴 색을 기반으로 텍스트를 추출하는 방법은 무엇입니까?

아래 스크린 샷과 같이 Excel의 각 셀에 빨간색 텍스트가있는 데이터 목록이 있고 빨간색 텍스트 만 추출하는 방법을 알고 계시다면? 이제 Excel의 셀에서 글꼴 색을 기반으로 텍스트를 추출하는 퍼즐을 빠르게 해결하는 방법을 소개합니다.

doc-extract-text-color-1

각 셀의 글꼴 색을 기반으로 텍스트 추출


화살표 오른쪽 파란색 거품 각 셀의 글꼴 색을 기반으로 텍스트 추출


Excel에서는 정의 된 함수를 사용하여 글꼴 색상을 기반으로 텍스트를 추출 할 수만 있습니다.

1. 프레스 Alt + F11 키를 함께 사용하여 Microsoft Visual Basic for Applications 창을 엽니 다.

2. 클릭 끼워 넣다 > 모듈 다음 VBA 코드를 팝업 창으로 복사하십시오.

VBA : 글꼴 색을 기준으로 텍스트 추출

Function GetColorText(pRange As Range) As String
	'Updateby20141105
	Dim xOut As String
	Dim xValue As String
	Dim i As Long
	xValue = pRange.Text

	For i = 1 To VBA.Len(xValue)

		If pRange.Characters(i, 1).Font.Color = vbRed Then
			xOut = xOut & VBA.Mid(xValue, i, 1)
		End If

	Next

	GetColorText = xOut
End Function

3. 그런 다음 대화 상자를 저장하고 닫은 다음 데이터 목록 옆의 빈 셀을 선택하고이 수식을 입력하십시오. = GetColorText (A1) (A1는 텍스트를 추출 할 셀을 나타냅니다.), 엔터 버튼 키를 사용하여 필요한 텍스트를 가져온 다음 자동 채우기 핸들을 끌어 수식을 원하는 범위로 채 웁니다.

이제 빨간색 텍스트가 모두 추출 된 것을 볼 수 있습니다.

doc-extract-text-color-2

: 위의 VBA 코드에서 셀에서 검정 텍스트를 추출해야하는 경우 색상 이름을 변경할 수 있습니다 색상 = vbRed 색상 = vbBlack.


관련 기사 :



권장 생산성 도구

사무실 탭

금색 star1 Chrome, Firefox 및 새 Internet Explorer와 마찬가지로 Excel 및 기타 Office 소프트웨어에 편리한 탭을 가져옵니다.

Excel 용 Kutools

금색 star1 놀랄 만한! 5 분 동안 생산성을 높입니다. 매일 2 시간을 절약 할 수있는 특별한 기술이 필요하지 않습니다!

금색 star1 300 Excel의 새로운 기능, Excel을 훨씬 쉽고 강력하게 만듭니다 :

  • 데이터 손실없이 셀 / 행 / 열 병합.
  • 여러 시트 및 통합 문서 결합 및 통합.
  • 범위 비교, 여러 범위 복사, 날짜, 단위 및 통화 변환 텍스트 변환.
  • 색상, 페이징 부분합, 고급 정렬 및 수퍼 필터,
  • 추가 선택 / 삽입 / 삭제 / 텍스트 / 형식 / 링크 / 주석 / 통합 문서 / 워크 시트 도구 ...

Kutools for Excel의 스크린 샷

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    prudwi · 2 months ago
    The code works well if the red strings are continuous. In case they are separated in the source cell, they are glued to each other in output cell. I mean there is no space in the output if the red text strings are away from each other. Can you please provide a solution for this?
  • To post as a guest, your comment is unpublished.
    Kazam Raza · 2 months ago
    thanks, very interesting code.
  • To post as a guest, your comment is unpublished.
    Roberto · 3 months ago
    dimenticavo io ho Excel 2010
  • To post as a guest, your comment is unpublished.
    Roberto · 3 months ago
    Buonasera, grazie mille un'ottima funzione. Però ho un problema, quando val nel foglio ed inserisco es. = GetColorText (A1) mi restituisce il valore giusto però come riavvio il file mi da errore #VALORE!, se poi clicco 2 volte sopra mi da il valore corretto e così via. che posso fare?
  • To post as a guest, your comment is unpublished.
    JM · 1 years ago
    Hey, Thanks for the Tip. Works great with Red and Black.
    What if I want to parse "Purple"? changing it vbPurple does not work.
    Thanks