여러 기준/다차원 Vlookup을 사용하여 VLOOKUP 사용

Question

금리가 사용자가 제공 한 두 개의 입력에 따라 달라지는 할부 상 표를 만들려고합니다.

X는 행을 나타내고 Y는 열을 나타냅니다. X, Y 및 이자율의 값은 이미 4 X 6 테이블에 설정되어 있습니다. 예를 들어 사용자가 X = 2 및 Y = 3을 입력하면 이자율은 5 %로 결정됩니다.

IF 기능은 작동 할 수는 있지만 많은 시간이 소요되고 효율적이지 않습니다.

나는 배열을 사용하는 것을 고려했고, 나는 Vlookup이 가장 효율적이라고 생각한다. Excel에서 Vlookup을 Match와 함께 사용했는데 작동했지만 VBA 코드로 변환하는 데 어려움이 있습니다.

Option Explicit 

Sub Amortisation() 

    Dim intRate, loanLife, initLoanAmt 
    Dim yrBegBal, intComp, prinComp, yrEndBal, annualPmt 
    Dim outRow, rowNum, outsheet 

    outRow = 3 'output table begins from row 4 

    outsheet = "loan amort" 
    Worksheets(outsheet).ActivateDo 

    loanLife = InputBox("Enter loan life." _ 
     & " Loan life must be a whole number") 

    If loanLife < 0 Or (loanLife - Round(loanLife) <> 0) Then 
     MsgBox ("Loan life must be a whole number.") 
     End 
    End If 

    initLoanAmt = InputBox("Enter loan amount." _ 
     & " Loan amount must be a positive whole number") 

    If initLoanAmt < 0 Or (initLoanAmt - Round(initLoanAmt) <> 0) Then 
     MsgBox ("Loan amount must be a positive whole number.") 
     End 
    End If 

End Sub 

오히려 내가 다른 입력을했던 것처럼 금리에 대한 프롬프트보다, 내가 VBA 아래 표에서 금리를 선택 주어진 입력을 사용하고 싶습니다.

그래서 X (대출 기간)이 5 인 경우 Y (initloanamount)는 700입니다 그럼 내가 VBA가 속도로 (10)를 사용하고 싶습니다.

그런 다음 PMT 기능을 사용하여 할부 상환 테이블을 계속 사용할 수 있습니다.

Answer 1

테이블을 "InterestRates"라는 이름의 범위로 만드십시오. 그럼 당신은 같은 VBA에서 명명 된 범위를 액세스 할 수 있습니다 : 이것은 당신이 "InterestRates"(헤더 및 행 이름 포함) 전체 테이블을 명명 한 가정을 위해 일해야

Option Explicit 

Sub Amortisation() 

Dim intRate As Double, loanLife As Long, initLoanAmt As Long 
Dim yrBegBal, intComp, prinComp, yrEndBal, annualPmt 
Dim outRow, rowNum 
Dim outsheet As Worksheet 
Dim rng As Range 

outRow = 3 'output table begins from row 4 

Set outsheet = Worksheets("loan amort") 
outsheet.ActivateDo 

loanLife = InputBox("Enter loan life." _ 
    & " Loan life must be a whole number") 

If loanLife < 0 Or (loanLife - Round(loanLife) <> 0) Then 
    MsgBox ("Loan life must be a whole number.") 
End If 

initLoanAmt = InputBox("Enter loan amount." _ 
    & " Loan amount must be a positive whole number") 

If initLoanAmt < 0 Or (initLoanAmt - Round(initLoanAmt) _ 
    <> 0) Then 
    MsgBox ("Loan amount must be a positive whole number.") 
End If 

Set rng = outsheet.Range("InterestRates") 

loanLife = Evaluate("MATCH(" & loanLife & ",INDEX(InterestRates,,1),0)") 
initLoanAmt = Evaluate("MATCH(" & initLoanAmt & ",INDEX(InterestRates,1,),0)") 

intRate = rng.Cells(loanLife, initLoanAmt).Value 

End Sub 

. 이것은 또한 귀하의 InterestRates 범위가 귀하의 "loan amort"시트에 있다고 가정합니다. 원하는 이자율은 변수 intRate에 할당되며 끝에 코드를 추가하여 원하는대로 사용할 수 있습니다.

그런데 변수 유형으로 일부 변수를 선언했습니다. 변수 유형을 나머지 변수에 추가하는 것을 고려해야합니다. 또한 두 개의 End 줄은 필요 없으므로 제거했습니다.