здравствуйте!у меня такая проблемка, в задачи по контрольной не удается ввести диопозон с шагом!в принципе получилось...но тогда процесс идет без остановки и выйти из него получ только с помощью esc
по этому пришлось переставить значения но тогда шаг не работает....


Option Explicit
Sub Kursovik()
Dim T1 As Single, Zo As Single, V As Single
Dim Tv As Single, Tp As Single, g As Single, J As Single
Dim Dt As Single, Z As Single, L As Integer, i As Integer
Dim Q As Single, P As Single, D As Single
Dim R As Single, t As Single, Z1 As Single
V = 40
Tv = 0.1
Tp = 0.05
g = 40
J = 0.7
t = 11
R = 560
Cells(1, 1) = "марка автомобиля"
Cells(2, 1) = "БелАЗ - 548А"
Cells(1, 2) = "Грузоподъемность g, т"
Cells(2, 2) = g
Cells(1, 3) = "Расстояние перевозки L, км"
Cells(1, 4) = "Среднетехническая скорость V, км/ч"
Cells(2, 4) = V
Cells(5, 1) = "Коэффициент грузоподъемности J"
Cells(6, 1) = J
Cells(5, 2) = "Время погрузки Tp, ч"
Cells(6, 2) = Tp
Cells(5, 3) = "Время выгрузки Tv, ч"
Cells(6, 3) = Tv
Cells(5, 4) = "Время в наряде t,ч"
Cells(6, 4) = t
Cells(5, 5) = "Тариф за перевозку т. груза r, руб"
Cells(6, 5) = R
Cells(9, 1) = "объем перевозок Q, т."
Cells(9, 2) = "время оборота T1"
Cells(9, 3) = "количество полных оборотов Zo"
Cells(9, 4) = "оставшееся время Dt"
Cells(9, 5) = "количество ездок на последнем обороте Z1"
Cells(13, 1) = "грузооборот P, т*км"
Cells(13, 2) = "доход D"
Cells(13, 3) = "Общее количество ездок Z"
Randomize
For L = 5 To 35 Step 3
Next
L = Int(Rnd * 30 + 3)
Cells(2, 3) = L
T1 = (2 * L / V + Tp + Tv)
Zo = Int(t / T1)
Dt = t - T1 * Zo
Cells(10, 4) = Dt
If (Dt >= L / V + Tp + Tv) Then Z1 = 1 Else Z1 = 0
Cells(10, 5) = Z1
Z = Zo + Z1
Cells(14, 3) = Z
Q = g * J * Z
P = Q * L
D = R * Q
Cells(10, 2) = T1
Cells(14, 1) = P
Cells(10, 1) = Q
Cells(10, 3) = Zo
Cells(14, 2) = D
End Sub