|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007): 2007
* 아래줄에 질문을 작성하세요 >>
1002-557-153548 을 1002-***-****48 변경
번호 조합이 일정하지 않아 첫 "-" 이후와 두번째 "-" 이후 끝두자리만 남기고 모두 "*"로 변경하고 싶은데 함수로 가능할까요?
번호조합이 다른 경우도 있어서 ㅠㅠ
12010-11-1501-015 → 12010-**-****-*15
==============[몽실님 글에 대한 답변입니다]==============
사용자 정의함수
Public Function 번호조합(ByVal 일렬번호 As String) As String
Dim intFirst As Integer
Dim intLast As Integer
Dim intC As Integer
Dim strText As String
intFirst = InStr(일렬번호, "-")
intLast = Len(일렬번호) - 2
For intC = 1 To Len(일렬번호)
If intC < intFirst Or intC > intLast Or Mid(일렬번호, intC, 1) = "-" Then
strText = strText & Mid(일렬번호, intC, 1)
Else
strText = strText & "*"
End If
Next
번호조합 = strText
End Function
|
|