Fly to the sky & Return

특정 열(column) 의 마지막 칸에 특정 합계 문자를 넣고 합계를 자동으로구하는 VBA 본문

프로그래밍/엑셀 & VBA

특정 열(column) 의 마지막 칸에 특정 합계 문자를 넣고 합계를 자동으로구하는 VBA

낼은어떻게 2016. 1. 15. 23:06
336x280(권장), 300x250(권장), 250x250, 200x200 크기의 광고 코드만 넣을 수 있습니다.

여러 sheet에서비슷한 작업을 할경우 매크로를 많이 사용하는데 sheet마다 합계를 구해야할 경우 마지막 열이 각각 다른 경우 매크로로 진행이 안되고 일일히수작업을 해야하는 경우가 발생합니다.

이러한때 특정 열의 마지막 칸에 자동적으로 합계를 구해서 넣고 그 앞 칸에 합계를 명칭을 넣어주는 VBA입니다.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
ActiveSheet.Range("F1").End(xlDown).Offset(1, 0).Select  ' F column 마지막 칸에 합계라는문자를 삽입
ActiveCell.FormulaR1C1 = "합계" ActiveSheet.Range("G1").End(xlDown).Offset(1, 0).Select  ' G column 마지막 칸에 숫자합 넣는 VBA 
Dim x, y As Integer
x = ActiveCell.Row
y = ActiveCell.Column
Dim i As Integer
Dim Su As Double
Su = 0
For i = 2 To x - 1
Su = Su + Cells(i, 7).Value
Next i  
 
ActiveSheet.Range("G1").End(xlDown).Offset(1, 0).Select 
 
ActiveCell.Value = Su
 
cs


'프로그래밍 > 엑셀 & VBA' 카테고리의 다른 글

Range Offset을 이용한 범위 선택방법  (0) 2016.01.26
VBA .. 일종의 행열 바꾸기와 비슷한 VBA  (0) 2016.01.24
엑셀 exact 함수를 이용한 대소문자 구분하기  (0) 2015.11.25
[엑셀 vba] 순차적으로 나열된 당직 데이터를 실제 달력 폼으로 만들어주기  (0) 2015.02.08
[vba] 선택된 엑셀파일의 첫번째 sheet를 원하는 파일로 옮기기  (0) 2014.04.08
'프로그래밍/엑셀 & VBA' Related Articles more