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

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





or i = 1 To 222

For j = 1 To 8

ActiveSheet.Cells (i, j). Value = Sheets ("Rez"). Cells (i, j). Value

Next j

Next i

RTable

End If

End If

Sheets ("Rez"). Select

Range ("A1: IV230"). Select

Selection.Clear

RTable

Sheets ("Data"). Select

Solut

Application.ScreenUpdating = True

Sheets ("Rez"). Select

End Sub


Private Sub CommandButton2_Click ()

Hide

InsForm.Start

InsForm.Show

Sheets ("Data"). Select

End Sub


Private Sub CommandButton6_Click ()

check = True

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

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

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

Hide

InsForm.Show

Sheets ("Data"). Select

Exit Sub

End If

End If

If hlp = True Then

Hide

HelpForm3.Show

End If

If check = False Then

Exit Sub

End If

Hide

Perevod1.Show

End Sub


Private Sub UserForm_Terminate ()

Hide

STF.Show

End Sub


Форма STF (вхід в програму, завершення роботи додатки)

Private Sub CommandButton1_Click ()

Hide

InsForm.Show

Sheets ("Data"). Select

End Sub


Private Sub CommandButton2_Click ()

Answer = MsgBox ("Ви дійсно хочете завершити роботу?", VbYesNo + vbQuestion + vbDefaultButton2, "Завершення роботи")

If Answer = vbYes Then

ThisWorkbook.Saved = True

Application.Quit

End If

End Sub


Private Sub UserForm_Initialize ()

STF.Height = Application.Height

STF.Width = Application.Width


'STF.CommandButton1.Left = STF.Width/4 - 36

'STF.CommandButton1.Top = STF.Top + 15


'STF.CommandButton2.Left = STF.Width/2 - 10

'STF.CommandButton2.Top = STF.Top + 15

End Sub


Private Sub UserForm_Terminate ()

Answer = MsgBox ("Ви дійсно хочете завершити роботу?", VbYesNo + vbQuestion + vbDefaultButton2, "Завершення роботи")

If Answer = vbYes Then

ThisWorkbook.Saved = True

Application.Quit

End If

End Sub


Модуль Result (побудова таблиці результатів)

Sub RTable ()

Range ("A1: H1"). Select

With Selection.Font

. name = "Arial Cyr "

. Size = 14

. Strikethrough = False

. Superscript = False

. Subscript = False

. OutlineFont = False

. Shadow = False

. Underline = xlUnderlineStyleNone

. ColorIndex ...


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





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

  • Реферат на тему: Російський ринок private banking
  • Реферат на тему: Private banking: стан та перспективи розвитку
  • Реферат на тему: Private sector and human-resource development in Georgia
  • Реферат на тему: Visual Basic for Application
  • Реферат на тему: Magnetic nanoparticles - fabrication, analysis and application