[땡큐엑셀vba & 엑셀매크로] 선택영역의 행의 합, 열의 합

 

 

 

 

 

'선택영역의 합구하기
'다음 매크로를 작성하시오.
'워크시트에서 셀영역을 선택하고 매크로를 수행시키면 행 방향으로의 합과 열 방향으로의 합.
'그리고 전체 선택된 영영의 합을 구해서 아래 지정된 위치에 표시하는 매크로를 작성하시오.
'행과 열의 합을 구하기 우해 For문을 사용하시오
'(힌트) selection된 Range의 행의 개수와 열의 개수는 각각
'Selection.Rows.count, Selection.Columns.count이다.
'Range내의 특정 셀을 접근하기 위해서는 Cells(i,j)속성을 사용한다.


'
'Source by 땡큐엑셀vba & 엑셀매크로
'
Sub 합구하기()

    행수 = Selection.Rows.Count
    열수 = Selection.Columns.Count
    
    '행별 합계
    'For문을 돌면서
    '(1,1),(1,2),(1,3)
    '(2,1),(2,2),(2,3)
    '(3,1),(3,2),(3,3)
    '행별 합계를 구한다.
    For i = 1 To 행수
        행별합 = 0
        For j = 1 To 열수
            행별합 = 행별합 + Selection.Cells(i, j)
        Next j
        Selection.Cells(i, j) = 행별합
        행들의합 = 행들의합 + 행별합
    Next i
    
    
    '열별 합계
    'For문을 돌면서
    '(1,1),(2,1),(3,1)
    '(1,2),(2,2),(2,3)
    '(1,3),(2,3),(3,3)
    '열별 합계를 구한다.
    For j = 1 To 열수
        열별합 = 0
        For i = 1 To 행수
            열별합 = 열별합 + Selection.Cells(i, j)
        Next i
        Selection.Cells(i, j) = 열별합
    Next j

    
    '전체 합계
    '전체합계는 offset메서드를 사용해서 +1행,+1열에 출력한다.
    Selection.Cells(행수, 열수).Offset(1, 1) = 행들의합
    
    MsgBox "완료되었습니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"

End Sub

 

 

선택영역에서 행의합 열의합-땡큐엑셀vba.xlsm

0.02MB