문장 내의 특정단어 삭제하기

Step 1: 이번 시간의 예제

사용자 정의 함수 CutWord2에 셀과 삭제할 단어의 위치(X)를 넘기면 그 위치의 단어가 빠진 문장을 돌려줍니다. X를 생략하면 문장을 그대로 돌려줍니다.

VB0099 강좌만 제대로 이해를 하셨다면 이런 것 쯤은 일도 아닐 것입니다만, 그래도 몇 분 정도는 이런 것을 질문해 오시지 않을까 생각했는데 오랜만에 예상이 빗나갔군요. ^^ 다 잘 이해해서 그런 것인지 아니면 대충 눈으로만 이해하고 넘어가셔서 그런지…

기능이 비슷 - 이라기 보다 정반대이지만 극과극은 통하는 법이니까 - 하니까 코드도 대동소이 합니다.

Step 2: CutWord2 함수

Option Base 1
'//배열변수의 하한값 크기를 1로 지정해 주는 명령이었지요?

Function CutWord2(Cell, Optional X As Integer)
'//지난 번과 마찬가지로 X라는 Optional Arguments를 사용했습니다.

    Dim strTemp As String
    Dim strWord() As String
    Dim intNum As Integer
    Dim intWhat As Integer, intFrom As Integer
    Dim i As Integer
    Dim varWord As Variant
    intWhat = 1
    On Error Resume Next

    Do While Err = 0
        intFrom = Application.WorksheetFunction.Find(" ", Cell, intWhat)
        intNum = intNum + 1
        ReDim Preserve strWord(intNum)
        strWord(intNum) = Mid(Cell, intWhat, IIf(Err, Len(Cell) + 1, intFrom) - intWhat)
        intWhat = intFrom + 1
        '//strWord라는 문자형 배열변수에 문장 내의 각 단어들을 차례대로 대입해 넣는
        '//과정입니다.

    Loop

    For Each varWord In strWord
        i = i + 1
        If i <> X Then strTemp = Trim(strTemp & " " & varWord)
        '//이 부분이 조금 틀릴 것입니다.
        '//선택적 요소인 X의 값과 I 값이 같을 경우에는 이 부분을 실행하지 않으므로 그 위치에
        '//해당하는 단어는 빠지게 되는 원리입니다.

    Next varWord
    CutWord2 = strTemp
End Function

마무리

아직 제 컨디션이 아니라 오늘은 짧게 하고 마칩니다.

다음 시간에…

정리 — 특정 단어 삭제 함수 핵심

자주 묻는 질문 (FAQ)

마치며

이전 강좌의 단어 추출 함수를 조금만 바꾸면 반대 기능인 단어 삭제 함수도 쉽게 만들 수 있습니다.