'''@@@@@@@@@@@@@@@@@@@@@@@@@  Synology NAS 로그 분석용   

''''@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'""======================>>====특정 텍스트 색 변경  ========================
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(0, 0, 255)
                cell.Characters(startIndex, Len(word)).Font.Bold = True
           End If
        Next cell
    End If
End Sub


@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'=========================================  =================
Sub iptime_공유기_로그분석하기()
  Range("e3").Select
   ActiveWindow.FreezePanes = True      ''''''''------------틀고정
      Range("a2:d50000").Select
        Selection.Font.Name = "맑은 고딕"
        Selection.Font.Size = 8     ''''------------------------글자크기
        Selection.Font.Color = vbBlack
      Range("a2:e50000").Select
        Selection.Font.Name = "맑은 고딕"
        Selection.Font.Size = 8     ''''------------------------글자크기
      Range("b1") = "=counta(b2:b50000)"
        Range("a2:e2").Select
         Selection.Interior.Color = vbCyan  ''-----------------------색상
        Range("b1:r1").Select
         Selection.Interior.Color = vbYellow  ''-----------------------색상
         Selection.Font.Bold = True       ''''------------------------두껍게
         Selection.Font.Color = vbRed
  Rows("1:1").RowHeight = 20
  Rows("2:50000").RowHeight = 11
   Range("a:b").ColumnWidth = 10
   Range("c:c").ColumnWidth = 12
   Range("d:d").ColumnWidth = 10
   Range("e:e").ColumnWidth = 130
   Range("f:z").ColumnWidth = 7
 Dim djco As Range
 Set djco = Range("b1")
    Range("f1") = "boot"
    Range("g1") = "LAN"
    Range("h1") = "Detected"
    Range("i1") = "System"
    Range("j1") = "disk"
    Range("k1") = "assword"
    Range("L1") = "uccess"
    Range("m1") = "faile"
    Range("n1") = "service"
    Range("o1") = "Package"
    Range("p1") = "app"
    Range("q1") = "create"
    Range("r1") = "ecycle"
    Range("s1") = "shared"
    Range("t1") = "delete"
    Range("tu") = "내용"
     Range("f2") = "=IF(ISERROR(FIND(f$1,$e2)),""ㅡ"",f$1)"
      Range("u2") = "=IF(ISERROR(FIND("".tmp"",$e1)),""File"",""____.tmp"")"
      Range("f2").Copy
       Range("f2:t2").Select
        ActiveSheet.Paste
      Range("f2:u2").Select
        Selection.Font.Bold = True       ''''------------------------두껍게
         Selection.Font.Color = vbRed
       Selection.Copy
       Range(Selection, Selection.Offset(djco, 0)).Select
         ActiveSheet.Paste
  Application.Run "도형_반영용"
End Sub
''''-----------------------------------------------------------------------------------------------------------------------------
Sub 정렬_로그순용()  ''''---------------------정렬하기
Application.ScreenUpdating = True
      ActiveSheet.Sort.SortFields.Clear
'      ActiveSheet.Sort.SortFields.Add Key:=Range("e2:e50000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      ActiveSheet.Sort.SortFields.Add Key:=Range("f2:f50000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      ActiveSheet.Sort.SortFields.Add Key:=Range("g2:g50000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      ActiveSheet.Sort.SortFields.Add Key:=Range("h2:h50000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      ActiveSheet.Sort.SortFields.Add Key:=Range("i2:i50000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      ActiveSheet.Sort.SortFields.Add Key:=Range("j2:j50000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      ActiveSheet.Sort.SortFields.Add Key:=Range("k2:k50000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      ActiveSheet.Sort.SortFields.Add Key:=Range("L2:L50000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      ActiveSheet.Sort.SortFields.Add Key:=Range("m2:m50000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      ActiveSheet.Sort.SortFields.Add Key:=Range("n2:n50000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      ActiveSheet.Sort.SortFields.Add Key:=Range("o2:o50000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      ActiveSheet.Sort.SortFields.Add Key:=Range("p2:p50000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      ActiveSheet.Sort.SortFields.Add Key:=Range("q2:q50000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      ActiveSheet.Sort.SortFields.Add Key:=Range("r2:r50000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      ActiveSheet.Sort.SortFields.Add Key:=Range("s2:s50000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      ActiveSheet.Sort.SortFields.Add Key:=Range("t2:t50000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      ActiveSheet.Sort.SortFields.Add Key:=Range("u2:u50000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      ActiveSheet.Sort.SortFields.Add Key:=Range("v2:v50000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      ActiveSheet.Sort.SortFields.Add Key:=Range("w2:w50000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveSheet.Sort
        .SetRange Range("A1:z10000")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
Sub 정렬_날짜순용()
   Range("a3:z50000").Select
    Selection.Sort Key1:=Range("c1"), Order1:=xlAscending, Key2:=Range("d1"), Order2:=xlDescending, Key3:=Range("c1"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
End Sub
Sub 정렬_접근순용()
   Range("a3:z50000").Select
    Selection.Sort Key1:=Range("k1"), Order1:=xlAscending, Key2:=Range("L1"), Order2:=xlDescending, Key3:=Range("M1"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
End Sub
Sub 정렬_삭제순용()
   Range("a3:z50000").Select
    Selection.Sort Key1:=Range("t1"), Order1:=xlAscending, Key2:=Range("u1"), Order2:=xlDescending, Key3:=Range("v1"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
End Sub '''''-----------------------------------------------------------------------------------------------------------------------------

Sub 도형_반영용()
Dim djrun As Range
Set djrun = Range("c1")
  If djrun = "도형_반영됨" Then
    Exit Sub
  End If
    Application.Run "도형_정렬날순용"
    Application.Run "도형_정렬접근순용"
    Application.Run "도형_정렬로그순용"
    Application.Run "도형_정렬삭제순용"
    Application.Run "도형_수식반영용"
End Sub
Sub 도형_정렬날순용()
Range("c1") = "도형_반영됨"
   ActiveSheet.Shapes.AddShape(msoShapeRectangle, 200, 0#, 75, 18).Select
     Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "날짜순_정렬"
      Selection.OnAction = "정렬_날짜순용"
End Sub
Sub 도형_정렬접근순용()
Range("c1") = "도형_반영됨"
   ActiveSheet.Shapes.AddShape(msoShapeRectangle, 300, 0#, 75, 18).Select
     Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "접근순_정렬"
      Selection.OnAction = "정렬_접근순용"
End Sub
Sub 도형_정렬로그순용()
Range("c1") = "도형_반영됨"
   ActiveSheet.Shapes.AddShape(msoShapeRectangle, 400, 0#, 75, 18).Select
     Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "로그순_정렬"
      Selection.OnAction = "정렬_로그순용"
End Sub
Sub 도형_정렬삭제순용()
Range("c1") = "도형_반영됨"
   ActiveSheet.Shapes.AddShape(msoShapeRectangle, 500, 0#, 75, 18).Select
     Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "삭제순_정렬"
      Selection.OnAction = "정렬_삭제순용"
End Sub
Sub 도형_수식반영용()
Range("c1") = "도형_반영됨"
   ActiveSheet.Shapes.AddShape(msoShapeRectangle, 700, 0#, 75, 18).Select
     Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "수식_반영"
      Selection.OnAction = "iptime_공유기_로그분석하기"
End Sub

'''@@@@@@@@@@@@@@@@@@@@@@@@@  Synology NAS 로그 분석용   @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'