댓글 리스트
-
작성자 윤슬 작성시간19.07.27 안녕하세요? [공룡333]님...
먼저 텍스트 상자내의 문자를 셀로 나타내고 그 문자들중에 찾으면 쉽겠군요.
아래 코딩은 시트내 텍스트 상자의 문자를 A열에 순차적으로 나타내는 코딩입니다.
Sub Test()
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
Cells(Rows.Count, 1).End(xlUp).Offset(1) = Sh.TextFrame.Characters.Text
Next Sh
End Sub
그럼 잘 해결되시길... ^^*