/ Excel VBA에서 적절한 경우로 변환

Excel VBA에서 적절한 경우로 변환

아래에서 우리는 Excel VBA텍스트를 적절한 경우로 변환한다.. 즉, 각 단어의 첫 글자는 대문자이고 다른 모든 문자는 소문자입니다.

상태:

Excel VBA에서 적절한 경우로 변환

1. 먼저 두 개의 Range 객체를 선언합니다. Range 객체 rng와 cell을 호출합니다.

Dim rng As Range, cell As Range

2. 선택된 범위로 범위 객체 rng를 초기화합니다.

Set rng = Selection

3. 우리는 무작위로 선택된 범위에서 각 셀을 확인하려고합니다 (이 범위는 임의의 크기 일 수 있음). Excel VBA에서는이를 위해 For Each Next 루프를 사용할 수 있습니다. 다음 코드 행을 추가하십시오.

For Each cell In rng

Next cell

참고 : rng와 셀은 무작위로 여기에서 선택됩니다. 모든 이름을 사용할 수 있습니다. 나머지 코드에서이 이름을 참조하는 것을 잊지 마십시오.

4. 수식이 포함 된 셀을 무시하려면 For Each와 Next 사이에 다음 코드 줄을 추가합니다 (cell.HasFormula가 false 인 경우에만 계속 진행).

If Not cell.HasFormula Then

End If

5. 다음으로이 범위의 각 단어를 "적절한 경우"로 변환하려고합니다. 이 작업에 워크 시트 기능 인 Proper를 사용할 수 있습니다. if 문에 다음 코드 줄을 추가하십시오.

cell.Value = WorksheetFunction.Proper(cell.Value)

6. 프로그램을 테스트하십시오.

결과:

적절한 케이스 결과로 변환

또한 읽으십시오 :