''''@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Sub 패치_셀스타일_삭제()   ''''''''@@@@@@@@@@@@@@@@@@@@'''스타일 제거
  Dim cell_style As Style
  Dim i As Integer
    On Error Resume Next
  For Each cell_style In ThisWorkbook.Styles
     If Not cell_style.BuiltIn Then cell_style.Delete
       i = i + 1
  Next
    MsgBox i & "개의 셀 스타일 삭제 완료!!!"
End Sub

''''@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Sub 패치_이름정의_삭제()   ''''''@@@@@@@@@@@@@@@@@@@@'''모든 이름정의 삭제
    Dim n As Name
    Dim lngCount As Long
    On Error Resume Next
    lngCount = ActiveWorkbook.Names.Count
    For Each n In ActiveWorkbook.Names
        n.Visible = True
        n.Delete
    Next n
    MsgBox "총 " & lngCount & "개의 [이름] 중, " & lngCount - ActiveWorkbook.Names.Count & "개의 [이름] 삭제 완료."
End Sub

''====================>>====인쇄관련====================>>====
   ActiveSheet.PageSetup.Orientation = xlPortrait  '''''''''용지세로방향
   ActiveSheet.PageSetup.Orientation = xlLandscape  '''''''''용지가로방향

   ActiveSheet.PageSetup.PrintArea = "$A$1:$O$27"    ''''''''''인쇄영역지정
''====================>>====문자서식====================>>====
    Selection.NumberFormatLocal = "yyyy-mm-dd"      ''''------------------------날짜서식
      Selection.NumberFormatLocal = "#,##0_);[빨강](#,##0)"      ''''------------------------숫자서식
      Selection.VerticalAlignment = xlCenter   '''''''''''수직중앙
      Selection.Font.Name = "맑은 고딕"  ''''------------------------글자형식 
      Selection.Font.Size = 8     ''''------------------------글자크기
      Selection.Font.Bold = True       ''''------------------------두껍게
      Selection.Font.Color = vbRed    ''''------------------------글자색  빨강
      Selection.Interior.Color = vbYellow  ''-----------------------배경색상 노랑
''====================>>====문자서식====================>>====
Range("A1").VerticalAlignment = xlCenter  '''''---------------셀에 수직중앙
Range("A1").HorizontalAlignment = xlCenter  '''''---------------셀에 가로중앙
''====================>>====틀고정하기 및 숨기기취소====================>>====
 Rows("1:10000").EntireRow.Hidden = False     ''''''''------------숨기기취소
 Range("F7").select
   ActiveWindow.FreezePanes = False
   ActiveWindow.FreezePanes = True      ''''''''------------틀고정
   ActiveWindow.Zoom = 100               '''''''''------------화면줌 100%
''====================>>====내려가기 맨아래로====================>>====
  Range("a10").End(xlDown).Select      ''''''''------------내려가기 맨아래로
''====================>>==== 이하 밑 전체 지우기 ====================>>====
    Rows("21:21").Select  ''''''''''''''''''''''''''''''''''''''밑 전체 지우기
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
''====================>>==== 작업중인 폴더 열기 ====================>>====
sub 작업중인폴더열기
 Dim djfolder As Range
 Set djfolder = Range("j1")
Call Shell("explorer.exe" & " " & djfolder, vbNormalFocus)
''====================>>====내려가기 밑으로====================>>====
Sub 내려가기용_통소()
  Dim djco As Range
  Set djco = Range("a1")
    Range("a12").Select
      If djco = 0 Then
      Else
        Selection.Offset(djco, 0).Select
      End If
End Sub

''====================>>====새파일 새로운파일로 출력====================>>====
        Dim wb As Workbook
        Set wb = Workbooks.Add
''====================>>====쉬트 변수값====================>>====
    Dim myung2 As String
    myung2 = Range("o7")
      Sheets(myung2).Select

''====================>>====YB 박스 확인창====================>>====
       msg = ActiveSheet.Name & "      "" ###  " & dat & "   ### ""    해당 날짜 이후 모든 자료를 삭제 할까요 ??     "
       ans = MsgBox(msg, vbYesNo)

''====================>>====소팅하기====================>>====
  Sheets("광주").Range("A4:r50000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("A8:r9"), CopyToRange:=Range("A10:r10"), Unique:=False   ''''''......소팅

''====================>>====정렬하기====================>>====
  Selection.Sort Key1:=Range("a7"), Order1:=xlAscending, Key2:=Range("b7"), Order2:=xlDescending, Key3:=Range("c7"), Order3:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal

''====================>>====선택적 붙여넣기====================>>====
'   ActiveSheet.PasteSpecial Format:="텍스트", Link:=False, DisplayAsIcon:=False    '''.......................................................................... 텍스트 붙여넣기
'    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False     '''................... 값만 붙여넣기
'    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False    '''.................... 서식붙여넣기
'    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False    '''.................... 수식붙여넣

