1 2 3 4 5 6 7 8 9 10 11 12 13 14
| Sub Macro3()
Range("B11").Select
If ActiveCell.Offset(0, -1) > 30 And ActiveCell.Offset(0, -1) <= 31 Then ActiveCell.Offset(0, 0) = 6.19 + (1 * 3.186)
If ActiveCell.Offset(0, -1) > 31 And ActiveCell.Offset(0, -1) <= 32 Then ActiveCell.Offset(0, 0) = 6.19 + (2 * 3.186)
If ActiveCell.Offset(0, -1) > 32 And ActiveCell.Offset(0, -1) <= 33 Then ActiveCell.Offset(0, 0) = 6.19 + (3 * 3.186)
If ActiveCell.Offset(0, -1) > 33 And ActiveCell.Offset(0, -1) <= 34 Then ActiveCell.Offset(0, 0) = 6.19 + (4 * 3.186)
If ActiveCell.Offset(0, -1) > 34 And ActiveCell.Offset(0, -1) <= 35 Then ActiveCell.Offset(0, 0) = 6.19 + (5 * 3.186)
If ActiveCell.Offset(0, -1) > 35 And ActiveCell.Offset(0, -1) <= 36 Then ActiveCell.Offset(0, 0) = 6.19 + (6 * 3.186)
If ActiveCell.Offset(0, -1) > 36 And ActiveCell.Offset(0, -1) <= 37 Then ActiveCell.Offset(0, 0) = 6.19 + (7 * 3.186)
If ActiveCell.Offset(0, -1) > 37 And ActiveCell.Offset(0, -1) <= 38 Then ActiveCell.Offset(0, 0) = 6.19 + (8 * 3.186)
If ActiveCell.Offset(0, -1) > 38 And ActiveCell.Offset(0, -1) <= 39 Then ActiveCell.Offset(0, 0) = 6.19 + (9 * 3.186)
If ActiveCell.Offset(0, -1) > 39 And ActiveCell.Offset(0, -1) <= 40 Then ActiveCell.Offset(0, 0) = 6.19 + (10 * 3.186)
End Sub |
Partager