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