'足し算
Sub Addition()
Cells(1, 2) = Cells(1, 1) + Cells(2, 1)
End Sub
'引き算
Sub Subtraction()
Cells(1, 2) = Cells(1, 1) - Cells(2, 1)
End Sub
'掛け算
Sub Multiplication()
Cells(1, 2) = Cells(1, 1) * Cells(2, 1)
End Sub
'割り算
Sub Division()
Cells(1, 2) = Cells(1, 1) / Cells(2, 1)
End Sub