|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.12.2011, 00:16 | #1 |
Пользователь
Регистрация: 06.11.2011
Сообщений: 25
|
Не работают процедуры
Основной код
Код HTML:
Private Sub CommandButton2_Click()
Dim zakaz As Integer
Dim time, com, nomz As String
zakaz = Application.CountA(Sheets("Çàêàçû").Range("A:A")) + 3
If TextBox8 < 24 And TextBox9 < 60 Then
time = TextBox8.Text + ":" + TextBox9.Text
Else
MsgBox "Âðåìÿ ââåäåíî íåêîððåêòíî", vbCritical, "Îøèáêà"
TextBox8 = " "
TextBox9 = " "
End If
If ComboBox4 <> "" And ComboBox1 <> "" And TextBox5 <> "" And TextBox8 <> "" And TextBox9 <> "" And TextBox10 <> "" Then
Sheets("çàêàçû").Cells(zakaz, 1) = ComboBox4.Text
Call pr1
Sheets("çàêàçû").Cells(zakaz, 2) = ComboBox1.Value
Sheets("çàêàçû").Cells(zakaz, 3) = ComboBox2.Text
Sheets("çàêàçû").Cells(zakaz, 4) = ComboBox3.Text
Sheets("çàêàçû").Cells(zakaz, 5) = TextBox5.Value
Sheets("çàêàçû").Cells(zakaz, 6) = TextBox6.Value
Sheets("çàêàçû").Cells(zakaz, 7) = TextBox7.Value
Call pr3
Sheets("çàêàçû").Cells(zakaz, 8) = Calendar1.Value
Sheets("çàêàçû").Cells(zakaz, 9) = time
Call pr2
Sheets("çàêàçû").Cells(zakaz, 10) = CheckBox1
Sheets("çàêàçû").Cells(zakaz, 11) = TextBox10.Value
Else
MsgBox ("Íå âñå äàííûå ââåäåíû!"), vbExclamation, "Îøèáêà"
End If
ComboBox1 = " "
ComboBox2 = " "
ComboBox3 = " "
ComboBox4 = " "
TextBox5 = " "
TextBox6 = " "
TextBox7 = " "
TextBox8 = " "
TextBox9 = " "
TextBox10 = " "
If CheckBox1 = True Then
Sheets("çàêàçû").Cells(zakaz, 10) = "Çâîíèòü"
Else
Sheets("çàêàçû").Cells(zakaz, 10) = "Íå çâîíèòü"
End If
MsgBox "Ñîîáùåíèå êëèåíòó: Îáùàÿ ñóììà çàêàçà - " & Sheets("çàêàçû").Cells(zakaz, 11) & " ðóáëåé. Äàòà - " & Sheets("çàêàçû").Cells(zakaz, 8) & ", íà " & time & ".", 64, "Èíôîðìàöèÿ äëÿ êëèåíòà"
End
End Sub
Код HTML:
Sub pr2() Sheets("Îôîðìëåíèå").Cells(6, 2).Value = time 'äàòà âðåìÿ Sheets("Îôîðìëåíèå").Cells(7, 2).Value = Calendar1.Value End Sub Sub pr3() of = Application.CountA(Sheets("Îôîðìëåíèå").Range("A:A")) + 2 'øèôð zak = Application.CountA(Sheets("Ïðàéñ-ëèñò").Range("A:A")) + 1 For i = 2 To zak - 1 If ComboBox1.Value Like Sheets("Ïðàéñ-ëèñò").Cells(i, 1).Value Then Sheets("Îôîðìëåíèå").Cells(of, 1) = Sheets("Ïðàéñ-ëèñò").Cells(i, 1).Text Sheets("Îôîðìëåíèå").Cells(of, 2).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 2).Value Sheets("Îôîðìëåíèå").Cells(of, 3).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 3).Value Sheets("Îôîðìëåíèå").Cells(of, 4).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 4).Value Sheets("Îôîðìëåíèå").Cells(of, 5).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 5).Value Sheets("Îôîðìëåíèå").Cells(of, 6).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 6).Value Sheets("Îôîðìëåíèå").Cells(of, 7).Value = TextBox5.Value Sheets("Îôîðìëåíèå").Cells(of, 8).Value = p End If Next i zak2 = Application.CountA(Sheets("Ïðàéñ-ëèñò").Range("A:A")) + 2 For i = 2 To zak2 - 1 of1 = Application.CountA(Sheets("Îôîðìëåíèå").Range("A:A")) + 1 If ComboBox2.Value Like Sheets("Ïðàéñ-ëèñò").Cells(i, 1).Value Then Sheets("Îôîðìëåíèå").Cells(of1, 1).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 1).Value Sheets("Îôîðìëåíèå").Cells(of1, 2).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 2).Value Sheets("Îôîðìëåíèå").Cells(of1, 3).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 3).Value Sheets("Îôîðìëåíèå").Cells(of1, 4).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 4).Value Sheets("Îôîðìëåíèå").Cells(of1, 5).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 5).Value Sheets("Îôîðìëåíèå").Cells(of1, 6).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 6).Value Sheets("Îôîðìëåíèå").Cells(of1, 7).Value = TextBox5 Sheets("Îôîðìëåíèå").Cells(of1, 8).Value = d End If Next i zak3 = Application.CountA(Sheets("Ïðàéñ-ëèñò").Range("A:A")) + 2 For i = 2 To zak3 - 1 of2 = Application.CountA(Sheets("Îôîðìëåíèå").Range("A:A")) + 1 If ComboBox3.Value Like Sheets("Ïðàéñ-ëèñò").Cells(i, 1).Value Then Sheets("Îôîðìëåíèå").Cells(of2, 1).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 1).Value Sheets("Îôîðìëåíèå").Cells(of2, 2).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 2).Value Sheets("Îôîðìëåíèå").Cells(of2, 3).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 3).Value Sheets("Îôîðìëåíèå").Cells(of2, 4).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 4).Value Sheets("Îôîðìëåíèå").Cells(of2, 5).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 5).Value Sheets("Îôîðìëåíèå").Cells(of2, 6).Value = Sheets("Ïðàéñ-ëèñò").Cells(i, 6).Value Sheets("Îôîðìëåíèå").Cells(of2, 7).Value = TextBox5 Sheets("Îôîðìëåíèå").Cells(of2, 8).Value = t End If Next i End Sub Вопрос такой, после вызова процедур не все команды выполняются. А точнее не заполняется время time, ставиться время с компа. И не правильно заполняется все что прописано в процедуре pr3. Почему то не определяет первую пустую, частенько в шапку все заносит, либо вообще пропускает строк 7 пустых. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Использование имени процедуры в качестве параметра другой процедуры | Alexey355 | Помощь студентам | 1 | 23.04.2011 13:59 |
закончить выполнение процедуры из тела другой процедуры | Alaysor | Общие вопросы Delphi | 14 | 23.01.2011 05:26 |
Управляющие структуры, процедуры Function и процедуры Sub | Natalo4ka | Помощь студентам | 0 | 17.05.2010 22:00 |
не работают процедуры через case of | sproject | Помощь студентам | 3 | 22.03.2010 14:46 |
без юнита процедуры работают а с юнитом пишет "type mismatch" | fawr | Помощь студентам | 1 | 08.11.2009 02:53 |