워크시트에서 사용하고 있는 함수와 수식은 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.05 |
|---|---|
| 엑셀 Excel 셀 포인트 이동하는 다양한 방법 (0) | 2023.07.05 |
| 엑셀 Excel 0 으로 시작하는 일련번호 만들기 (0) | 2023.07.03 |
| 엑셀 Excel 홀수, 짝수 구분해서 합 구하기, 조건부 서식 사용해서 색칠하기 (2) | 2023.07.03 |
| 엑셀 Excel 생년월일로 나이 구하기, 연령대 인원 구하기 (0) | 2023.07.02 |
| 엑셀 Excel 함수 FORMULATEXT 수식을 텍스트로 변환해서 표시하기 (0) | 2023.06.30 |
| 엑셀 Excel 메모 한번에 모두 삭제하는 방법 (1) | 2023.06.30 |
| 엑셀 Excel 자주 사용하는 기능 리본 메뉴로 만들어서 관리하기 (0) | 2023.06.29 |
