VBA LCase 기능 | VBA를 사용하여 텍스트를 소문자로 변환

Excel VBA LCase 함수

LCase 는 vba에서 제공되는 입력 문자열을 소문자로 변환하는 데 사용되는 내장 함수로, 문자열 인 단일 인수를 입력으로 취하고이 함수에 의해 생성 된 출력은 문자열입니다. 이 함수는 단일 문자가 아닌 모든 함수를 소문자로 변환합니다.

VBA에서 Excel과 동일한 공식 (LOWER)을 시도했지만 아직 찾지 못했을 것입니다. VBA에서는 소문자 이름이 약간 다르기 때문입니다. VBA에서는 바로 가기 이름 즉 "LCASE"에 있습니다. 여기서 "L"은 "LOWER"를 나타내므로 수식은 "LOWERCASE"로 표시됩니다.

통사론

  • 문자열 : 소문자로 변환하려는 텍스트 값에 불과합니다. 수식에 직접 텍스트를 제공 할 수 있으며 셀 참조가 될 수 있으며 변수를 통해서도 가능합니다.

VBA에서 소문자로 텍스트를 변환하는 방법?

이 VBA LCase Excel 템플릿은 여기에서 다운로드 할 수 있습니다 – VBA LCase Excel 템플릿

예 1

LCASE 함수를 사용하여 텍스트 값“Hello Good Morning”을 소문자로 변환 해 보겠습니다.

1 단계 : Excel 매크로의 이름을 지정하여 하위 절차를 시작합니다.

암호:

 Sub LCase_Example1 () End Sub 

2 단계 : 변수 k를 문자열로 선언합니다.

암호:

 Sub LCase_Example1 () Dim k As String End Sub 

3 단계 : "LCASE"기능을 적용하여 변수 "k"에 값을 할당합니다.

4 단계 : 여기서 string은 소문자로 변환하려는 원하는 텍스트 값이고 원하는 문자열 값은 "Hello Good Morning"입니다.

암호:

 Sub LCase_Example1 () Dim k As String k = LCase ( "Hello Good Morning") End Sub 

5 단계 : 이제 메시지 상자에 변수 "k"의 결과를 표시합니다.

암호:

 Sub LCase_Example1 () Dim k As String k = LCase ( "Hello Good Morning") MsgBox k End Sub 

좋아, 코딩이 끝났다. 결과를보기 위해 코드를 실행 해 보겠습니다.

그래서 LCase는 간단한 코딩 기술을 사용하여 텍스트 값 "Hello Good Morning"을 "hello good morning"으로 변환했습니다.

예제 # 2

LCASE 함수가 VBA에서 어떻게 작동하는지 보았습니다. 위의 예에서는 수식 자체에 값을 직접 제공했습니다. 이제 수식에 셀 참조 값을 사용하는 방법을 살펴 보겠습니다.

아래 이미지와 같이 셀 A1에 "Hello Good Morning"이라는 단어가 있다고 가정합니다.

1 단계 : 범위 B1 셀에 결과를 표시하여 셀 A1 값을 소문자로 변환하므로 코드는 범위 ( "B1")가됩니다 .Value =

암호:

 Sub LCase_Example2 () Range ( "B1"). Value End Sub 

2 단계 : 셀 B1에서 LCASE 함수까지 결과를 저장하므로 함수를 엽니 다.

3 단계 : 이 예에서 VBA 문자열 값은 직접 값이 아닌 셀 참조입니다. 따라서 셀 참조를 Range ( "A1"). Value로 지정합니다.

암호:

 Sub LCase_Example2 () Range ( "B1"). Value = LCase (Range ( "A1"). Value) End Sub 

그래서 우리는 VBA 코딩 부분으로 끝났습니다. 코드를 실행하고 B1 셀에서 마법을 확인하십시오.

예제 # 3

단일 셀 값 또는 단일 직접 값을 변환하는 것은 가장 큰 문제가 아닙니다. 워크 시트에서 "n"개의 값을 처리해야 할 때 루프를 적용하여 모든 셀을 반복하고 소문자 값으로 변환해야합니다.

아래는 Excel 워크 시트에있는 데이터라고 가정합니다.

루프를 알지 못하는 경우 VBA 코딩의 기본으로 돌아 가야합니다. 루프에 대한 상당한 지식을 얻으려면 "VBA 루프"에 대한 기사를 참조하십시오. 아래 코드는 위의 이름을 소문자로 변환합니다.

암호:

 Sub LCase_Example3 () Dim k As Long For k = 2 To 8 Cells (k, 2) .Value = LCase (Cells (k, 1) .Value) Next k End Sub 

그러면 소문자 함수에서 행 2의 모든 텍스트 값이 행 8로 변환됩니다.

셀을 기반으로 루프의 제한을 8에서 데이터의 마지막 행 번호로 늘릴 수 있습니다.