VBA에서 반올림

예제를 사용하여 VBA에서 Round() 및 RoundUp() 함수를 소개합니다.

VBA에서 Round() 또는 RoundUp() 함수 사용

숫자와 계산이 포함된 Excel 시트로 작업하는 동안 분수로 결과를 얻습니다. 때때로 우리는 이러한 십진수를 정수로 변환해야 합니다.

VBA는 십진수를 정수로 변환하는 데 사용할 수 있는 세 가지 다른 함수를 제공합니다. 이 기사에서는 두 가지 기능에 대해 설명합니다.

Round()는 십진수를 가장 가까운 정수로 반올림합니다. 예를 들어 십진수를 저장한 다음 Round() 함수를 사용합니다.

예제 코드:

# VBA
Sub roundFunc()
Dim num As Double
num = 5.79
MsgBox Round(num)
End Sub

출력:

소수를 반올림할 때까지 소수 자릿수를 언급할 수도 있습니다. 같은 수를 소수점 이하 한 자리까지 반올림해 봅시다.

예제 코드:

# VBA
Sub roundFunc()
Dim num As Double
num = 5.79
MsgBox Round(num, 1)
End Sub

출력:

위의 결과에서 소수점 이하 1자리까지 소수점 이하 자릿수를 쉽게 반올림할 수 있습니다. 이 함수를 사용하여 Excel 시트의 셀에서 값을 반올림할 수도 있습니다.

범위 방법을 사용하여 Excel 시트의 숫자를 반올림해 보겠습니다.

예제 코드:

# VBA
Sub roundFunc()
Range("A1").Value = Round(Range("A1").Value, 1)
End Sub

출력:

숫자가 더 작은 정수에 가깝더라도 소수를 반올림할 수 있는 또 다른 함수에 대해 논의해 보겠습니다. 십진수를 항상 십진수보다 큰 정수로 반올림해야 하는 상황이 많이 있을 수 있습니다.

통사론:

# VBA
Application.WorksheetFunction.RoundUp(num, 1)

예를 들어 RoundUp() 함수를 사용해 보겠습니다.

예제 코드:

# VBA
Sub roundFunc()
Dim num As Double
num = 5.468
MsgBox Application.WorksheetFunction.RoundUp(num, 1)
End Sub

출력:

이런 식으로 RoundUp() 함수를 사용하여 숫자를 가능한 가장 큰 정수로 반올림할 수 있습니다.