Private Sub CommandButton1_Click()
Dim iTimer As Single
iTimer = Timer
Dim n_1_1
Dim в_1, Водовод1, лямда_1, k, x, м_1 As Double
' наработка для каждого элемента n
n_1_1 = 0
' берем значения интенсивности отказов
лямда_1 = Лист1.Cells(3, 4)
лямда_2 = Лист1.Cells(6, 4)
' берем значения интенсивности восстановления
м_1 = Лист1.Cells(3, 5)
For T = 1 To 87600
Worksheets("ИсхДан").Cells(9 + T, 6).Value = T 'вывод значения времени в ячейку
Next T
в_1 = Лист1.Cells(9, 3)
Randomize
For T = 1 To 87600
в_1 = Лист1.Cells(9, 3)
Водовод1 = Rnd(1)
Worksheets("ИсхДан").Cells(9 + T, 12).Value = Водовод1 'вывод значения рандомного числа в ячейку
' отказ водовода 1-1
If Водовод1 < лямда_1 * n_1_1 Then
в_1 = 1 / м_1 'считаем значение интенсивности восстановления элемента
k = Лист1.Cells(9 + T, 6)
For x = k To (k + в_1)
Worksheets("ИсхДан").Cells(9 + x, 7).Value = 0: Cells(9 + x, 7).Interior.Color = RGB(255, 137, 137) 'вывод значения наработки элемента системы n_1_1 в конкретное время
Next x
GoTo 100
End If
n_1_1 = n_1_1 + 1
Worksheets("ИсхДан").Cells(9 + T + в_1, 7).Value = n_1_1 'вывод значения наработки элемента системы n_1_1 в конкретное время
100 Next T
MsgBox "Время выполнения макроса " & Format((Timer - iTimer) / 86400, "Long Time"), vbExclamation, ""
End Sub