셀에 일련의 컬러 텍스트 문자가 있습니다. 아래와 같이 여러 셀에 색상을 기반으로 구문 분석하고 싶습니다. 색상이 반복됩니다. 솔루션을 포함하여 이미이 포럼에 게시 된 일부 솔루션을 사용하려고했습니다. 여러 색상의 텍스트가있는 셀에서 글꼴 색상을 기반으로 텍스트를 추출하고 구분 기호로 여러 단어를 분리하는 방법은 무엇입니까? . 하지만 원하는 결과를 얻을 수 없었습니다. 어떤 제안?
이거 맞아 보인다.
Option Explicit
Function udf_Color_Piece(rTXT As Range, Optional iNDX As Long = 1)
Dim c As Long, seg As Long, clr As Long
seg = 0
clr = -9
udf_Color_Piece = vbNullString
For c = 1 To Len(rTXT.Text)
With rTXT.Characters(Start:=c, Length:=1)
If clr <> .Font.Color Then
seg = seg + 1
clr = .Font.Color
If seg > iNDX Then Exit Function
End If
If seg = iNDX Then
udf_Color_Piece = udf_Color_Piece & .Text
End If
End With
Next c
End Function
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다