스핀버튼을 눌러 총금액계산
관련: 지식인 스핀버튼을 넣어서 누를 때마다 개수가 반영되어 계산되게 해보았습니다. 아래와 같은 코드가 Slide1에 사용되었습니다. Function getCell(r As Integer, c As Integer) As TextRange Dim sld As Slide Dim shp As Shape Set sld = Slide1 Set shp = sld.Shapes("표 1") Set getCell = shp.Table.Cell(r, c).Shape.TextFrame.TextRange End Function Function doCalc() getCell(5, 2) = Format(Val(getCell(4, 2)) + Val(getCell(4, 3)) + Val(getCell(4, 4)), "###,##..
PPT+VBA
2023. 5. 21. 22:38
최근댓글