엑셀공부 , 매크로 공부, vba 공부 7일차, 사칙연산 계산기 만들기

내가 보고있는 책 : 소설처럼 읽고 이해하는 엑셀 vba프로그래밍 (전익진 작가님)

전에 보던거 너무 어려워서 책 변경.

 

사칙연산 계산기 만들기

전부 dim으로 integer 해버려서 나누기 하면 소수 안나오고 전부 +- 정수값만 나옴

 

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_didddv() '나누기


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