|
 |
|
컨텐츠 | contents |
 |
|
스터디 | study |
|
|
 |
|
|
 |
|
|
| VBA에서 addin solver.xla 사용법을 알려주십시오. |
 |
|
| 글쓴이 : 이상규 고유ID : 이상규
날짜 : 00-00-00 00:00
조회 : 9720
|
|
|
수고가 많으십니다.
2달 동안 못풀은 문제인데 절실히 부탁합니다.
여러군데 문의를 해보았지만, 뽀족한 해법을 주지 않더군요.
공학 문제를 XLA로 문제를 풀려고 합니다. 이때, "해찾기"가 사용되기 땜에
첨부된 file의 VBA code를 사용하였습니다.
아시다시피, addin인 해찾기를 사용하려면, 일단 해찾기를 VBA 환경으로 loading한 이후에 함수를 불려야 하잖아요. 제가 많든 xla를 loading하고 그 program에서 VBA code의 OpenSolverXla() 를 실행하면,
"해찾기: 예상하지 않았던 중간 오류가 발생했거나 사용 가능한 메모리가 없습니다" 가 나옵니다. (Error 위치는 Call Application.Run("solver.xla!SolverOptions",.... 부분입니다)
그런데, Excel 환경의 "도구" -> "해찾기"를 한번 실행하고, 위의 함수를 실행하면 Error가 없습니다.
Error 없이 "해찾기"를 Loading하는 방법이 없을 까요?
VBE환경에 도구->참조도 사용해 봤지만, 같은 Error가 나오고 있습니다.
제 개인적인 생각으로는 "해찾기" 함수의 사용에 일정한 순서가 있을 것 같기도 하고, 아님, 한글판 VBA addin 자체 Error가 아닌가 하는 생각도 해 보았습니다.
참고로 사용한 함수의 List와 Program을 송부합니다.
Function OpenSolverXla() As Boolean
Dim AddinItem As AddIn
Dim temp As String
On Error Resume Next
temp = Workbooks("Solver.xla").Name
If Err = 0 Then
OpenSolverXla = True
Application.Run "solver.xla!SolverReset"
Call Application.Run("solver.xla!SolverOptions", 100, 100, 0.000001, False, False, 1, 1, 1, 5, True, 0.0001, True)
Exit Function
End If
For Each AddinItem In AddIns
If AddinItem.Name = "SOLVER.XLA" Then
Workbooks.Open AddinItem.FullName
Application.Run "solver.xla!SolverReset"
Call Application.Run("solver.xla!SolverOptions", 100, 100, 0.000001, False, False, 1, 1, 1, 4, True, 0.0001, True)
OpenSolverXla = True
Exit Function
End If
Next
OpenSolverXla = False
MsgBox "Addin ＇Solver.xla＇가 Install 되지 않았습니다." & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
"＇도구＇->＇추가기능...＇에서 ＇해 찾기 추가 기능＇을 선택해 주십시오＇" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
"혹은 Excel Program Install 시에 누락되었을 수도 있습니다."
End Function
|
|
|
|
