TextBox4.Text)
Cells (temp2 + 1, 8). Value = CStr (. TextBox8.Text)
Cells (temp2 + 1, 10). Value = CStr (. TextBox9.Text)
В
If. OptionButton1 = True Then
Cells (temp2 + 1, 7). Value = CInt (7)
End If
If. OptionButton2 = True Then
Cells (temp2 + 1, 7). Value = CInt (14)
End If
If. OptionButton3 = True Then
Cells (temp2 + 1, 7). Value = CInt (21)
End If
If. OptionButton4 = True Then
Cells (temp2 + 1, 9). Value = CInt (1)
End If
If. OptionButton5 = True Then
Cells (temp2 + 1, 9). Value = CInt (5)
End If
If. OptionButton6 = True Then
Cells (temp2 + 1, 9). Value = CInt (2)
End If
If. OptionButton7 = True Then
Cells (temp2 + 1, 9). Value = CInt (3)
End If
If. OptionButton8 = True Then
Cells (temp2 + 1, 9). Value = CInt (4)
End If
End With
If ex = 0 Then Exit Sub
With frmPInfo
. TextBox5.Value = ""
. TextBox6.Text = ""
. TextBox7.Text = ""
. TextBox3.Text = ""
. TextBox4.Text = ""
. TextBox8.Text = ""
. TextBox9.Text = ""
. OptionButton1 = False
. OptionButton2 = False
. OptionButton3 = False
. OptionButton4 = False
. OptionButton5 = False
. OptionButton6 = False
. OptionButton7 = False
. OptionButton8 = False
End WithSubSub UserForm_Activate ()
Workbooks ("Firms"). Unprotect Password: = "Firms1"
ActiveSheet.Unprotect Password: = "list"
TextBox1.Value = ""
TextBox2.Value = ""
ComboBox1.Clear
TextBox3.Value = ""
CommandButton3.Enabled = False
CommandButton4.Enabled = False
Label1.Enabled = False
Label2.Enabled = False
TextBox1.Enabled = False
TextBox2.Enabled = False
Label3.Enabled = False
Label4.Enabled = False
ComboBox1.Enabled = False
TextBox3.Enabled = False
CommandButton1.Caption = "Додати путівку" & Chr (13) & "(нова країна і місто)"
CommandButton2.Caption = "Додати путівку (нове місто)"
CommandButton1.Enabled = True
CommandButton2.Enabled = TrueSubSub UserForm_Initialize ()
Workbooks ("Firms"). Unprotect Password: = "Firms1"
ActiveSheet.Unprotect Password: = "list" Sub
// Workbook (Firms.xls) Форма frmPInfo
Option Compare TextSub CommandButton1_Click ()
'If TextBox3.Text = "" Or TextBox4.Text = "" Or _
'TextBox5.Text = "" Or TextBox6.Text = "" Or _
'TextBox7.Text = "" Then
'MsgBox "Введіть розцінки і кількості місць!", vbOKOnly, "Помилка!"
'Exit Sub
'End If
'If OptionButton1.Value = False And OptionButton2.Value = False And _
'OptionButton3.Value = Fa...
