본문 바로가기
VBA 라이브러리

StrConv 함수

2023. 7. 22.

지정된 대로 변환된 Variant ( String )를 반환합니다.

 

구문은 다음과 같습니다.

Syntax

StrConv(string, conversion, [ LCID ])

string : 필수입니다.변환할 문자열 식입니다.

conversion : 필수입니다. 정수. 수행할 변환 유형을 지정하는 값의 합계입니다.

LCID : 선택 사항입니다. system LocalID와 다른 경우 LocalID입니다(기본값은 system LocalID입니다)

 

간단한  예제코드입니다.

 

vbUpperCase

Sub ConvertToUpperCase()
    Dim originalString As String
    Dim convertedString As String
    
    originalString = "hello, world!"
    convertedString = StrConv(originalString, vbUpperCase)
    
    MsgBox "Original String: " & originalString & vbCrLf & _
        "Converted String: " & convertedString
End Sub

Sub ConvertUserInputToUpperCase()
    Dim userInput As String
    
    userInput = InputBox("Enter a string:")
    
    If Len(userInput) > 0 Then
        userInput = StrConv(userInput, vbUpperCase)
        MsgBox "Converted String: " & userInput
    Else
        MsgBox "No input provided."
    End If
End Sub

 

Sub ConvertCellValuesToUpperCase()
    
    Dim rng As Range
    Dim cell As Range
    
    Set rng = Range("A1:A5")
    
    For Each cell In rng
        cell.Value = StrConv(cell.Value, vbUpperCase)
    Next cell
    
    MsgBox "Cell values have been converted to upper case."
End Sub

 

매크로 실행 전

 

매크로 실행 후

 

 

Sub ConvertArrayElementsToUpperCase()
    Dim myArray(1 To 5) As String
    Dim i As Integer
    
    ' 배열에 값 할당
    myArray(1) = "apple"
    myArray(2) = "banana"
    myArray(3) = "grape"
    myArray(4) = "orange"
    myArray(5) = "strawberry"
    
    ' 대문자로 변환
    For i = 1 To 5
        myArray(i) = StrConv(myArray(i), vbUpperCase)
    Next i
    
    ' 변환된 배열 출력
    For i = 1 To 5
        Debug.Print myArray(i)
    Next i
End Sub

 

vbLowerCase

Sub ConvertToLowerCase()
    Dim originalString As String
    Dim convertedString As String
    
    originalString = "Hello, World!"
    convertedString = StrConv(originalString, vbLowerCase)
    
    MsgBox "Original String: " & originalString & vbCrLf & _
        "Converted String: " & convertedString
End Sub

Sub ConvertUserInputToLowerCase()
    Dim userInput As String
    
    userInput = InputBox("Enter a string:")
    
    If Len(userInput) > 0 Then
        userInput = StrConv(userInput, vbLowerCase)
        MsgBox "Converted String: " & userInput
    Else
        MsgBox "No input provided."
    End If
End Sub

Sub ConvertCellValuesToLowerCase()
    
    Dim rng As Range
    Dim cell As Range
    
    ' 변환할 범위 설정
    Set rng = Range("A1:A5")
    
    For Each cell In rng
        cell.Value = StrConv(cell.Value, vbLowerCase)
    Next cell
    
    MsgBox "Cell values have been converted to lowercase."

End Sub

 

Sub ConvertArrayElementsToLowerCase()
    Dim myArray(1 To 5) As String
    Dim i As Integer
    
    ' 배열에 값 할당
    myArray(1) = "Apple"
    myArray(2) = "Banana"
    myArray(3) = "Grape"
    myArray(4) = "Orange"
    myArray(5) = "Strawberry"
    
    ' 소문자로 변환
    For i = 1 To 5
        myArray(i) = StrConv(myArray(i), vbLowerCase)
    Next i
    
    ' 변환된 배열 출력
    For i = 1 To 5
        Debug.Print myArray(i)
    Next i
End Sub

 

vbProperCase

Sub ConvertToProperCase()
    Dim originalString As String
    Dim convertedString As String
    
    originalString = "hello, world!"
    convertedString = StrConv(originalString, vbProperCase)
    
    MsgBox "Original String: " & originalString & vbCrLf & _
        "Converted String: " & convertedString
End Sub

 

Sub ConvertUserInputToProperCase()
    Dim userInput As String
    
    userInput = InputBox("Enter a string:")
    
    If Len(userInput) > 0 Then
        userInput = StrConv(userInput, vbProperCase)
        MsgBox "Converted String: " & userInput
    Else
        MsgBox "No input provided."
    End If
End Sub

Sub ConvertCellValuesToProperCase()
    
    Dim rng As Range
    Dim cell As Range
    
    ' 변환할 범위 설정
    Set rng = Range("A1:A5")
    
    For Each cell In rng
        cell.Value = StrConv(cell.Value, vbProperCase)
    Next cell
    
    MsgBox "Cell values have been converted to Proper Case."

End Sub

Sub ConvertArrayElementsToProperCase()
    Dim myArray(1 To 5) As String
    Dim i As Integer
    
    ' 배열에 값 할당
    myArray(1) = "apple"
    myArray(2) = "banana"
    myArray(3) = "grape"
    myArray(4) = "orange"
    myArray(5) = "strawberry"
    
    ' Proper Case로 변환
    For i = 1 To 5
        myArray(i) = StrConv(myArray(i), vbProperCase)
    Next i
    
    ' 변환된 배열 출력
    For i = 1 To 5
        Debug.Print myArray(i)
    Next i
End Sub

'VBA 라이브러리' 카테고리의 다른 글

String 함수  (0) 2023.07.22
Space 함수  (0) 2023.07.22
StrComp 함수  (0) 2023.07.22
ColorConstants  (0) 2023.07.18
IIf 함수  (0) 2023.07.15