VBA 自動計算

Sub 計算()

Dim i As Integer
Dim a As String
i = 1

Do Until Cells(i, 2).Value = 0
a = Cells(i, 2)

Select Case a

Case "+"
Cells(i, 5).Value = Cells(i, 1).Value + Cells(i, 3).Value

Case "-"
Cells(i, 5).Value = Cells(i, 1).Value - Cells(i, 3).Value

Case "*"
Cells(i, 5).Value = Cells(i, 1).Value * Cells(i, 3).Value

Case "/"
Cells(i, 5).Value = Cells(i, 1).Value / Cells(i, 3).Value

Case "^"
Cells(i, 5).Value = Cells(i, 1).Value ^ Cells(i, 3).Value

Case "\"
Cells(i, 5).Value = Cells(i, 1).Value \ Cells(i, 3).Value

Case "mod"
Cells(i, 5).Value = Cells(i, 1).Value Mod Cells(i, 3).Value

End Select

i = i + 1

Loop

End Sub