For j = 3 To 8
ActiveSheet.Cells (i, j). Value = ActiveSheet.Cells (i, j). Value * 7
Next j
Next i
End If
If Nedeli.Value = True Then
Exit Sub
End If
If Mes.Value = True Then
MsgBox "Точний переклад неможливий. Спробуйте інший варіант ", vbCritical + vbOKOnly, "Помилка введення"
End If
If Godi.Value = True Then
MsgBox "Точний переклад неможливий. Спробуйте інший варіант ", vbCritical + vbOKOnly, "Помилка введення"
End If
End If
If edin = 5 Then
If Minutes.Value = True Then
MsgBox "Точний переклад неможливий. Спробуйте інший варіант ", vbCritical + vbOKOnly, "Помилка введення"
End If
If Chas.Value = True Then
MsgBox "Точний переклад неможливий. Спробуйте інший варіант ", vbCritical + vbOKOnly, "Помилка введення"
End If
If Sutki.Value = True Then
MsgBox "Точний переклад неможливий. Спробуйте інший варіант ", vbCritical + vbOKOnly, "Помилка введення"
End If
If Nedeli.Value = True Then
MsgBox "Точний переклад неможливий. Спробуйте інший варіант ", vbCritical + vbOKOnly, "Помилка введення"
End If
If Mes.Value = True Then
Exit Sub
End If
If Godi.Value = True Then
For i = 2 To scount
For j = 3 To 8
ActiveSheet.Cells (i, j). Value = ActiveSheet.Cells (i, j). Value/12
Next j
Next i
End If
End If
If edin = 6 Then
If Minutes.Value = True Then
For i = 2 To scount
For j = 3 To 8
ActiveSheet.Cells (i, j). Value = ActiveSheet.Cells (i, j). Value * 525600
Next j
Next i
End If
If Chas.Value = True Then
For i = 2 To scount
For j = 3 To 8
ActiveSheet.Cells (i, j). Value = ActiveSheet.Cells (i, j). Value * 8760
Next j
Next i
End If
If Sutki.Value = True Then
For i = 2 To scount
For j = 3 To 8
ActiveSheet.Cells (i, j). Value = ActiveSheet.Cells (i, j). Value * 365
Next j
Next i
End If
If Nedeli.Value = True Then
MsgBox "Точний переклад неможливий. Спробуйте інший варіант ", vbCritical + vbOKOnly," Помилка введення "
End If
If Mes.Value = True Then
For i = 2 To scount
For j = 3 To 8
ActiveSheet.Cells (i, j). Value = ActiveSheet.Cells (i, j). Value * 12
Next j
Next i
End If
If Godi.Value = True Then
Exit Sub
End If
End If
End If
End Sub
Private Sub UserForm_Terminate ()
Hide
SolForm.StartUpPosition = 0
SolForm.Top = 350
SolForm.Left = 480
SolForm.Show
End Sub
Форма SolForm (перевірк...