, 7). Value = CStr (txt5.Text)
Cells (i, 8). Value = CStr (TextBox2.Text)
If obm.Value = True Then Cells (i, 5). Value = "Чоловік"
If obj.Value = True Then Cells (i, 5). Value = "Жен"
If chb1.Value = True Then
Cells (i, 14). Value = "Оплачено"
Else
Cells (i, 14). Value = "Не оплачено"
End If
If chb2.Value = True Then
Cells (i, 15). Value = "Здано"
Else
Cells (i, 15). Value = "Не здано"
End If
If chb3.Value = True Then
Cells (i, 12). Value = "Так"
Else
Cells (i, 12 ). Value = "Ні"
End If
Cells (i, 13). Value = CStr (txt6.Text & "," & txt7.Text)
Cells (i, 10). Value = CStr (ComboBox3.Value)
Cells (i, 9). Value = CStr (ComboBox2.Value)
Cells (i, 11). Value = CStr (ComboBox1.Value)
var1 = TextBox8.Text * TextBox5.Text
var2 = TextBox9.Text * TextBox6.Text
var3 = TextBox7.Text * (CInt (TextBox8.Text) + CInt (TextBox9.Text))
Cells (i, 18). Value = var1 + var2 + var3
колвз = TextBox8.Text
колдт = TextBox9.Text
Cells (i, 16). Value = TextBox8.Text
Cells (i, 17). Value = TextBox9.Text
Me.HideSubSub CommandButton3_Click ()
If TextBox3.Text = "0" Or TextBox4.Text = "0" Then
MsgBox "Всі місця на дані путівки розпродані.", vbCritical, "Помилка!"
Exit Sub
End If
If TextBox8.Value = "" And TextBox9.Value = "" Then
MsgBox "Не введене кількість місць.", vbCritical, "Помилка!"
Exit Sub
End If
If TextBox8.Text = "" And TextBox9.Text = "" Then
MsgBox "Введіть кількості місць, відмінних від нуля", vbCritical, "Помилка!"
Exit Sub
End If
If TextBox8.Value = "" Then TextBox8.Value = 0
If TextBox9.Value = "" Then TextBox9.Value = 0
В
If CInt (TextBox8.Value) <0 Or CInt (TextBox9.Value) <0 Then
MsgBox "Помилка при введенні кількості місць.", vbCritical, "Помилка!"
Exit Sub
End If
If TextBox3.Value = "" And TextBox4.Value = "" Then
MsgBox "Виберіть необхідні дані (фірма, країна, місто) для підрахунку", vbCritical, "Помилка!"
Exit Sub
End If
If CInt (TextBox8.Value)> CInt (TextBox3.Value) Or CInt (TextBox9.Value)> CInt (TextBox4.Value) Then
MsgBox "Введене кількість місць перевищує вихідні.", vbCritical, "Помилка!"
Exit Sub
End If
var1 = CInt (TextBox8.Value) * CDbl (TextBox5.Value)
var2 = CInt (TextBox9.Value) * CDbl (TextBox6.Value)
var3 = CDbl (TextBox7.Value) * (CInt (TextBox8.Value) + CInt (TextBox9.Value))
TextBox11.Value = var1 + var2 + var3SubSub CommandButton4_Click ()
If txt1.Value = "" Or txt2.Value = "" Or txt3.Value = "" Or txt5.Value = "" Or _
TextBox2.Value = "" Then
MsgBox "Ви ввели неповну ін...
