2,462
社区成员
发帖
与我相关
我的任务
分享
Sub 运算并画图()
Dim r As Integer, x As String, y As String, op As String, z As Single
For r = 2 To 9999
x = Worksheets(1).Range("A" & r)
y = Worksheets(2).Range("A" & r)
op = Worksheets(3).Range("A" & r)
If x <> "" And y <> "" And op <> "" Then
Select Case Worksheets(3).Range("A" & r)
Case "+"
z = CInt(x) + CInt(y)
Case "-"
z = CInt(x) - CInt(y)
Case "*"
z = CInt(x) * CInt(y)
Case "/"
z = CInt(x) / CInt(y)
End Select
Worksheets(4).Range("A" & r) = z
End If
DoEvents
Next
End Sub