워크시트에서 사용하고 있는 함수와 수식은 VBA 코드에서도 적용할 수 있습니다. 수식 문자열을 Formula 라는 변수에 입력하면 바로 실행이 됩니다. 이 기능을 이용해서 많은 연산을 버튼 클릭 한번으로 수행할 수 있습니다. 오늘은 버튼과 매크로 함수를 연결해서 워크시트에 수식들을 한번에 수행하는 방법에 대해 알아 보겠습니다.
▼ 먼저 합계 버튼을 만들어 보겠습니다. 버튼은 컨트롤 도구 입니다. [개발 도구] 탭 > [삽입] 리본 메뉴를 클릭해 보세요. 팝업에 양식 컨트롤이 나타나면 버튼 아이콘을 적당한 위치에 만듭니다.
▼ 버튼을 생성하는 순간 [매크로 지정] 팝업창이 뜹니다. 매크로 이름 란에 실행할 함수명을 입력합니다. 그리고 오른쪽으로 가서 [새로 만들기] 버튼을 클릭합니다.
| ※ 아래는 참고하면 좋을 만한 글들의 링크를 모아둔 것입니다. ※ ▶ 엑셀 Excel 매크로 실행과 소스 편집하기 ▶ 엑셀 Excel 간단하게 자동 매크로 만들기 ▶ 엑셀 Excel VBA 개발을 위한 개발 도구 탭 추가하기 ▶ 엑셀 Excel 매크로 소스 디버깅으로 결과 확인하기 ▶ 엑셀 Excel 엑셀 함수를 이용한 매크로 만드는 방법 |
▼ 다음은 자동으로 Visual Basic Editor 편집창이 열립니다. 화면에는 매크로 이름으로 함수가 만들어져 있을 겁니다. 이 함수에 수행할 소스를 넣어야겠죠. 소스는 다음과 같습니다.
▼ 소스는 간단합니다. 첫 번째 행에 있는 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 매크로 실행과 소스 편집하기 ▶ 엑셀 Excel 간단하게 자동 매크로 만들기 ▶ 엑셀 Excel VBA 개발을 위한 개발 도구 탭 추가하기 ▶ 엑셀 Excel 매크로 소스 디버깅으로 결과 확인하기 ▶ 엑셀 Excel 엑셀 함수를 이용한 매크로 만드는 방법 |
'엑셀(Excel) > Excel' 카테고리의 다른 글
| 엑셀 Excel 조건부 서식에서 수식을 이용한 새로운 규칙 만들기 (0) | 2023.07.09 |
|---|---|
| 엑셀 Excel 통합 문서 간 데이터 이동하기 및 복사하기 (0) | 2023.07.08 |
| 엑셀 Excel 방향키로 셀 이동 안될 때 해결하기 (1) | 2023.07.07 |
| 엑셀 Excel 숨겨진 값, 필터링 데이터 SUBTOTAL 이용해서 구하기 (0) | 2023.07.07 |
| 엑셀 Excel 함수 FORMULATEXT 수식을 텍스트로 변환해서 표시하기 (0) | 2023.06.30 |
| 엑셀 Excel 메모 한번에 모두 삭제하는 방법 (1) | 2023.06.30 |
| 엑셀 Excel 만다라트 차트 샘플 문서 (1) | 2023.06.29 |
| 엑셀 Excel 다중 IF 함수 와 IF 함수 구현하는 방법 (8) | 2023.06.29 |
