엑셀 파일 다운로드 |
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
'■ Excel > ㅡExcel Study' 카테고리의 다른 글
엑셀로 이산확률 분포 평균, 분산, 표준편차 구하기 (0) | 2020.04.12 |
---|---|
엑셀 Q&A : 매크로 단추 클릭으로 날짜와 시간입력 (0) | 2020.04.12 |
엑셀 Q&A : 개인시간표 만들기 (0) | 2020.04.11 |
엑셀 Q&A : 말줄임 앞글자만 (0) | 2020.04.11 |
엑셀 Q&A : 주소를 행정구역별로 입력되게/날짜를 텍스트로 변환 (0) | 2020.04.11 |