반응형
VBA에서 CInt 함수는 표현식을 정수로 변환하는 함수입니다. 함수는 소수점을 제거하고 나머지 숫자를 정수로 변환할 수 있습니다. 소수점 이하를 삭제하고 나머지 숫자를 정수로 반올림하지 않고 자르는 역할을 합니다. 아래에서 CInt 함수의 개념, 구문, 예제, 실행 결과 및 소스 설명을 설명하겠습니다.
◎ 구문 |
CInt(Expression)
l [Expression]: 정수로 변환하려는 표현식입니다.
◎ 예제 1: 소수를 정수로 변환 |
예제에서는 [CInt] 함수를 사용하여 소수를 정수로 변환합니다. 원래 숫자를 표시하고, [CInt] 함수를 사용하여 소수를 정수로 변환한 결과를 표시합니다.
Sub ConvertToInteger()
Dim originalNumber As Double
originalNumber = 123.456
Dim integerResult As Integer
integerResult = CInt(originalNumber)
MsgBox "원래 숫자: " & originalNumber & vbCrLf & "정수로 변환: " & integerResult, vbInformation, "정수로 변환"
End Sub
◎ 예제 2: 문자열을 정수로 변환 |
예제에서는 [CInt] 함수를 사용하여 문자열을 정수로 변환합니다. 문자열을 표시하고, [CInt] 함수를 사용하여 문자열을 정수로 변환한 결과를 표시합니다.
Sub ConvertStringToInteger()
Dim numericString As String
numericString = "456"
Dim integerResult As Integer
integerResult = CInt(numericString)
MsgBox "문자열: " & numericString & vbCrLf & "정수로 변환: " & integerResult, vbInformation, "문자열을 정수로 변환"
End Sub
◎ 예제 3: 소수점 아래 자리 제거 |
예제에서는 [CInt] 함수를 사용하여 숫자의 소수점 아래 자리를 제거하고 나머지를 정수로 변환합니다. 원래 숫자를 표시하고, [CInt] 함수를 사용하여 소수점 아래 자리를 제거한 결과를 표시합니다.
Sub RemoveDecimalPlaces()
Dim originalNumber As Double
originalNumber = 789.123
Dim integerResult As Integer
integerResult = CInt(originalNumber)
MsgBox "원래 숫자: " & originalNumber & vbCrLf & "정수로 변환: " & integerResult, vbInformation, "소수점 아래 자리 제거"
End Sub
반응형
'엑셀(Excel) > VBA' 카테고리의 다른 글
엑셀 VBA 오름차순, 내림차순 데이터 정렬하기 (0) | 2023.11.24 |
---|---|
엑셀 VBA 함수 StrComp 문자열 비교하기 (0) | 2023.11.24 |
엑셀 VBA 함수 Str 숫자를 문자열로 변환하기 (0) | 2023.11.24 |
엑셀 VBA 함수 CDbl 부동 소수점으로 형변환하기 (2) | 2023.11.24 |
엑셀 VBA 함수 Date 현재 날짜 반환하기 (0) | 2023.11.22 |
엑셀 VBA 함수 InStr 문자열 내에서 특정 문자 또는 문자열 찾기 (0) | 2023.11.21 |
엑셀 VBA 함수 Format 이용해서 날짜, 시간, 숫자 형식 지정하기 (0) | 2023.11.21 |
엑셀 VBA 함수 DateAdd 날짜에 시간, 일 더하거나 빼기 (0) | 2023.11.21 |