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

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





іт, перевірка формату листа, перевірка правильності введення, виклик довідки, вихід з програми, перехід до розрахункової формі)

'Перевірка правильності введення

Private Sub CommandButton1_Click ()

Dim Answer As String

Application.ScreenUpdating = False

If iget.Value = "" Then

MsgBox "Введіть кількість етапів", vbCritical + vbOKOnly, "Помилка введення"

Exit Sub

End If

If Not (IsNumeric (iget.Value)) Then

MsgBox "Кількість етапів роботи має бути числом", vbCritical + vbOKOnly, "Помилка введення"

Exit Sub

End If

If iget.Value <3 Then

MsgBox "Кількість етапів роботи має бути не менше 3", vbCritical + vbOKOnly, "Помилка введення"

Exit Sub

End If

If iget.Value> 254 Then

MsgBox "Кількість етапів роботи має бути не більше 222", vbCritical + vbOKOnly, "Помилка введення"

Exit Sub

End If

n = Fix (iget.Value)

'Перевірка листа на наявність інформації

For i = 1 To 254

For j = 1 To 254

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

Answer = MsgBox ("Лист містить інформацію! При продовженні вона буде знищена! Продовжити? ", vbCritical + vbOKCancel, "Попередження")

End If

If Answer = vbCancel Then

i = 254

j = 254

Exit Sub

End If

If Answer = vbOK Then

i = 254

j = 254

End If

Next j

Next i

'Побудова таблиці введення і перехід до неї

Range ("A1: IV254"). Select

Selection.Clear

InsData

Application.ScreenUpdating = True

Hide

If help.Value = True Then

hlp = True

HelpForm1.Show

Else

hlp = False

OKForm.StartUpPosition = 0

OKForm.Top = 450

OKForm.Left = 580

OKForm.Show

End If

End Sub


Private Sub CommandButton2_Click ()

Hide

STF.Show

End Sub


Private Sub CommandButton3_Click ()

Hide

About.Show

End Sub


Public Sub Start ()

iget.Value = n

End Sub


Private Sub CommandButton4_Click ()

Dim flag As Boolean

Hide

SolForm.StartUpPosition = 0

SolForm.Top = 350

SolForm.Left = 480

SolForm.Show

flag = True

n = 1

If Not ActiveSheet.Cells (1, 1). Value = "№" Then

MsgBox "Лист не відформатовано для розрахунку, скористайтеся вікном введення даних ", vbCritical + vbOKOnly, "Помилка"

Hide

InsForm.Show

Exit Sub

End If

Do While flag

n = n + 1

If ActiveSheet.Cells (n, 1). Value = "" Then

flag = False

End If

If ActiveSheet.Cells (n, 1). Value = n - 1 Then

flag = True


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





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

  • Реферат на тему: The American Flag
  • Реферат на тему: Відповіді на екзаменаційні питання з соціальної роботи (введення в спеціаль ...
  • Реферат на тему: Пристрої введення інформації
  • Реферат на тему: Пристрої введення-виведення інформації
  • Реферат на тему: Пристрій введення аналогової інформації в ПК