> Else: flag = False
End If
Loop
n = n - 2
For i = 2 To n
If Not ActiveSheet.Cells (1, i). Value = i - 1 Then
MsgBox "Лист не відформатовано для розрахунку, скористайтеся вікном введення даних ", vbCritical + vbOKOnly, "Помилка"
Hide
InsForm.Show
Exit Sub
End If
Next i
End Sub
Private Sub SpinButton1_SpinUp ()
If iget.Value <= 222 Then
iget.Value = iget.Value + 1
Else
Exit Sub
End If
End Sub
Private Sub SpinButton1_SpinDown ()
If iget.Value> = 4 Then
iget.Value = iget.Value - 1
Else
Exit Sub
End If
End Sub
Private Sub UserForm_Initialize ()
iget.Value = 10
Sheets ("Data"). Select
End Sub
Private Sub UserForm_Terminate ()
Hide
STF.Show
End Sub
Форма OKForm (підтвердження закінчення введення початкових даних)
Private Sub CommandButton1_Click ()
SolForm.StartUpPosition = 0
SolForm.Top = 350
SolForm.Left = 480
Hide
SolForm.Show
End Sub
Private Sub UserForm_Terminate ()
Hide
SolForm.StartUpPosition = 0
SolForm.Top = 350
SolForm.Left = 480
SolForm.Show
End Sub
Форма Perevod 1 (запам'ятовування поточних одиниць часу)
'Запам'ятовування поточних одиниць часу
Private Sub CommandButton1_Click ()
If Minutes.Value = True Then
edin = 1
End If
If Chas.Value = True Then
edin = 2
End If
If Sutki.Value = True Then
edin = 3
End If
If Nedeli.Value = True Then
edin = 4
End If
If Mes.Value = True Then
edin = 5
End If
If Godi.Value = True Then
edin = 6
End If
Hide
Perevod2.Show
End Sub
Private Sub UserForm_Terminate ()
Hide
SolForm.StartUpPosition = 0
SolForm.Top = 350
SolForm.Left = 480
SolForm.Show
End Sub
Форма Perevod 2 (переклад одиниць часу, повернення до розрахункової формі)
'Переклад одиниць часу
Private Sub CommandButton1_Click ()
Hide
SolForm.Show
If ActiveSheet.Cells (1, 1). Value = "№" Then
If edin = 1 Then
If Minutes.Value = True Then
Exit Sub
End If
If Chas.Value = True Then
For i = 2 To n + 1
For j = 2 To n + 1
If Not ActiveSheet.Cells (i, j). Value = "" Then
ActiveSheet.Cells (i, j). Value = ActiveSheet.Cells (i, j). Value/60
End If
Next j
...
