Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые проекты » Знаходження критичного шляху табличним методом

Реферат Знаходження критичного шляху табличним методом





введення"

End If

If Mes.Value = True Then

Exit Sub

End If

If Godi.Value = True Then

For i = 2 To n + 1

For j = 2 To n + 1

If Not ActiveSheet.Cells (i, j). Value = "" Then

ActiveSheet.Cells (i, j). Value = ActiveSheet.Cells (i, j). Value/12

End If

Next j

Next i

End If

End If

If edin = 6 Then

If Minutes.Value = True Then

For i = 2 To n + 1

For j = 2 To n + 1

If Not ActiveSheet.Cells (i, j). Value = "" Then

ActiveSheet.Cells (i, j). Value = ActiveSheet.Cells (i, j). Value * 525600

End If

Next j

Next i

End If

If Chas.Value = True Then

For i = 2 To n + 1

For j = 2 To n + 1

If Not ActiveSheet.Cells (i, j). Value = "" Then

ActiveSheet.Cells (i, j). Value = ActiveSheet.Cells (i, j). Value * 8760

End If

Next j

Next i

End If

If Sutki.Value = True Then

For i = 2 To n + 1

For j = 2 To n + 1

If Not ActiveSheet.Cells (i, j). Value = "" Then

ActiveSheet.Cells (i, j). Value = ActiveSheet.Cells (i, j). Value * 365

End If

Next j

Next i

End If

If Nedeli.Value = True Then

MsgBox "Точний переклад неможливий. Спробуйте інший варіант ", vbCritical + vbOKOnly, "Помилка введення"

End If

If Mes.Value = True Then

For i = 2 To n + 1

For j = 2 To n + 1

If Not ActiveSheet.Cells (i, j). Value = "" Then

ActiveSheet.Cells (i, j). Value = ActiveSheet.Cells (i, j). Value * 12

End If

Next j

Next i

End If

If Godi.Value = True Then

Exit Sub

End If

End If

End If


If ActiveSheet.Cells (1, 1). Value = "Початковий етап" Then

If edin = 1 Then

If Minutes.Value = True Then

Exit Sub

End If

If Chas.Value = True Then

For i = 2 To scount

For j = 3 To 8

ActiveSheet.Cells (i, j). Value = ActiveSheet.Cells (i, j). Value/60

Next j

Next i

End If

If Sutki.Value = True Then

For i = 2 To scount

For j = 3 To 8

If Not ActiveSheet.Cells (i, j). Value = "" Then

ActiveSheet.Cells (i, j). Value = ActiveSheet.Cells (i, j). Value/1440

End If

Next j

Next i

End If

If Nedeli.Value = True Then

For i = 2 To scount

For j = 3 To 8

ActiveSheet.Cells (i, j). Value = ActiveSheet.Cells (i, j). Value/10080

Next j

Next i

End If

If Mes.Value = True Then

MsgBox "Точний переклад неможливий. Спробуйте інший варіант ", vbCritical + vbOKOnly," Помилка введення "

End If

If Godi.Value = True Then

For i = 2 To sco...


Назад | сторінка 12 з 22 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Введення в інформатику
  • Реферат на тему: Введення в природооблаштування
  • Реферат на тему: Введення в валеологію
  • Реферат на тему: Введення в соціологію
  • Реферат на тему: Введення в теорію комунікації