이름 맨 마지막 글자만 *로 바꾸기(명단 게시)
이벤트 당첨자 발표할때 이름 맨 뒤를 *로 바꿀 경우가 있다.
한번 코드로 해놓으면 계속 써먹을수 있겠지라는 마음에 한번 해봤다.
얼마나 써먹을지는 미지수지만, 언제나 처럼 작동하는것에 감사.
[코드샘플]
Sub HIDE_NAME()
Dim myRNG As Range
Dim i As Integer
Dim Lrow As Integer
On Error Resume Next
Application.DisplayAlerts = False
Set myRNG = Application.InputBox("첫번째 셀을 선택해주세요", , , , , , , 8)
Application.DisplayAlerts = True
Lrow = myRNG.CurrentRegion.Rows.Count
For i = 1 To Lrow
findtext = Mid(myRNG(i), Len(myRNG(i)), 1)
myRNG(i) = Replace(myRNG(i), findtext, "*")
Next i
End Sub