If Mes.Value = True Then
MsgBox "Точный перевод невозможен. Попробуйте другой вариант", vbCritical + vbOKOnly, "Ошибка ввода"
End If
If Godi.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 / 365
Next j
Next i
If edin = 4 Then
If Minutes.Value = True Then
ActiveSheet.Cells(i, j).Value = ActiveSheet.Cells(i, j).Value * 10080
If Chas.Value = True Then
ActiveSheet.Cells(i, j).Value = ActiveSheet.Cells(i, j).Value * 168
If Sutki.Value = True Then
ActiveSheet.Cells(i, j).Value = ActiveSheet.Cells(i, j).Value * 7
If Nedeli.Value = True Then
Exit Sub
If edin = 5 Then
ActiveSheet.Cells(i, j).Value = ActiveSheet.Cells(i, j).Value / 12
If edin = 6 Then
ActiveSheet.Cells(i, j).Value = ActiveSheet.Cells(i, j).Value * 525600
ActiveSheet.Cells(i, j).Value = ActiveSheet.Cells(i, j).Value * 8760
ActiveSheet.Cells(i, j).Value = ActiveSheet.Cells(i, j).Value * 365
ActiveSheet.Cells(i, j).Value = ActiveSheet.Cells(i, j).Value * 12
If ActiveSheet.Cells(1, 1).Value = "Начальный этап" Then
If edin = 1 Then
For i = 2 To scount
For j = 3 To 8
ActiveSheet.Cells(i, j).Value = ActiveSheet.Cells(i, j).Value / 60
ActiveSheet.Cells(i, j).Value = ActiveSheet.Cells(i, j).Value / 1440
ActiveSheet.Cells(i, j).Value = ActiveSheet.Cells(i, j).Value / 10080
ActiveSheet.Cells(i, j).Value = ActiveSheet.Cells(i, j).Value / 525600
If edin = 2 Then
ActiveSheet.Cells(i, j).Value = ActiveSheet.Cells(i, j).Value * 60
ActiveSheet.Cells(i, j).Value = ActiveSheet.Cells(i, j).Value / 24
ActiveSheet.Cells(i, j).Value = ActiveSheet.Cells(i, j).Value / 168
ActiveSheet.Cells(i, j).Value = ActiveSheet.Cells(i, j).Value / 8760
If edin = 3 Then
ActiveSheet.Cells(i, j).Value = ActiveSheet.Cells(i, j).Value * 1440
ActiveSheet.Cells(i, j).Value = ActiveSheet.Cells(i, j).Value * 24
ActiveSheet.Cells(i, j).Value = ActiveSheet.Cells(i, j).Value / 7
End Sub
Private Sub UserForm_Terminate()
Hide
SolForm.StartUpPosition = 0
SolForm.Top = 350
SolForm.Left = 480
SolForm.Show
Форма SolForm (проверка правильности заполнения таблицы, проверка формата листа, проверка наличия данных в листе результатов, вызов модуля формирования и заполнения таблицы результатов)
Private Sub CommandButton1_Click()
Dim Ans As String
Dim fl As Boolean
Dim cou As Integer
cou = 0
check = True
Страницы: 1, 2, 3, 4, 5