<div>회사 운영에 관한 내용은 없는 것 같아서 한번 올려봅니다.</div> <div> </div> <div>제가 잘 모르긴 하지만 이 파일은 만들어진지 20여년이 되가는 파일이고 약 10여년 전에 근무 하던 사람이 일을 수월하게 하기 위해</div> <div> </div> <div>이런 매크로를 작동시킨 것 같은데요.</div> <div> </div> <div>이 매크로가 어떤 기능을 하는건지 알려주실 분 혹시 계실까요? </div> <div> </div> <div>ㅠㅠ 부탁드려요</div> <div> </div> <div>Sub Macro4()<br>'<br>' Macro4 Macro<br>' 이재귀이(가) 2002-08-06에 기록한 매크로<br>'</div> <div>'<br> Range("E11:M12").Select<br> Selection.Copy<br> Range("E13").Select<br> Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _<br> False, Transpose:=False<br> ActiveWindow.Panes(3).Activate<br> Range("C32").Select<br> ActiveWindow.Panes(1).Activate<br> Range("E7").Select<br> Application.CutCopyMode = False<br> Selection.Copy<br> ActiveWindow.Panes(3).Activate<br> Range("C32").Select<br> Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _<br> False, Transpose:=False<br> ActiveWindow.Panes(1).Activate<br> Range("E9").Select<br> Application.CutCopyMode = False<br> Selection.Copy<br> ActiveWindow.Panes(3).Activate<br> Range("C33").Select<br> Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _<br> False, Transpose:=False<br> ActiveWindow.Panes(1).Activate<br> Range("E8").Select<br> Application.CutCopyMode = False<br> Selection.Copy<br> ActiveWindow.Panes(3).Activate<br> Range("E32").Select<br> Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _<br> False, Transpose:=False<br> ActiveWindow.Panes(1).Activate<br> Range("E10").Select<br> Application.CutCopyMode = False<br> Selection.Copy<br> ActiveWindow.Panes(3).Activate<br> Range("E33").Select<br> Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _<br> False, Transpose:=False<br> ActiveWindow.Panes(1).Activate<br> Range("I7").Select<br> Application.CutCopyMode = False<br> Selection.Copy<br> ActiveWindow.Panes(3).Activate<br> Range("H32").Select<br> Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _<br> False, Transpose:=False<br> ActiveWindow.Panes(1).Activate<br> Range("I9").Select<br> Application.CutCopyMode = False<br> Selection.Copy<br> ActiveWindow.Panes(3).Activate<br> Range("H33").Select<br> Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _<br> False, Transpose:=False<br> ActiveWindow.Panes(1).Activate<br> Range("I8").Select<br> Application.CutCopyMode = False<br> Selection.Copy<br> ActiveWindow.Panes(3).Activate<br> Range("K32").Select<br> Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _<br> False, Transpose:=False<br> ActiveWindow.Panes(1).Activate<br> Range("I10").Select<br> Application.CutCopyMode = False<br> Selection.Copy<br> ActiveWindow.Panes(3).Activate<br> Range("K33").Select<br> Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _<br> False, Transpose:=False<br> ActiveWindow.Panes(1).Activate<br> Range("M7").Select<br> Application.CutCopyMode = False<br> Selection.Copy<br> ActiveWindow.Panes(3).Activate<br> Range("N32").Select<br> Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _<br> False, Transpose:=False<br> ActiveWindow.Panes(1).Activate<br> Range("M9").Select<br> Application.CutCopyMode = False<br> Selection.Copy<br> ActiveWindow.Panes(3).Activate<br> Range("N33").Select<br> Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _<br> False, Transpose:=False<br> ActiveWindow.Panes(1).Activate<br> Range("M8").Select<br> Application.CutCopyMode = False<br> Selection.Copy<br> ActiveWindow.Panes(3).Activate<br> Range("Q32").Select<br> Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _<br> False, Transpose:=False<br> ActiveWindow.Panes(1).Activate<br> Range("M10").Select<br> Application.CutCopyMode = False<br> Selection.Copy<br> ActiveWindow.Panes(3).Activate<br> Range("Q33").Select<br> Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _<br> False, Transpose:=False<br> ActiveWindow.SmallScroll Down:=3<br> ActiveWindow.Panes(1).Activate<br> Range("H5").Select<br> ActiveSheet.Shapes("Picture 14").Select<br> Application.CutCopyMode = False<br> Selection.OnAction = "팔월누계"<br> Range("N5").Select<br>End Sub<br></div>