іт, перевірка формату листа, перевірка правильності введення, виклик довідки, вихід з програми, перехід до розрахункової формі)
'Перевірка правильності введення
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 ​​p>
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