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

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





ue = "" Then

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

End If

Next j

Next i

End If

If Sutki.Value = True Then

Exit Sub

End If

If Nedeli.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/7

End If

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 n + 1

For j = 2 To n + 1

If Not ActiveSheet.Cells (i, j). Value = & q uot; "Then

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

End If

Next j

Next i

End If

End If

If edin = 4 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 * 10080

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 * 168

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 * 7

End If

Next j

Next i

End If

If Nedeli.Value = True Then

Exit Sub

End If

If Mes.Value = True Then

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

End If

If Godi.Value = True Then

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

End If

End If

If edin = 5 Then

If Minutes.Value = True Then

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

End If

If Chas.Value = True Then

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

End If

If Sutki.Value = True Then

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

End If

If Nedeli.Value = True Then

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


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





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

  • Реферат на тему: Людина - вінець творіння або помилка природи
  • Реферат на тему: Помилка в платіжному дорученні. Інструкція до вирішення проблеми.
  • Реферат на тему: Експертні помилки в контексті загального поняття терміну "Помилка" ...
  • Реферат на тему: Варіант 2
  • Реферат на тему: Літаратура інший палового XVI ст