엑셀2007 해찾기 기능 VBA를 이용하여 자동으로 값 찾기

[문딩이]

안녕하세요.

 엑셀2007 에서 해찾기 기능을 사용해봤는데..

 조건 값이 변경되면 자동으로 목표셀이 변하질 않더군요..

 그래서 VBA 코드를 짜고 단추버튼과 연동시켜

 단추버튼을 누를 시에 목표셀의 값이 조건값과 연동되어 자동으로 변할 수 있게

 만들려고 합니다.

  일단 메크로 기록을 통하여 뽑은 코드는 아래와 같습니다.

=========================================================================

  해찾기2 Macro
    SolverReset
    SolverOk SetCell:="$S$35", MaxMinVal:=1, ValueOf:="0", ByChange:="$Q$6"
    SolverAdd CellRef:="$X$35", Relation:=2, FormulaText:="$S$35"
    SolverOk SetCell:="$S$35", MaxMinVal:=1, ValueOf:="0", ByChange:="$Q$6"
    SolverSolve
End Sub

==========================================================================

 ※ 참조셀 명칭은 "예상시뮬레이션" 입니다.

 상위와 같은 메크로 코드를 입력하여 버튼과 연동하였을시에

  " 컴파일 오류입니다: Sub 또는 Function이 정의되지 않았습니다" 란 오류메시지가 뜹니다.

  Google을 통해서 알아본 결과

  Solver를 인식하기 위해서는 다른 옵션을 추가해줘야한다고 하는데..

  도통 무슨 얘기 인지 이해가 되지 않습니다.

   첫번째로, 코드에 오류가 없는지 여부와

   두번째로, Solver를 실행하기 위해서 시스템상 추가해야하는 옵션에 대해 문의를 드립니다.

    오늘도 즐거운 하루되시길 바라겠습니다. 

    감사합니다. 

[Mr_Candy]

우선은 자세한것은 파일을 보아야 알겠으나 같은 이름의 sub 난 function 이 여럿 있으면
Sub 또는 Function이 정의되지 않았습니다 라는 메세지를 표출하게 됩니다. 상황으로 봐서는
SolverOk SetCell:="$S$35", MaxMinVal:=1, ValueOf:="0", ByChange:="$Q$6" 요부분이 의심이 갑니다만,
자세한 것은 파일을 봐야 할것 같습니다. 아울러 해찾기는 엑셀 추가기능으로 추가기능에서 활성화 해주어야 합니다.

[문딩이]

답변 감사합니다 ^.^..

제가 글을 올린 내용 중에 "두번째로" 이 부분은 Solver를 매크로로 실행하기 위해서는 시스템상에 다른
옵션을 추가해야한다.. 라는 의미였습니다.. ㅠㅠ

이궁 쉽게 이 문제가 해결이 안되서 답답합니다..

다시 한번 감사드립니다 ^.^