텍스트 코드(LEN/LEFT)
텍스트를 정렬하고 짜르고 붙이는 건
노가다가 빠른지 코드를 짜놓는게 좋은지
판단이 서지 않을 때가 많다.
문득, 문장중 한 단어를 고르면, 그 단어 뒤만 남게 되는 코드를 짜보고 싶었다.
실용성은 0%가 되겠지만, 해보면 그 쓰임새는 잘 알게 될지 모른다.
생각나는데로 하다보니 변수선언도 없고, IF가 많다.
귀찮아서 대부분 GOTO로 처리했다.
왜냐면,, 다른 방법을 모르니까.
[적용화면]
[코드샘플]
Sub kk()
ActiveSheet.Cells(1, 1) = "this is a practice"
a = Range("a1")
ff = Array("t", "h", "i", "s", "p", "r", "c", "e")
dd: myword = InputBox("원하는 문자 입력(t, h, i, s, a, p, r, c, e)")
If myword = "" Then
VV: question = MsgBox("문자를 입력하지 않으셨거나 없는 문자를 입력하셨습니다.아니면 취소 하셨습니다. 종료하시겠습니까?", vbYesNo)
If question = vbYes Then
GoTo EE
Else
GoTo dd
End If
End If
For i = 0 To UBound(ff)
If myword = ff(i) Then
GoTo kk
Else
End If
Next i
GoTo VV
kk:
j = InStr(1, a, myword)
x = Right(a, Len(a) - j)
MsgBox x
EE:
End Sub