#5 실습 – 간단한 계산기

http://www.yes24.com/Product/Goods/84909299?Acode=101

소설처럼 읽고 이해하는 엑셀 VBA 프로그래밍

지금까지의 학습내용을 바탕으로 간단한 계산기를 만들어 보자.

1)각 실행 버튼마다 작동하는 4개의 서브 프로시저를 생성

2)총 3개의 변수를 활용

Sub OP_PLUS()  '더하기 연산 프로시저

Dim PARM01 As Integer

Dim PARM02 As Integer

Dim RE01 As Integer

PARM01 = Worksheets("SHEET1").Cells(3, 2).Value

PARM02 = Worksheets("SHEET1").Cells(3, 3).Value

RE01 = PARM01 + PARM02

Worksheets("SHEET1").Cells(3, 4).Value = RE01

End Sub

Sub OP_MINUS()  '빼기 연산 프로시저

Dim PARM01 As Integer

Dim PARM02 As Integer

Dim RE01 As Integer

PARM01 = Worksheets("SHEET1").Cells(3, 2).Value

PARM02 = Worksheets("SHEET1").Cells(3, 3).Value

RE01 = PARM01 - PARM02

Worksheets("SHEET1").Cells(3, 4).Value = RE01

End Sub

Sub OP_MULTI()  '곱하기 연산 프로시저

Dim PARM01 As Integer

Dim PARM02 As Integer

Dim RE01 As Integer

PARM01 = Worksheets("SHEET1").Cells(3, 2).Value

PARM02 = Worksheets("SHEET1").Cells(3, 3).Value

RE01 = PARM01 * PARM02

Worksheets("SHEET1").Cells(3, 4).Value = RE01

End Sub

Sub OP_DIV()  '나누기 연산 프로시저

Dim PARM01 As Integer

Dim PARM02 As Integer

Dim RE01 As Integer

PARM01 = Worksheets("SHEET1").Cells(3, 2).Value

PARM02 = Worksheets("SHEET1").Cells(3, 3).Value

RE01 = PARM01 / PARM02

Worksheets("SHEET1").Cells(3, 4).Value = RE01

End Sub  

https://youtu.be/jUJNyH1_qMc