Vba:범위의 평균값을 계산하는 방법

VBA를 사용하여 Excel에서 범위의 평균 값을 계산하려면 다음 기본 구문을 사용할 수 있습니다.

 SubAverageRange ()
    Range(" E2 ") = WorksheetFunction.Average(Range(" B1:B12 "))
End Sub

이 특정 예에서는 B2:B12 범위의 평균 값을 계산하고 그 결과를 셀 E2 에 할당합니다.

대신 메시지 상자에 평균값을 표시하려면 다음 구문을 사용할 수 있습니다.

 SubAverageRange ()
    'Create variable to store average value
    Dim avg As Single
    
    'Calculate average value of range
    avg = WorksheetFunction.Average(Range(" B1:B12 "))
    
    'Display the result
    MsgBox " Average Value in Range: " & avg
End Sub

다음 예에서는 다양한 농구 선수에 대한 정보가 포함된 Excel의 다음 데이터 세트를 사용하여 실제로 이러한 각 방법을 사용하는 방법을 보여줍니다.

예시 1: VBA를 사용하여 범위의 평균을 계산하고 결과를 셀에 표시

포인트 열의 평균값을 계산하고 특정 셀에 결과를 표시한다고 가정해 보겠습니다.

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

 SubAverageRange ()
    Range(" E2 ") = WorksheetFunction.Average(Range(" B1:B12 "))
End Sub

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

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

이는 포인트 열의 평균값이 21.27273임을 알려줍니다.

예시 2: VBA를 사용하여 범위의 평균을 계산하고 메시지 상자에 결과 표시

대신 포인트 열의 평균값을 계산하고 결과를 메시지 상자에 표시한다고 가정해 보겠습니다.

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

 SubAverageRange ()
    'Create variable to store average value
    Dim avg As Single
    
    'Calculate average value of range
    avg = WorksheetFunction.Average(Range(" B1:B12 "))
    
    'Display the result
    MsgBox " Average Value in Range: " & avg
End Sub

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

메시지 상자는 B2:B12 범위의 평균 값이 21.27273 임을 알려줍니다.

이 예에서는 B2:B12 범위의 평균 값을 계산했습니다.

그러나 전체 열의 평균 값을 계산하려면 대신 B:B를 입력하면 됩니다.

그러면 B열의 각 셀에 대한 평균값이 계산됩니다.

추가 리소스

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

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