재무관리 시간에 과제를 내 주셨는데
생전 처음 써보는 VBA를 이용해 과제를 해 오라고 하시더군요.
물론 가르쳐 주시진 않았습니다 -_-;;

처음 투자를 500000000 하고, 매달 현금흐름이 발생하다가 마지막에 80000000의 비용이 발생하는 구조에요.
인터넷에서 찾은 스크립트를 조금 변형시켜 보긴 했는데...

------------------------------------------------------

    Sum = 0
    rMoney = 500000000
    mMoney = Array("", "60000000", "90000000", "170000000", "230000000", "205000000", "140000000", "110000000", "70000000", "-80000000")
    For a = 1 To UBound(mMoney)
        If Sum + mMoney(a) >= rMoney Then
            Period = Period + 1 * (rMoney - Sum) / mMoney(a)
           Exit For
        Else
            Sum = Sum + mMoney(a)
            Period = Period + 1
        End If
    Next
    MsgBox "걸리는 월수는 : " & Period

-------------------------------------------------------


할 떄마다 컴파일 오류니 프로시저 오류니...ㅠㅠ
2시간동안 고민하다 글 남깁니다. 도와주세요!