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

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





For j = 3 To 8

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

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, "Помилка введення"

End If

If Mes.Value = True Then

Exit Sub

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

Next j

Next i

End If

End If

If edin = 6 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 * 525600

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

Next j

Next i

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

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 scount

For j = 3 To 8

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

Next j

Next i

End If

If Godi.Value = True Then

Exit Sub

End If

End If

End If

End Sub


Private Sub UserForm_Terminate ()

Hide

SolForm.StartUpPosition = 0

SolForm.Top = 350

SolForm.Left = 480

SolForm.Show

End Sub



Форма SolForm (перевірк...


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





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

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