[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