우리는 적절한 경우에 텍스트로 변환 엑셀 VBA에서 프로그램을보고 아래. 즉, 대문자로 각 단어의 첫 문자와 소문자의 다른 모든 문자입니다.

상황 :

Convert to Proper Case in Excel VBA

  1. 먼저, 우리는이 범위 객체를 선언합니다. 우리는 범위가 RNG 세포 개체를 호출합니다.

Dim rng As Range, cell As Range

  1. 우리는 선택 범위 Range 개체의 RNG를 초기화합니다.

Set rng = Selection

  1. 우리는 무작위로 선택된 범위의 각 셀을 확인하려면 (이 범위는 임의의 크기 일 수있다). 엑셀 VBA에서는 이에 대한 각 다음 루프의 경우를 사용할 수 있습니다. 다음 코드 줄을 추가합니다

For Each cell In rng

Next cell

참고 : RNG 세포가 무작위로 여기에 선택되어, 당신은 어떤 이름을 사용할 수 있습니다.

코드의 나머지 부분에서이 이름을 참조해야합니다.

  1. 수식이 포함 된 셀을 무시 (cell.HasFormula이 거짓 우리가 계속 경우에만) 각각의 경우와 다음 사이에 다음 코드 줄을 추가합니다.

If Not cell.HasFormula Then

End If

  1. 다음으로, 우리는 ‘적절한 경우’이 범위에서 각 단어를 변환 할.

이 작업에 대한 적절한 워크 시트 기능을 사용할 수 있습니다. 당신의 if 문에 다음 코드 줄을 추가합니다.

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

  1. 테스트 프로그램.

결과 :

Convert to Proper Case Result