게시판 즐겨찾기
편집
드래그 앤 드롭으로
즐겨찾기 아이콘 위치 수정이 가능합니다.
논문을 쓰고 있는데요
게시물ID : programmer_10687짧은주소 복사하기
작성자 : 기산가자
추천 : 0
조회수 : 460회
댓글수 : 0개
등록시간 : 2015/06/01 19:34:53
옵션
  • 창작글
  • 본인삭제금지
    Sheets("논문").Select
    Range("I347").Select
    Range("I347").GoalSeek Goal:=0, ChangingCell:=Range("G347")
    Range("I348").Select
    Range("I348").GoalSeek Goal:=0, ChangingCell:=Range("G348")
    Range("I349").Select
    Range("I349").GoalSeek Goal:=0, ChangingCell:=Range("G349")
    Range("I350").Select
    Range("I350").GoalSeek Goal:=0, ChangingCell:=Range("G350")
    Range("I351").Select
    Range("I351").GoalSeek Goal:=0, ChangingCell:=Range("G351")
    Range("I352").Select
    Range("I352").GoalSeek Goal:=0, ChangingCell:=Range("G352")
    Range("I353").Select
    Range("I353").GoalSeek Goal:=0, ChangingCell:=Range("G353")
    Range("I354").Select
    Range("I354").GoalSeek Goal:=0, ChangingCell:=Range("G354")
    Range("I355").Select
    Range("I355").GoalSeek Goal:=0, ChangingCell:=Range("G355")
    Range("I356").Select
    Range("I356").GoalSeek Goal:=0, ChangingCell:=Range("G356")
    ActiveWindow.SmallScroll Down:=93
    Sheets("입력값").Select
    Range("G66").Select


    Sheets("논문").Select
    Range("B432").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    Range("J434").Select
    Range("J434").GoalSeek Goal:=0, ChangingCell:=Range("H434")
    Range("J435").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    Range("K434").Select
    Range("K434").GoalSeek Goal:=0, ChangingCell:=Range("H434")
    Range("K435").Select
    Range("K435").GoalSeek Goal:=0, ChangingCell:=Range("H435")
    Range("K436").Select
    Range("K436").GoalSeek Goal:=0, ChangingCell:=Range("H436")
    Range("K437").Select
    Range("K437").GoalSeek Goal:=0, ChangingCell:=Range("H437")
    Range("K438").Select
    Range("K438").GoalSeek Goal:=0, ChangingCell:=Range("H438")
    Range("K439").Select
    Range("K439").GoalSeek Goal:=0, ChangingCell:=Range("H439")
    Range("K440").Select
    Range("K440").GoalSeek Goal:=0, ChangingCell:=Range("H440")
    Range("K441").Select
    Range("K441").GoalSeek Goal:=0, ChangingCell:=Range("H441")
    Range("K442").Select
    Range("K442").GoalSeek Goal:=0, ChangingCell:=Range("H442")
    Range("K442").GoalSeek Goal:=0, ChangingCell:=Range("H442")
    Range("K443").Select
    Range("K443").GoalSeek Goal:=0, ChangingCell:=Range("H443")
    Sheets("입력값").Select
    Range("G69").Select

    Sheets("논문").Select
    Range("A489").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.SmallScroll Down:=3
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    Range("V490").Select
    Range("V490").GoalSeek Goal:=0, ChangingCell:=Range("F490")
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    Range("V491").Select
    Range("V491").GoalSeek Goal:=0, ChangingCell:=Range("F491")
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 16
    Range("V492").Select
    Range("V492").GoalSeek Goal:=0, ChangingCell:=Range("F492")
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    Range("V493").Select
    Range("V493").GoalSeek Goal:=0, ChangingCell:=Range("F493")
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    Range("V494").Select
    Range("V494").GoalSeek Goal:=0, ChangingCell:=Range("F494")
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    Range("V495").Select
    Range("V495").GoalSeek Goal:=0, ChangingCell:=Range("F495")
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    Range("V496").Select
    Range("V496").GoalSeek Goal:=0, ChangingCell:=Range("F496")
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    Range("V497").Select
    Range("V497").GoalSeek Goal:=0, ChangingCell:=Range("F497")
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 17
    Range("V498").Select
    Range("V498").GoalSeek Goal:=0, ChangingCell:=Range("F498")
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    Range("V499").Select
    Range("V499").GoalSeek Goal:=0, ChangingCell:=Range("F499")
    Sheets("입력값").Select
    Range("G73").Select

    Sheets("논문").Select
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("B584").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    Range("W570").Select
    Range("W570").GoalSeek Goal:=0, ChangingCell:=Range("G570")
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    Range("W571").Select
    Range("W571").GoalSeek Goal:=0, ChangingCell:=Range("G571")
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    Range("W572").Select
    Range("W572").GoalSeek Goal:=0, ChangingCell:=Range("G572")
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    Range("W573").Select
    Range("W573").GoalSeek Goal:=0, ChangingCell:=Range("G573")
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    Range("W574").Select
    Range("W574").GoalSeek Goal:=0, ChangingCell:=Range("G574")
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 16
    Range("W575").Select
    Range("W575").GoalSeek Goal:=0, ChangingCell:=Range("G575")
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    Range("W576").Select
    Range("W576").GoalSeek Goal:=0, ChangingCell:=Range("G576")
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    Range("W577").Select
    Range("W577").GoalSeek Goal:=0, ChangingCell:=Range("G577")
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    Range("W578").Select
    Range("W578").GoalSeek Goal:=0, ChangingCell:=Range("G578")
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    Range("W579").Select
    Range("W579").GoalSeek Goal:=0, ChangingCell:=Range("G579")
    Sheets("입력값").Select
    Range("G76").Select
    Sheets("논문").Select
    Range("D632").Select
    ActiveSheet.ChartObjects("Chart 355").Activate
    ActiveChart.ChartArea.Select
    ActiveWindow.Visible = False
    Windows("리얼 논문형식.xls").Activate
    ActiveSheet.Shapes.Range(Array("Chart 355", "Chart 360")).Select
    ActiveWindow.WindowState = xlNormal
    ActiveWindow.WindowState = xlMaximized
    ActiveWindow.WindowState = xlNormal
    ActiveWindow.WindowState = xlMaximized
    Selection.Copy
    Sheets("입력값").Select
    Range("B80").Select
    ActiveSheet.Paste
    Range("F76").Select

명령어가 이렇게 매크로를 만들고 있습니다. 근데 이 명령어 들이 전부 다른 버튼을 누르면 작동이 되는 매크로 들을 복사 붙여 넣기를 한것인데요
제가하고 싶은 작업은 또다른 버튼 하나로 다른 버튼들 작업을 한번에 처리 하고 싶은겁니다.
근데 자꾸 에러가 뜨는데 뭐가 문제인줄 모르겠네요 혹시 알려주실분 있으신가요?? 어떻게든 해결만 하면 되는 문제라 본삭금 걸었어요 도와주세요
꼬릿말 보기
전체 추천리스트 보기
새로운 댓글이 없습니다.
새로운 댓글 확인하기
글쓰기
데이터절약모드
◀뒤로가기
PC버전
맨위로▲
공지 운영 자료창고 청소년보호