지정된 대로 변환된 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 |