''====================>>====다른파일참조====================>>====
       Workbooks.Open(workp & "\매입출2009.xls", ReadOnly = True, Password:="8571").Sheets("매입출").Range("a2:z65000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("A12:Z13"), CopyToRange:=Selection, Unique:=False
       ActiveWorkbook.Close False   '''''''------------파일닫기

''====================>>====자동계산 멈춤====================>>====
 Application.Calculation = xlManual   '----------------------자동계산 멈춤
 Application.Calculation = xlautomatic   '-------------------자동계산 재시작

''====================>>====선택영역만 자동계산 재시작
 ActiveSheet.Range("a1:e10").Calculate   '-------------------$$$$$$$$$$$$$$$'''선택영역만 재계산
ActiveSheet.Calculate   '-------------------$$$$$$$$$$$$$$$'''선택시트만 재계산

''====================>>====다른시트 셀에 값 입력====================>>====
   Range("월별!k1") = "x"   ''''''''''''''''''2안
   Sheets("월별").Range("k1") = "x"   ''''''''''''''''''1안
''====================>>====화면 업데이트====================>>====
 Application.ScreenUpdating = False
 Application.ScreenUpdating = True

''====================>>====밑전체지우기====================>>====
   Range(Selection, Selection.End(xlDown)).Delete Shift:=xlUp  ''''''''''''''''밑 전체 지우기

''====================>>====표그리기====================>>====
Sub 표그리기_세밀선  ()  '''''''''''''''''''표그리기 세밀선
    Selection.Borders(xlEdgeLeft).Weight = xlHairline
    Selection.Borders(xlEdgeTop).Weight = xlHairline
    Selection.Borders(xlEdgeBottom).Weight = xlHairline
    Selection.Borders(xlEdgeRight).Weight = xlHairline
    Selection.Borders(xlInsideVertical).Weight = xlHairline
    Selection.Borders(xlInsideHorizontal).Weight = xlHairline
End Sub
Sub 표그리기_얇은선()  '''''''''''''''''''표그리기 얇은선
    Selection.Borders(xlEdgeLeft).LineStyle = xlContinuous
    Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
    Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous
    Selection.Borders(xlEdgeRight).LineStyle = xlContinuous
    Selection.Borders(xlInsideVertical).LineStyle = xlContinuous
    Selection.Borders(xlInsideHorizontal).LineStyle = xlContinuous
End Sub

''====================>>====견적서에폴더용====================>>====
    Range("q1") = "=IF(MID(LEFT(CELL(""filename""),20),16,4)=""(DJ)"",(LEFT(CELL(""filename""),25)),IF(LEFT(CELL(""filename""),15)=""D:\사무실\Synology"",(LEFT(CELL(""filename""),34)),IF(LEFT(CELL(""filename""),22)=""D:\백업용\DropBAK\Dropbox"",(LEFT(CELL(""filename""),28)),IF(LEFT(CELL(""filename""),14)=""Y:\사무실\Dropbox"",(LEFT(CELL(""filename""),20)),IF(LEFT(CELL(""filename""),11)=""D:\사무실\Drop"",(LEFT(CELL(""filename""),20)),IF(LEFT(CELL(""filename""),19)=""\\off\D\사무실\Dropbox"",(LEFT(CELL(""filename""),25)),(LEFT(CELL(""filename""),23))))))))&""\견적서_및_계약서"""

range("j1")="매입출!$j$1"
  
''====================>>====현재작업 폴더용====================>>====
'VBA용 >> Range("j1") = "=IF(MID(LEFT(CELL(""filename""),20),16,4)=""(DJ)"",(LEFT(CELL(""filename""),25)),IF(LEFT(CELL(""filename""),15)=""D:\사무실\Synology"",(LEFT(CELL(""filename""),34)),IF(LEFT(CELL(""filename""),22)=""D:\백업용\DropBAK\Dropbox"",(LEFT(CELL(""filename""),28)),IF(LEFT(CELL(""filename""),14)=""Y:\사무실\Dropbox"",(LEFT(CELL(""filename""),20)),IF(LEFT(CELL(""filename""),11)=""D:\사무실\Drop"",(LEFT(CELL(""filename""),20)),IF(LEFT(CELL(""filename""),19)=""\\off\D\사무실\Dropbox"",(LEFT(CELL(""filename""),25)),(LEFT(CELL(""filename""),23))))))))"
'셀수식용 >>  =IF(MID(LEFT(CELL("filename"),20),16,4)="(DJ)",(LEFT(CELL("filename"),25)),IF(LEFT(CELL("filename"),15)="D:\사무실\Synology",(LEFT(CELL("filename"),34)),IF(LEFT(CELL("filename"),22)="D:\사무실\DropBAK\Dropbox",(LEFT(CELL("filename"),28)),IF(LEFT(CELL("filename"),14)="Y:\사무실\Dropbox",(LEFT(CELL("filename"),20)),IF(LEFT(CELL("filename"),11)="D:\사무실\Drop",(LEFT(CELL("filename"),20)),IF(LEFT(CELL("filename"),19)="\\off\D\사무실\Dropbox",(LEFT(CELL("filename"),25)),(LEFT(CELL("filename"),23))))))))

Sub 도형_정렬삭제순용() ''''---------------------------도형삽입_매크로연결-------------
   ActiveSheet.Shapes.AddShape(msoShapeRectangle, 500, 0#, 75, 18).Select
     Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "삭제순_정렬"
     Selection.OnAction = "정렬_삭제순용"
End Sub

''''@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'""======================>>====특정 텍스트 색 변경  ========================
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

'''''@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@''''@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
''대하산업개발용 25일계산서 
range("r10")="=IF($X$1=""x"",""xx__"",IF(BJ10=""__본사발"",""__본사발"",IF(B10=""ㅡ"",""ㅡ"",IF(RIGHT(V10,1)=""2"",""__두"",IF(RIGHT(V10,1)=""3"",""__삼"",IF(V10="""",""ㅡ"",IF(RIGHT(V10,2)=""aa"",""aa___aa"",IF(IF(INDEX(현장명!$C$8:$X$1007,MATCH($V10,현장명!$C$8:$C$1007,0),16)=0,"""",INDEX(현장명!$C$8:$X$1007,MATCH($V10,현장명!$C$8:$C$1007,0),15))="""","""",IF(INDEX(현장명!$C$8:$X$1007,MATCH($V10,현장명!$C$8:$C$1007,0),16)=0,"""",INDEX(현장명!$C$8:$X$1007,MATCH($V10,현장명!$C$8:$C$1007,0),15))))))))))

range("r10")="=IF($X$1=""x"",""xx__"",IF(BJ10=""__본사발"",""__본사발"",IF(B10=""ㅡ"",""ㅡ"",IF(RIGHT(V10,1)=""2"",""__두"",IF(RIGHT(V10,1)=""3"",""__삼"",IF(V10="""",""ㅡ"",IF(RIGHT(V10,2)=""aa"",""aa___aa"",IF(IF(INDEX(현장명!$C$8:$X$1007,MATCH($V10,현장명!$C$8:$C$1007,0),16)=0,"""",INDEX(현장명!$C$8:$X$1007,MATCH($V10,현장명!$C$8:$C$1007,0),16))="""","""",IF(INDEX(현장명!$C$8:$X$1007,MATCH($V10,현장명!$C$8:$C$1007,0),16)=0,"""",INDEX(현장명!$C$8:$X$1007,MATCH($V10,현장명!$C$8:$C$1007,0),16))))))))))