목록 내용 차례대로 빨간색으로 변경하기

생기부-변경-빨강-Ver-001.xlsm

0.04MB

이름 정의에 이용된 함수

=OFFSET(변경기준!$B$6,0,0,COUNTA(변경기준!$B:$B)-2,COUNTA(변경기준!$5:$5))

매크로 내용

Sub StrColor2() Dim MokRng, oRng As Range Dim t, y, z As Integer Dim fStr As String Set MokRng = Range("변경목록") Set oRng = Range("A1:az500") For Each fStrimsi In MokRng   fStr = fStrimsi     For t = 1 To oRng.Rows.Count     For y = 1 To oRng.Columns.Count        For z = 1 To Len(oRng.Cells(t, y)) - Len(fStr) + 1          If Mid(oRng.Cells(t, y), z, Len(fStr)) = fStr Then             oRng.Cells(t, y).Characters(Start:=z, Length:=Len(fStr)).Font.ColorIndex = 3          End If        Next     Next   Next Next MsgBox "목록의 모든 내용을 빨간색으로 변경하였습니다." End Sub

수정 내용을 직접 입력 받는 매크로

Sub StrColor() Dim oRng As Range Dim t, y, z As Integer Dim fStr As String fStr = InputBox("찾을 문자열을 입력하세요") If fStr = "" Then         Exit Sub End If Set oRng = Range("A1:AA500") For t = 1 To oRng.Rows.Count         For y = 1 To oRng.Columns.Count                 For z = 1 To Len(oRng.Cells(t, y)) - Len(fStr) + 1                         If Mid(oRng.Cells(t, y), z, Len(fStr)) = fStr Then                                 oRng.Cells(t, y).Characters(Start:=z, Length:=Len(fStr)).Font.ColorIndex = 3                         End If                 Next         Next Next End Sub