Vba: 값을 소수점 이하 2자리로 반올림하는 방법

VBA를 사용하여 다음 방법을 사용하여 값을 소수점 이하 2자리로 반올림할 수 있습니다.

방법 1: 값을 소수점 이하 2자리로 반올림

 Sub RoundTwoDecimals()
    Range(" B2 ") = WorksheetFunction.Round(Range(" A2 "), 2)
End Sub

이 특정 예에서는 A2 셀의 값을 소수점 이하 두 자리로 반올림하고 B2 셀에 반올림된 값을 표시합니다.

방법 2: 범위 내 모든 값을 소수점 이하 2자리로 반올림

 Sub RoundTwoDecimals()
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.Round(Range(" A " & i), 2)
    Next i
End Sub

이 특정 예에서는 A2:A9 범위의 각 값을 소수점 이하 두 자리로 반올림하고 B2:B9 범위의 반올림된 값을 표시합니다.

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

예 1: 값을 소수점 이하 2자리로 반올림

다음 매크로를 만들어 A2 셀의 값을 소수점 이하 두 자리로 반올림하고 결과를 B2 셀에 표시할 수 있습니다.

 Sub RoundTwoDecimals()
    Range(" B2 ") = WorksheetFunction.Round(Range(" A2 "), 2)
End Sub

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

A2 셀의 값 15.248은 B2 셀에서 소수점 이하 두 자리(15.25)로 반올림되었습니다.

예시 2: 범위 내 모든 값을 소수점 이하 2자리로 반올림

다음 매크로를 생성하여 A2:A9 범위의 각 값을 소수점 이하 두 자리로 반올림하고 B2:B9 범위의 반올림된 값을 표시할 수 있습니다.

 Sub RoundTwoDecimals()
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.Round(Range(" A " & i), 2)
    Next i
End Sub

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

A2:A9 범위의 각 값은 소수점 이하 두 자리로 반올림되었으며 반올림된 값은 B2:B9 범위에 표시됩니다.

참고 : VBA Round 방법에 대한 전체 문서는 여기에서 찾을 수 있습니다.

추가 리소스

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

VBA에서 값을 반올림하는 방법
VBA에서 값을 반올림하는 방법