안녕하세요, 저는 VBA Excel을 처음 사용하므로 적절한 구문을 배우고 있으므로 문제가 있습니다. 대문자 여야하는 특정 약어 ( "DAD", "ABC", "CBD")를 제외하고 셀의 텍스트를 적절한 대소 문자 형식으로 변환하는 스크립트를 만들려고합니다.
내가 수행 한 연구, 특히 적절한 케이스 변환 및 조건부 서식에 대한 이러한 링크 에서 Select Case
명령문 을 사용해야 하지만 코드에서 구현하는 방법을 모르겠습니다.
지금까지 내가 가진 내용은 다음과 같습니다.
Sub ProperCase()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleID = "Conditional Proper Case Conversion"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleID, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.Value = Application.WorksheetFunction.Proper(Rng.Value)
Next
End Sub
이 코드가 실행되면 변환을 수행 할 셀 범위를 요청합니다. 내 질문은 특정 문자열 / 텍스트 (예 : 약어)에 대한 조건부 기능을 어떻게 추가합니까?
이렇게해야합니다.
Sub ProperCase()
Dim r As Range
Const EXCEPTIONS$ = ".dad.abc.cbd."
On Error Resume Next
For Each r In Application.InputBox("Range", "Conditional Proper Case Conversion", Selection.Address, Type:=8)
If InStrB(EXCEPTIONS, "." & LCase(r) & ".") Then
r = UCase(r)
Else
r = WorksheetFunction.Proper(r)
End If
Next
End Sub
EXCEPTIONS 상수를 편집하십시오. 기간이 EXCEPTIONS 문자열의 모든 항목에 걸쳐 있는지 확인합니다.
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다