#7 간단한 계산기2

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

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

IF문을 활용하여 좀더 심플한 계산기를 만들어 본다.

연습문제 03.3.1) 입력된 사칙연산자에 따라 계산기를 만들어 보시오.

1) 총 4개의 변수를 활용하시오.

2) 각각의 입력값을 받고 3행 4열에 연산자(+, -, *, /)를 입력 받아 해당 입력값에 따라 연산을 수행한 결과를 출력하시오.

Sub F07_01 ()

Dim INPUT01 As Integer

Dim INPUT02 As Integer

Dim OPP As String

Dim RE01 As Integer

INPUT01 = Worksheets("Sheet1").Cells(3, 2).Value

INPUT02 = Worksheets("Sheet1").Cells(3, 3).Value

OPP = Worksheets("Sheet1").Cells(3, 4).Value

If OPP = "+" Then

RE01 = INPUT01 + INPUT02

ElseIf OPP = "-" Then

RE01 = INPUT01 - INPUT02

ElseIf OPP = "*" Then

RE01 = INPUT01 * INPUT02

ElseIf OPP = "/" Then

RE01 = INPUT01 / INPUT02

End If

Worksheets("Sheet1").Cells(3, 5).Value = RE01

End Sub

https://youtu.be/7ud1eTLIXd8