Cộng đồng Hỏi & Đáp của Inflearn

안녕하세요! VBA 수업을 듣고 열심히 개발중인데요..

강의내용중에 나오진 않았지만 물어볼곳이 없어서 여기다가 문의드립니다.

아래와 같이 모듈내에 일부를 발췌했습니다.

K1,K2값과 연동된 셀의 값들을 두개의 cdf(누적밀도함수) , pdf(확률밀도함수)로 정의하고 이를 더한 값을

K3 로 지정하여서

K3의 최적해를 구하는것을 vba로 표현하고자합니다.

엑셀상에서 데이터 - 해찾기 - 해법 GRG 비선형으로 구한 값은 최적해를 나름 수렴해서 값을 잘 찾아주는데

하기의 VBA는 K1,K2의 초기값으로 설정된값만 계속 내뱉습니다..

(beta , eta 값을 초기에 설정했음)

초기값을 계속 바꾸면 바꾼 초기값에서 더 변화없네요

K3에 대한 최적해가 VBA내에서 뭔가 잘 이뤄지지 않는데 코드를 봐서는 도무지 어느부분이 잘못되었는지 잘모르겠네요... 한번 봐주시면 감사드립니다..

  beta = 1.3
    eta = 700000

    RO_Ws.Range("K1").Value = eta
    RO_Ws.Range("K2").Value = beta
    
    
    cdf = 0
    
    For m = 1 To lastRow_Sale
        cellValue = Sale_Ws.Cells(m, 1).Value
      
        If cellValue <> 0 Then
        resultValue = WorksheetFunction.Ln(1 - (1 - Exp(-((cellValue / (RO_Ws.Range("K1").Value)) ^ (RO_Ws.Range("K2").Value)))))
        cdf = cdf + resultValue
        End If
        
    Next m
    '~여기까지 누적밀도함수 구함
    
    pdf = 0
    
    For n = 1 To lastRow_RO
        
        cellValue2 = RO_Ws.Cells(n, 3).Value
        If cellValue2 <> 0 Then
        resultValue2 = WorksheetFunction.Ln((RO_Ws.Range("K2").Value) / (RO_Ws.Range("K1").Value) * (cellValue2 / (RO_Ws.Range("K1").Value)) ^ ((RO_Ws.Range("K2").Value) - 1) * Exp(-((cellValue2 / (RO_Ws.Range("K1").Value)) ^ (RO_Ws.Range("K2").Value))))
        pdf = pdf + resultValue2
        End If
        
    Next n
    
   
    RO_Ws.Range("K3").Value = pdf + cdf
    
    'RO_Ws.Range("K1").Value = eta
    'RO_Ws.Range("K2").Value = beta
    'RO_Ws.Range("K3").Value = weibull
    
    SolverReset
    
    ' 조건 설정
    SolverOk SetCell:="$K$3", MaxMinVal:=1, ValueOf:=0, ByChange:="$K$1:$K$2", Engine:=2
    SolverAdd CellRef:="$K$1", Relation:=3, FormulaText:="10000"
    SolverAdd CellRef:="$K$2", Relation:=3, FormulaText:="0"
    
    ' Solver 실행
    SolverSolve UserFinish:=True
    
    eta = RO_Ws.Range("K1").Value
    beta = RO_Ws.Range("K2").Value
    weibull = RO_Ws.Range("K3").Value