아하
생활

생활꿀팁

고마운바다사자298
고마운바다사자298

엑셀 매크로 관련하여 질문합니다 ~! (셀 안의 특정 단어 색 바꾸기)

안녕하세요.

제가 셀 안에 있는 일부 글자만 빨간색 글자로 변경하고자 아래와 같이 매크로를 썼습니다.

Sub WordColor()

Dim cell As Range, word As String, startIndex As Integer

word = InputBox(Prompt:="단어를 입력하세요", Title:="문자열 색 변환")

If Len(word) > 0 Then

For Each cell In Selection

startIndex = InStr(1, cell, word, vbTextCompare)

If startIndex > 0 Then

cell.Characters(startIndex, Len(word)).Font.Color = RGB(255, 0, 0)

cell.Characters(startIndex, Len(word)).Font.Bold = True

End If

Next cell

End If

End Sub

예를들어 '딸기'라는 단어를 빨간색으로 변경한다고 했을 때,

셀 안에 '딸기'라는 단어가 3개가 들어 있으면 맨 앞에 있는 단어만 빨간색으로 변경됩니다.

셀 안의 제가 원하는 모든 단어가 빨간색으로 변경하고자 할 때 매크로의 어떤 부분을 수정해야 할까요?

도움 좀 부탁드립니다 !

55글자 더 채워주세요.
아직 답변이 없어요.