범위안에서 입력한 글자를 찾아 글자색을 빨간색으로 변경하는 코드

팁&서식

범위안에서 입력한 글자를 찾아 글자색을 빨간색으로 변경하는 코드

원장샘 0 34 07.15 17:12

Sub 매크로()

kk = InputBox("글자")

Application.ScreenUpdating = False

For Each ii In Selection

kst = InStr(1, ii, kk)

If kst > 0 Then

   With ii.Characters(Start:=kst, Length:=2).Font

        .Name = "굴림"

        .FontStyle = "보통"

        .Size = 10

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Color = -16776966

        .Underline = xlUnderlineStyleNone

        .TintAndShade = 0

        .ThemeFont = xlThemeFontNone

     End With

   End If

Next

Application.ScreenUpdating = True

End Sub




/////////////////아래는  더 진보된 코드 //////////////////////////////////


  

Sub Color_Chg()


   Dim strChg As String  '//  색상변환대상 단어

   Dim strLen As Integer  '//  색상변환대상 단어글자수

   Dim Cell As Range

   Dim strTemp

   

   strChg = Application.InputBox("변경대상단어", Type:=2)

   

   If strChg = "" Then Exit Sub

   

   Application.ScreenUpdating = False

   

   strLen = Len(strChg)

    For Each Cell In ActiveSheet.UsedRange

         If InStr(Cell, strChg) > 0 Then

              For i = 1 To Len(Cell)

                   strTemp = VBA.Mid(Cell, i, strLen)

                   If strTemp = strChg Then

                        With Cell.Characters(Start:=i, Length:=strLen)

                             .Font.Color = RGB(255, 0, 0)

                        End With

                   End If

             Next

        End If

    Next

    

    Application.ScreenUpdating = True

    MsgBox "작업완료"

    

End Sub


Sub 초기화()

   

   Dim sh As Sheets

   Dim Rng_Chg As Range

   Dim strChg As String  '//  색상변환대상 단어

   Dim strLen As Integer  '//  색상변환대상 단어글자수

   Dim Cell As Range


    For Each Cell In ActiveSheet.UsedRange

         With Cell

              .Font.Color = RGB(0, 0, 0)

         End With

    Next

    

End Sub

    



'//  날자형식에 "-" 와 시간 형식에 ";" 을 기준으로 앞으로 4개 기준으로 날자는 10개의 문자수 시간은 ":" 기준으로 앞으로 2개 총 5개의 문자를

'//   빨강색으로 표시하도록 만들었습니다.



Comments

Category
State
  • 현재 접속자 3 명
  • 오늘 방문자 62 명
  • 어제 방문자 91 명
  • 최대 방문자 491 명
  • 전체 방문자 374,328 명
  • 전체 게시물 2,708 개
  • 전체 댓글수 105 개
  • 전체 회원수 109 명
Facebook Twitter GooglePlus KakaoStory NaverBand