, 1). MergeCells = False Then
. Cells (Str1, 2) =. Cells (Str1, 2) - CInt (frmNewZakaz.TextBox8.Text)
. Cells (Str1, 4) =. Cells (Str1, 4) - CInt (frmNewZakaz.TextBox9.Text)
Exit For
End If
Next Str1
'. Protect Password: = "list", DrawingObjects: = True, Contents: = True, Scenarios: = True, _
AllowFormattingCells: = True, AllowFormattingColumns: = True, AllowFormattingRows: = True
End With
'ActiveSheet.Protect Password: = "list", DrawingObjects: = True, Contents: = True, Scenarios: = True, _
AllowFormattingCells: = True, AllowFormattingColumns: = True, AllowFormattingRows: = True
'Workbooks ("Firms"). Protect Password: = "Firms1" SubEditZa ()
Workbooks ("Main.xls"). Worksheets ("Замовлення"). Activate
If Cells (4, 1) = "" Then
MsgBox "Нема чого редагувати.", vbCritical, "Помилка!"
Exit Sub
End If
Kol_Prstr2 = 3
Kol_Prstr = 4
Do
flag = 0
Workbooks ("Main"). Worksheets ("Замовлення"). Activate
Рядок = InputBox ("Введіть номер замовлення, який хочете змінити:", _
"Введення номера замовлення")
If Рядок = "" Then Exit Sub
If Рядок <0 Or Рядок = 0 Then
MsgBox "Немає такого номера замовлення в базі.", vbCritical, "Помилка!"
flag = 1
End If
If IsNumeric (Рядок) = False Then
MsgBox "Введіть номер замовлення у форматі числа", vbCritical, "Помилка!"
flag = 1
End If
Loop While flag = 1
i = 3
flaj = 0
Do
i = i + 1
If Cells (i, 1). Value = CInt (Рядок) Then
flaj = 1
Exit Do
End If
Loop While Cells (i, 1). Value <> ""
If flaj = 0 Then
MsgBox "У базі немає такого номера замовлення", vbCritical, "Помилка!"
Exit Sub
End If
ex = 1
Workbooks ("Firms"). Unprotect Password: = "Firms1"
ActiveSheet.Unprotect Password: = "list"
Range (Cells (i, 1), Cells (i, 18)). Select
temp = i
With frmNewZakaz
. Caption = "Редагування замовлення"
. txt1.Text = Cells (temp, 2)
. txt2.Text = Cells (temp, 3)
. txt3.Text = Cells (temp, 4)
. DTPicker1.Value = Cells (temp, 6)
. txt5.Text = Cells (temp, 7)
. TextBox2.Text = Cells (temp, 8)
If Cells (temp, 5) = "Чоловік" Then. obm.Value = True
If Cells (temp, 5) = "Жен" Then. obj.Value = True
В
If Cells (temp, 14). Value = "Оплачено" Then. chb1.Value = True
If Cells (temp, 15). Value = "Здано" Then. chb2.Value = True
If Cells (temp, 12). Value = "Так" Then
. chb3.Value = True
. txt6.Text = Left (Cells (temp, 13), 4)
. txt7.Text = Right (Cells (temp, 13), 6)
End If
. ComboBox2.Value = Cells (temp, 9) 'фірма
. ComboBox3.Valu...
