나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 dew (dewdrop)

추천:  2
파일:     오피스튜터_단어앞마다 기호넣기_Ans.xlsm (18.4KB) 조회:  1371
제목:   [RE]키워드 앞 특정 기호 출력
     
  안녕하세요. 엑셀 통합문서 버전을 사용중입니다. 
키워드를 설정한 후, 키워드 앞마다 특정 기호를 출력시키는 수식이 궁금합니다 .
감사합니다. 좋은 하루 되세요 .
==============[너굴너굴님 글에 대한 답변입니다]==============

첨부화일 참고하세요...

Function SpecialChar(rKey As Range, sSoc As String, sSign As String)
    Dim vKeys, vX
    Dim iPos As Integer
    
    Application.Volatile
    
    vKeys = Split(rKey, ",")
    For Each vX In vKeys
        iPos = InStr(sSoc, vX)
        If iPos > 0 Then
            If iPos = 1 Then                                    '첫위치일 경우
                iPos = InStr(sSoc, vX & " ")
                If iPos > 0 Then
                    sSoc = Replace(sSoc, vX, sSign & vX)
                End If
            ElseIf (iPos + Len(vX) - 1) = Len(sSoc) Then        '마지막 위치일 경우
                iPos = InStr(sSoc, " " & vX)
                If iPos > 0 Then
                    sSoc = Replace(sSoc, " " & vX, " " & sSign & vX)
                End If
            Else
                iPos = InStr(sSoc, " " & vX & " ")
                If iPos > 0 Then
                    sSoc = Replace(sSoc, " " & vX & " ", " " & sSign & vX & " ")
                End If
            End If
        End If
    Next
    SpecialChar = sSoc
End Function
 
[불량 게시물 신고]  
dew또 다른 사용자 정의 함수 입니다.

Function SpecialChar(rKey As Range, sSoc As String, sSign As String)
    Dim vKeys, vSentence, vX
    Dim iX As Integer
    
    Application.Volatile
    
    vKeys = Split(rKey, ",")
    vSentence = Split(sSoc)
    For iX = 0 To UBound(vSentence)
        For Each vX In vKeys
            If vSentence(iX) = vX Then
                vSentence(iX) = sSign & vSentence(iX)
            End If
        Next
    Next
    SpecialChar = Join(vSentence)
End Function
07-23 (14:00)
삭제 ■신고
너굴너굴안녕하세요.친절한 답변 감사합니다. 매번 선생님 덕분에 엑셀이 조금씩 느는것 같습니다.  늘 좋은 하루 되십시오 :-)07-23 (16:25)
삭제 ■신고
        
  

작성일 : 2019-07-23(13:51)
최종수정일 : 2019-07-23(13:51)
 


 ◎ 관련글

  제 목   작성자   날짜
키워드 앞 특정 기호 출력 너굴너굴 2019-07-23
[RE]키워드 앞 특정 기호 출력 참서리 2019-07-24
[RE]키워드 앞 특정 기호 출력 dew 2019-07-23