End With
With Selection.Borders (xlEdgeRight)
. LineStyle = xlContinuous
. Weight = xlMedium
. ColorIndex = xlAutomatic
End With
With Selection.Borders (xlInsideVertical)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
Cells (ie - 2, 1). Value = TextBox1.Text
Cells (ie - 1, 1). Value = TextBox2.Text
Me.Hide
frmPInfo.Label1.Caption = ActiveSheet.Name
frmPInfo.TextBox1.Text = Cells (ie - 2, 1). Value
frmPInfo.TextBox2.Text = Cells (ie - 1, 1). Value
ex = 1
frmPInfo.Show
With frmPInfo
If. TextBox5.Value = "" Then. TextBox5.Value = 0
If. TextBox6.Value = "" Then. TextBox6.Value = 0
If. TextBox7.Value = "" Then. TextBox7.Value = 0
If. TextBox3.Value = "" Then. TextBox3.Value = 0
If. TextBox4.Value = "" Then. TextBox4.Value = 0
Cells (ie - 1, 3). Value = CDbl (. TextBox5.Text)
Cells (ie - 1, 5). Value = CDbl (. TextBox6.Text)
Cells (ie - 1, 6). Value = CDbl (. TextBox7.Text)
Cells (ie - 1, 2). Value = CInt (. TextBox3.Text)
Cells (ie - 1, 4). Value = CInt (. TextBox4.Text)
Cells (ie - 1, 8). Value = CStr (. TextBox8.Text)
Cells (ie - 1, 10). Value = CStr (. TextBox9.Text)
If frmPInfo.OptionButton1 = True Then
Cells (ie - 1, 7). Value = CInt (7)
End If
If frmPInfo.OptionButton2 = True Then
Cells (ie - 1, 7). Value = CInt (14)
End If
If frmPInfo.OptionButton3 = True Then
Cells (ie - 1, 7). Value = CInt (21)
End If
If frmPInfo.OptionButton4 = True Then
Cells (ie - 1, 9). Value = CInt (1)
End If
If frmPInfo.OptionButton5 = True Then
Cells (ie - 1, 9). Value = CInt (5)
End If
If frmPInfo.OptionButton6 = True Then
Cells (ie - 1, 9). Value = CInt (2)
End If
If frmPInfo.OptionButton7 = True Then
Cells (ie - 1, 9). Value = CInt (3)
End If
If frmPInfo.OptionButton8 = True Then
Cells (ie - 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 CommandButton4_Click () 'нове місто
temp = 0
temp2 = 0
num = ActiveSheet.Index
ie = Range ("End" & num). Row
flag = 0
For ib ...
