ue = "" Then
ActiveSheet.Cells (i, j). Value = ActiveSheet.Cells (i, j). Value * 24
End If
Next j
Next i
End If
If Sutki.Value = True Then
Exit Sub
End If
If Nedeli.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/7
End If
Next j
Next i
End If
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 = & q uot; "Then
ActiveSheet.Cells (i, j). Value = ActiveSheet.Cells (i, j). Value/365
End If
Next j
Next i
End If
End If
If edin = 4 Then
If Minutes.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 * 10080
End If
Next j
Next i
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 * 168
End If
Next j
Next i
End If
If Sutki.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 * 7
End If
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, "Помилка ...