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

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





unt

For j = 3 To 8

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

Next j

Next i

End If

End If

If edin = 2 Then

If Minutes.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 Chas.Value = True Then

Exit Sub

End If

If Sutki.Value = True Then

For i = 2 To scount

For j = 3 To 8

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

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

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 scount

For j = 3 To 8

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

Next j

Next i

End If

End If

If edin = 3 Then

If Minutes.Value = True Then

For i = 2 To scount

For j = 3 To 8

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

Next j

Next i

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

Next j

Next i

End If

If Sutki.Value = True Then

Exit Sub

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

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 scount

For j = 3 To 8

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

Next j

Next i

End If

End If

If edin = 4 Then

If Minutes.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 Chas.Value = True Then

For i = 2 To scount

For j = 3 To 8

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

Next j

Next i

End If

If Sutki.Value = True Then

For i = 2 To scount

...


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





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

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