명단 게시

이벤트 당첨자 발표할때 이름 맨 뒤를 *로 바꿀 경우가 있다.
또는 가운데 글자를 바꿔야할 경우도 있겠지

맨 마지막 글자만 *로 바꿔 본다.

한번 코드로 해놓으면 계속 써먹을수 있겠지라는 마음에 한번 해봤다.
얼마나 써먹을지는 미지수지만, 언제나 처럼 작동하는것에 감사.

myimg



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


해당 열의 첫번째 셀을 선택하는 방식으로 구성했으나,
영역 모두를 선택하는것도, 별 어렵지 않을 것이다.

끝.