Пример оформления таблиц

Все параметры, по которым производилось сравнение, их веса и оценка приведены в таблице 1

Таблица 1 – Наблюдательный лист, в минутах

Элементы операций	Номера наблюдений
Включаем компьютер	0…3	0…2	0…4	0…5
Загружаем программу	0…3,07	0…2,06	0…4,03	0…3,05
Распечатываем	0…6	0…5	0…6	0…5

Продолжение таблицы 1

Включаем компьютер	0…3	0…2	0…4	0…5
Загружаем программу	0…3,07	0…2,06	0…4,03	0…3,05
Распечатываем	0…6	0…5	0…6	0…5

Приложение Е

(рекомендуемое)

Код модуля Private Sub

Private Sub CommandButton1_Click()

UserForm1.Hide

UserForm2.Show

End Sub

Private Sub CommandButton2_Click()

UserForm1.Hide

Module1.ShowOnly ("План производства")

Workbooks.Application.Visible = True

Module1.DeleteAllPanels

End Sub

Private Sub CommandButton3_Click()

UserForm4.Show

End Sub

Private Sub CommandButton4_Click()

UserForm1.Hide

UserForm3.Show

End Sub

Private Sub CommandButton5_Click()

If MsgBox("Вы действительно хотите выйти из программы?", vbYesNo,

Подтверждение...") = vbYes Then

UserForm1.Hide

Workbooks.Application.ThisWorkbook.Save

Workbooks.Application.Quit

End If

End Sub

Private Sub CommandButton6_Click()

UserForm5.Show

End Sub

Private Sub CommandButton1_Click()

UserForm2.Hide

Module1.ShowOnly ("НР(ТР20-80)изд280")

Workbooks.Application.Visible = True

Module1.DeleteAllPanels

End Sub

Private Sub CommandButton2_Click()

UserForm2.Hide

Module1.ShowOnly ("НР(ТР100-600)изд280")

Workbooks.Application.Visible = True

Module1.DeleteAllPanels

End Sub

Private Sub CommandButton3_Click()

UserForm2.Hide

Module1.ShowOnly ("НР(ТР750-1000)изд280")

Код модуля …