엑셀 Q&A : 엑셀 도형안의 텍스트값 변경

엑셀 파일 다운로드

숫자증가1 (1).xlsm

0.02MB

VBA 코드

Option Explicit Sub 직사각형1_Click()     Dim shp As Shape     Dim s As String     Set shp = Sheet1.Shapes(Application.Caller)     s = shp.TextFrame.Characters.Text     s = Replace(s, "SE", "")     shp.TextFrame.Characters.Text = "SE" & CInt(s) + 1 End Sub

네이버 지식인 링크