Please Enable JavaScript!
Gon[ Enable JavaScript ]

엑셀 VBA 함수 Str 숫자를 문자열로 변환하기

엑셀(Excel)/VBA
반응형

VBA에서 Str 함수는 숫자 값을 문자열로 변환하는 함수입니다. Str 함수는 숫자 값을 문자열로 변환하여 문자열 연산이나 표시 목적으로 사용할 수 있으며, 숫자 값을 문자열로 변환하여 문자열에 추가하는 데 유용합니다. 아래에서 Str 함수의 개념, 구문, 예제, 실행 결과, 및 소스 설명을 설명하겠습니다. 

  

실수로 변환하는 CDbl 함수의 사용법은 아래를 참고하세요.

https://mainia.tistory.com/7023

 

엑셀 VBA 함수 CDbl 부동 소수점으로 형변환하기

VBA에서 CDbl 함수는 표현식을 실수로 변환하는 함수입니다. CDbl 함수를 사용하면 정수, 문자열 또는 다른 데이터 유형을 실수로 변환할 수 있으며, 정수를 실수로 변환하거나 문자열을 실수로 변

mainia.tistory.com

 

문자열을 정수로 변환하는 Cint 함수는 아래를 참고하세요.

https://mainia.tistory.com/7022

 

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

VBA에서 CInt 함수는 표현식을 정수로 변환하는 함수입니다. 함수는 소수점을 제거하고 나머지 숫자를 정수로 변환할 수 있습니다. 소수점 이하를 삭제하고 나머지 숫자를 정수로 반올림하지 않

mainia.tistory.com

 

 

◎ 구문

 

Str 함수는 숫자 값을 문자열로 변환합니다. 이 함수는 숫자 값을 문자열로 변환하여 문자열로 표시하거나 문자열과 숫자를 결합하는 데 사용됩니다.

 

Str(Expression)

l  [Expression]: 문자열로 변환하려는 숫자 표현식입니다.

 

 

◎ 예제 1: 정수를 문자열로 변환

 

예제에서는 [Str] 함수를 사용하여 정수를 문자열로 변환합니다. 원래 숫자를 표시하고, [Str] 함수를 사용하여 정수를 문자열로 변환한 결과를 표시합니다. 

Sub ConvertToText()
    Dim originalNumber As Integer
    originalNumber = 123
 
    Dim textResult As String
    textResult = Str(originalNumber)
 
    MsgBox "원래 숫자: " & originalNumber & vbCrLf & "문자열로 변환: " & textResult, vbInformation, "문자열로 변환"
End Sub

 

 

◎ 예제 2: 실수를 문자열로 변환

 

예제에서는 [Str] 함수를 사용하여 실수를 문자열로 변환합니다. 원래 숫자를 표시하고, [Str] 함수를 사용하여 실수를 문자열로 변환한 결과를 표시합니다. 

Sub ConvertDoubleToText()
    Dim originalNumber As Double
    originalNumber = 456.789
 
    Dim textResult As String
    textResult = Str(originalNumber)
 
    MsgBox "원래 숫자: " & originalNumber & vbCrLf & "문자열로 변환: " & textResult, vbInformation, "문자열로 변환"
End Sub

 

 

◎ 예제 3: 문자열과 결합

 

예제에서는 [Str] 함수를 사용하여 숫자를 문자열로 변환하고, 문자열과 결합합니다. 원래 숫자와 문자열을 표시하고, [Str] 함수를 사용하여 숫자를 문자열로 변환한 결과와 문자열을 결합하여 결과를 표시합니다. 

Sub ConcatenateWithText()
    Dim originalNumber As Integer
    originalNumber = 789
 
    Dim textPart As String
    textPart = "숫자: "
 
    Dim resultText As String
    resultText = textPart & Str(originalNumber)
 
    MsgBox "결합 전: " & textPart & originalNumber & vbCrLf & "결합 후: " & resultText, vbInformation, "문자열과 결합"
End Sub

 

 

반응형
Posted by 녹두장군1
,