'목록하단 광고 치환자(withSeok)
엑셀 파일 다운로드

숫자증가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

네이버 지식인 링크

728x90

+ Recent posts