response = MsgBox("请确认Cv,Cs,Kp,Np是否已经调整", vbOKCancel)
If response = vbOK Then
For currentrow = 20 To 30 Step 1
oldtime = Cells(currentrow, 15)
newtime = Cells(currentrow, 16)
Do While Abs(newtime - oldtime) > 0.0005
Cells(currentrow, 15) = newtime
oldtime = Cells(currentrow, 15)
newtime = Cells(currentrow, 16) 运行到这一步报错
Loop
Next
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024