Курсовая работа: Нахождение критического пути табличным методом

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