엑셀 Excel 엑셀 함수를 이용한 매크로 만드는 방법

엑셀(Excel)/Excel

엑셀 Excel 엑셀 함수를 이용한 매크로 만드는 방법

 

환경: Microsoft Excel 2013

 

워크시트에서 사용하고 있는 함수와 수식은 VBA 코드에서도 적용할 수 있습니다. 수식 문자열을 Formula 라는 변수에 입력하면 바로 실행이 됩니다. 이 기능을 이용해서 많은 연산을 버튼 클릭 한번으로 수행할 수 있습니다. 오늘은 버튼과 매크로 함수를 연결해서 워크시트에 수식들을 한번에 수행하는 방법에 대해 알아 보겠습니다.

 

먼저 합계 버튼을 만들어 보겠습니다. 버튼은 컨트롤 도구 입니다. [개발 도구] > [삽입] 리본 메뉴를 클릭해 보세요. 팝업에 양식 컨트롤이 나타나면 버튼 아이콘을 적당한 위치에 만듭니다.

엑셀 Excel 엑셀 함수를 이용한 매크로 만드는 방법

 

버튼을 생성하는 순간 [매크로 지정] 팝업창이 뜹니다. 매크로 이름 란에 실행할 함수명을 입력합니다. 그리고 오른쪽으로 가서 [새로 만들기] 버튼을 클릭합니다

엑셀 Excel 엑셀 함수를 이용한 매크로 만드는 방법

 


다음은 자동으로 Visual Basic Editor 편집창이 열립니다. 화면에는 매크로 이름으로 함수가 만들어져 있을 겁니다. 이 함수에 수행할 소스를 넣어야겠죠. 소스는 다음과 같습니다

엑셀 Excel 엑셀 함수를 이용한 매크로 만드는 방법

 

소스는 간단합니다. 첫 번째 행에 있는 Range("C8").Select Select 속성을 이용해서 셀을 선택합니다. 이곳이 Formula 변수에 들어갈 수식이 실행될 셀 입니다.

 

Range("C8").Select

 

두 번째는 워크시트의 수식 입력에서 했던 것처럼 합계 함수를 문자열로 Formula 에 입력해야 합니다. 수식에 입력했던 것과 동일하게 실행됩니다.

동일하죠.

 

ActiveCell.Formula = "=SUM(C3:C7)"

 

이런 두 가지 과정을 반복해서 전체 합계를 구하는 것입니다. 계산할 수식이 많을 경우 버튼 한번으로 간단하게 실행할 수 있겠죠. 전체 소스는 아래와 같습니다.

 

Sub 전체합계_Click()

    Range("C8").Select

    ActiveCell.Formula = "=SUM(C3:C7)"

    Range("D8").Select

    ActiveCell.Formula = "=SUM(D3:D7)"

    Range("E8").Select

    ActiveCell.Formula = "=SUM(E3:E7)"

    Range("F8").Select

    ActiveCell.Formula = "=SUM(F3:F7)"

End Sub

 

매크로 함수를 실행한 결과는 다음과 같습니다

엑셀 Excel 엑셀 함수를 이용한 매크로 만드는 방법

저작자 표시 비영리 변경 금지
신고
Posted by 녹두장군