Please Enable JavaScript!
Gon[ Enable JavaScript ]

엑셀 VBA 함수 CInt 정수로 형변환하기

엑셀(Excel)/VBA
반응형

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

 


 

반응형
Posted by 녹두장군1
,