많은 사람들과 마찬가지로 Kirk는 정보를 다른 위치에서 가져온 Excel 워크 시트로 복사합니다. Kirk가 복사하는 정보는 일반적으로 모두 대문자로되어 있으며 Excel에서 “적절한 대소 문자”라고 부르는 정보로 변환하려고합니다 (각 단어의 첫 글자 만 대문자로 표시됨). 문제는 변환을 수행하는 PROPER 워크 시트 함수가 대문자 단어에주의를 기울이지 않는다는 것입니다. 따라서 a, an, in, the 및 with와 같은 단어는 모두 이니셜 캡으로 처리됩니다. Kirk는 이러한 단어 (및 일부 다른 단어)를 대문자로 사용하는 것을 원하지 않습니다.

이 문제에 접근 할 수있는 몇 가지 방법이 있습니다. 하나는 변환을 수행하기 위해 다소 긴 공식을 사용하는 것입니다.

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE( SUBSTITUTE(SUBSTITUTE(PROPER($B$13);" A ";" a "); " An ";" an ");" In ";" in ");" And ";" and "); " The ";" the ");" With ";" with ")

이것은 모두 하나의 공식이라는 것을 기억하십시오. 대소 문자 변환을 수행하지만 원하는 소문자 단어 (a, an, in 및, the, with)를 대체합니다. 이것은 상대적으로 쉽지만 대체를 수행해야하는 단어 수를 늘리면 수식의 유용성이 제한됩니다.

아마도 더 나은 접근 방식은 사용자 정의 함수 매크로를 사용하여 대 / 소문자 변환을 수행하는 것입니다. 다음 함수는 초기 대문자가 없어야하는 몇 가지 일반적인 단어가 소문자인지 확인합니다.

Function MyProper(str As String)

Dim vExclude     Dim i As Integer     vExclude = Array("a", "an", "in", "and", _       "the", "with", "is", "at")



Application.Volatile     str = StrConv(str, vbProperCase)

For i = LBound(vExclude) To UBound(vExclude)

str = Application.WorksheetFunction. _           Substitute(str, " " & _           StrConv(vExclude(i), vbProperCase) _           & " ", " " & vExclude(i) & " ")

Next     MyProper = str End Function

단어를 배열에 추가 할 수 있으며 코드는 자동으로 추가를 감지하고 추가 된 단어를 확인합니다. 또한 코드는 검사를 수행 할 때 배열의 각 단어 앞뒤에 공백을 추가합니다. 이는 부분 단어 (예 : “and”가 “stand”내에 있음) 나 문장 시작 부분의 단어를 변경하는 코드가 없도록하기위한 것입니다. 다음과 같은 방법으로 워크 시트 내에서 함수를 사용할 수 있습니다.

=MyProper(B7)

이 사용법은 B7에서 원본 텍스트를 조정하지 않고 수정 된 텍스트를 반환합니다.

원하는 경우 통합 문서의 명명 된 범위에서 단어 목록을 가져 오는 함수를 사용할 수 있습니다. 다음 함수는 셀당 단어가 하나 인 MyList라는 셀 범위를 사용합니다. 이 목록은 WordList라는 워크 시트에 있다고 가정합니다.

Function ProperSpecial(cX As Range)

' rng = target Cell

Dim c As Range     Dim sTemp As String

sTemp = Application.WorksheetFunction.Proper(cX.Value)

For Each c In Worksheets("WordList").Range("MyList")

sTemp = Application.WorksheetFunction.Substitute( _           sTemp, Application.WorksheetFunction.Proper( _           " " & c.Value & " "), (" " & c.Value & " "))

Next c

ProperSpecial = sTemp End Function

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (11267)은 Microsoft Excel 2007 및 2010에 적용됩니다. 여기에서 Excel의 이전 메뉴 인터페이스에 대한이 팁의 버전을 찾을 수 있습니다.

link : / excel-Modifying_Proper_Capitalization [Modifying Proper Capitalization].