Vba에서 가중 평균을 계산하는 방법(예제 포함)

다음 기본 구문을 사용하여 VBA를 사용하여 가중 평균을 계산할 수 있습니다.

 Sub FindWeightedAverage()

Range(" E2 ") = _
    WorksheetFunction.SumProduct(Range(" B2:B7 "), Range(" C2:C7 ")) / _
    WorksheetFunction.Sum(Range(" C2:C7 "))

End Sub

이 특정 예에서는 B2:B7 범위의 셀을 값으로 사용하고 C2:C7 범위의 셀을 가중치로 사용하여 가중 평균을 계산합니다.

그런 다음 가중 평균이 E2 셀에 표시됩니다.

다음 예에서는 실제로 이 구문을 사용하는 방법을 보여줍니다.

예: VBA를 사용하여 가중 평균 계산

회사 직원의 다양한 매출을 보여주는 다음과 같은 데이터 세트가 Excel에 있다고 가정해 보겠습니다.

Amount 열의 값을 값으로 사용하고 Price 열의 값을 가중치로 사용하여 가격의 가중 평균을 계산한다고 가정합니다.

이를 위해 다음 매크로를 생성할 수 있습니다:

 Sub FindWeightedAverage()

Range(" E2 ") = _
    WorksheetFunction.SumProduct(Range(" B2:B7 "), Range(" C2:C7 ")) / _
    WorksheetFunction.Sum(Range(" C2:C7 "))

End Sub

이 매크로를 실행하면 다음과 같은 출력이 나타납니다.

셀 E2 에는 9.705882 값이 포함되어 있습니다.

가중 평균을 수동으로 계산하여 이것이 올바른지 확인할 수 있습니다.

가중 평균에는 다음 공식을 사용한다는 점을 기억하세요.

가중평균 = Σw _i X _i / Σw _i

금:

• w _i = 가중치
• X _i = 데이터 값

데이터 세트의 값을 이 공식에 연결하여 가중 평균 가격을 계산할 수 있습니다.

• 가중평균 = Σw _i X _i / Σw _i
• 가중 평균 = (1*8 + 3*5 + 2*6 + 2*7 + 5*12 + 4*14) / (1+3+2+2+5+4)
• 학생 A의 평점 평균 = 9.705882

이는 매크로를 사용하여 계산한 값과 일치합니다.

추가 리소스

다음 자습서에서는 VBA에서 다른 일반적인 작업을 수행하는 방법을 설명합니다.

VBA: AVERAGEIF 및 AVERAGEIFS 함수 작성 방법
VBA: SUMIF 및 SUMIFS 함수 작성 방법
VBA: COUNTIF 및 COUNTIFS 함수 작성 방법