|
用Select Case改写:- Sub 右()
- Dim L, b#, I%
- I = 4
- Do
- L = Cells(I, 1)
- Select Case L
- Case Is < 17371.6
- MsgBox "超出里程范围"
- Case Is <= 17500.85
- b = 20.311 + (L - 17371.6) * 2 / 1000
- Case Is <= 17518
- b = 20.57 + (L - 17500.85) * 2 / 1000 + (L - 17500.85) ^ 2 / (2 * 5000)
- Case Is <= 17535.15
- b = 20.633 + (L - 17518) * 8.86 / 1000 + (L - 17518) ^ 2 / (2 * 5000)
- Case Is <= 17700
- b = 20.756 + (L - 17535.15) * 8.86 / 1000
- Case Is <= 17707.98
- b = 22.217 + (L - 17700) * 8.86 / 1000 - (L - 17700) ^ 2 / (2 * 5000)
- Case Is <= 17714.68
- b = 22.283 + (L - 17707.98) * 6.18 / 1000 - (L - 17707.98) ^ 2 / (2 * 5000)
- Case Is <= 17817.85
- b = 22.329 + (L - 17714.68) * 6.18 / 1000
- Case Is <= 17878.3
- b = 22.966 + (L - 17817.85) * 6.18 / 1000 + (L - 17817.85) ^ 2 / (2 * 5000)
- Case Is <= 17938.75
- b = 22.974 + (L - 17878.3) * 18 / 1000 + (L - 17878.3) ^ 2 / (2 * 5000)
- Case Is <= 17988.953
- b = 22.252 - (L - 17938.75) * 18 / 1000
- Case Else
- MsgBox "超出里程范围"
- End Select
- Cells(I, 2) = b
- I = I + 1
- Loop Until Cells(I, 1) = ""
- End Sub
复制代码 |
|