반응형
Evaluate 함수는 텍스트로 되어 있는 수식을 실행 시켜 주는 함수 입니다. 이 함수는 엑셀 시트에서 수행할 수 있는 식을 텍스트로 넘겨서 사용합니다. 활용 빈도가 높은 함수이므로 외워 두는 것이 좋습니다. 또한 시트에 텍스트로 식이 들어가 있다면 가져와서 바로 실행할 수도 있습니다.
▼ 아래 샘플에서 수행하려는 작업은 최종점수란에 있는 값들을 전부 합치는데 VBA 에서 SUM 함수를 이용하는 것입니다. 그리고 바로 옆에 합치는 수식의 텍스트를 가져가서 수행합니다.
▼ 먼저 C13 에 있는 합계 수식 텍스트를 가져가서 Evaluate 함수를 수행합니다. 그럼 시트에서 수행한 것과 같은 결과를 얻을 수 있습니다. 또는 Evaluate 인수로 직접 수식을 텍스트로 만들어서 입력해도 됩니다. 이렇게 VBA 의 함수나 로직에 익숙하지 않으신 분들은 Evaluate 로 엑셀 시트에서 주로 사용하는 수식을 텍스트로 만들어 적용하시면 좀더 편하게 작업을 하실 수 있을 겁니다.
Sub 수식실행() Dim cal1, cal2 As String cal1 = Application.Evaluate(Range("C13").Value) Range("D13").Value = cal1 cal2 = Application.Evaluate("SUM(D2:D12)") Range("D14").Value End Sub |
▼ 위에서 만든 함수를 수행한 결과 입니다. 엑셀 시트에 수식 텍스트를 가져와서 수행한 결과나 VBA 에서 텍스트로 만들어서 실행한 결과가 같죠.
반응형
'엑셀(Excel) > VBA' 카테고리의 다른 글
엑셀 VBA 영역을 입력받는 RefEdit 컨트롤 사용하는 방법 (0) | 2023.01.09 |
---|---|
엑셀 VBA 아티클 전체 목록 (12) | 2022.12.23 |
엑셀 VBA 문서에 포함된 하이퍼링크 한번에 삭제하기 (1) | 2022.11.30 |
엑셀 VBA 폰트(Font) 색상과 스타일, 사이즈, 글꼴 변경하는 방법 (0) | 2022.10.27 |
엑셀 VBA 개체, 속성, 함수, 이벤트 사용법과 사례 검색해서 참고하기 (0) | 2022.04.26 |
엑셀 VBA 콤보박스 ComboBox 의존 관계 데이터 선택 기능 만드는 방법 (1) | 2019.02.28 |
엑셀 VBA Application.GoTo 함수로 시트에 커서 강제 이동시키는 방법 (0) | 2019.01.05 |
엑셀 VBA, UCase 와 LCase 함수를 사용해서 대문자, 소문자 변경하는 방법 (0) | 2018.09.09 |