[엑셀 vba] 평균구하기

이 코드는 엑셀 시트에서 A1에서 A10까지의 셀 값을 합산하고, 이를 통해 셀 값의 평균을 계산합니다. 마지막으로 결과를 메시지 박스로 표시합니다.

 

 

Sub CalculateAverage()
    Dim sum As Double
    Dim count As Integer
    Dim avg As Double
    Dim i As Integer

    sum = 0
    count = 0

    ' 범위 A1에서 A10까지의 값을 합산합니다.
    For i = 1 To 10
        sum = sum + Cells(i, 1).Value
        count = count + 1
    Next i

    ' 평균을 계산합니다.
    If count > 0 Then
        avg = sum / count
    Else
        avg = 0
    End If

    ' 결과를 메시지 박스로 표시합니다.
    MsgBox "The average value is " & avg
End Sub