[Excel] 문자열 나누는 함수 / 구분자로 값 가져오는 함수 / 사용자 정의 함수 (VB응용), 작성자 김정훈(tuckun)

(엑셀 구분자 문자나누기 함수 다음검색)

[EXCEL VBA] Split를 이용한 문자열 구분자로 나누기, 사용자정의 함수(function)

원작자 블로그 : http://blog.naver.com/PostView.nhn?blogId=tuckun&logNo=50070799603

VBA 모듈에 아래 내용을 추기한다.

Function sPltVal(nowval As String, dVal As String, dLocat As Integer) As Variant
' -----------------------------------------
' 셀값을 입력한문자로나눠서 선택한 위치의 값을 가져온다.
' nowval  : 대상 CELL
' dVal    : 대상을 나눌 기준 문자열
' dLocat  : 가져올 위치 : defualt : 1
' 작성일 : 2009.09.04
' 작성자 : 김정훈 (tuckun)
' -----------------------------------------
Dim lenVal    '현재셀의길이
Dim dTd       As Variant
Dim dSlt      As Variant        ' 대상을 나눈값을 각각 담을 변수
Dim lastIdx   As Integer        ' 대상의 마지막 번호
Dim tmPlVal   As String
Dim i
    '예외처리부
    If Len(dVal) < 1 Then
        sPltVal = "대상을 나눌 구분자를 입력하세요"
    End If
    dTd = Split(nowval, dVal)
    For i = 0 To UBound(dTd)
        lastIdx = UBound(dTd)
        If dLocat = 99 Then
            If i = lastIdx Then
                tmPlVal = dTd(i)
                GoTo eXitFor
            End If
        ElseIf i = dLocat Then
            tmPlVal = dTd(i)
            GoTo eXitFor
        End If
    Next i
eXitFor:
    If UBound(dTd) = 0 Then
        tmPlVal = nowval
    End If
    sPltVal = tmPlVal
End Function

Split를 이용한 문자열 구분자로 나누기, 사용자정의 함수(function).mht

Split를 이용한 문자열 구분자로 나누기, 사용자정의 함수(function).mht

2.51MB