VBA 엑셀 매크로 특정 문자포함한 단어 색변경 질문드립니다.

Question

인터넷에 돌아다니는 매크로를 사용해봤는데 이건는 딱 검색한 문자만 색이 변경 되더라고요.저는 &#34;이번연도에 -5% 저번연도에 -4.7%의 변화가 있었다.&#34;이런식으로 - (빼기) 기호가 들어간 단어의 색을 바꾸고 싶습니다.- (빼기) 기호를 입력했을때 - (빼기) 들어간 단어를 바꿀수 있게 수정해주실수 있나요? Sub WordColorInput() Dim cell As Range, word As String, startIndex As Integer word &#61; InputBox(Prompt:&#61;&#34;글자색을 변경할 단어를 입력하세요&#34;, Title:&#61;&#34;글자색 변환&#34;)If Len(word) > 0 Then For Each cell In Selection startIndex &#61; InStr(1, cell, word, vbTextCompare) If startIndex > 0 Then cell.Characters(startIndex, Len(word)).Font.Color &#61; RGB(0, 0, 255) cell.Characters(startIndex, Len(word)).Font.Bold &#61; TrueEnd IfNext cellEnd IfEnd Sub

파랭이 · Answer

(-)가 포함된 단어의 의미가 중요할 것입니다.위의 문장이라면 &#34;-5%&#34; 와 &#34;-4.7%의&#34; 까지는 어렵지 않게 추출가능할 것입니다..For Each cell in Selection 내에서.. words &#61; Split(cell.Text, &#34; &#34;) '공백으로 분할하여 For Each w in words startIndex &#61; Instr(1, w, word, ~~~ ) '분리된 단어에 &#34;-&#34;가 포함되어 있는지 체크 if startindex > 0 then startIndex &#61; Instr(1, cell, w, ~~~ ) '이 단어로 원래의 위치 찾고 cell.Characters(startIndex, Len(w)).Font ~~ 이 단어의 글자크기 만큼 색상 표현 그런데 &#34;-4.7%의&#34; 의 조사 &#34;의&#34; 가 빠져야 한다면 얘기는 달라지겠지요.. 그건 &#34;의&#34; 가 조사인지 부터 체크할 수 있어야 ....

VBA 엑셀 매크로 특정 문자포함한 단어 색변경 질문드립니다.

1개의 답변

Q&A 목록