Sheets("Data시트").Select
시트 선택

ActiveSheet.Shapes.Range(Array("DATE")).Select
현재시트 . "DATA" 텍스트 박스 선택

Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = Cells(2, 16).Value
텍스트박스의 내용을 Cells(2,16)의 값으로 채움

Posted by 샌츠
,