VBA Платежка
| Категория реферата: Рефераты по экономико-математическому моделированию
| Теги реферата: реферат машины, рефераты бесплатно скачать
| Добавил(а) на сайт: Konrad.
Предыдущая страница реферата | 6 7 8 9 10 11 12 13 14 15 16 | Следующая страница реферата
And НомНазПл = Worksheets(№ПЛ).Range("H" & X) _
And НазначПлатежа1 = Worksheets(№ПЛ).Range("g" & ComboBox1.ListIndex +
1) _
Then
БОКС = MsgBox("Извените но : " & Клиент & " уже есть в списке
Получателей." _
& Chr(10) & "Попробуйте выбрать Получателя из списка.", , BOX)
Exit Sub
Else
X = X + 1
End If
Loop
Worksheets(№ПЛ).Range("A" & (ComboBox1.ListIndex + 1)) = Клиент
Worksheets(№ПЛ).Range("b" & (ComboBox1.ListIndex + 1)) = Банк
Worksheets(№ПЛ).Range("c" & (ComboBox1.ListIndex + 1)) = Счёт
Worksheets(№ПЛ).Range("d" & (ComboBox1.ListIndex + 1)) = КодБанка
Worksheets(№ПЛ).Range("e" & (ComboBox1.ListIndex + 1)) = УНН
Worksheets(№ПЛ).Range("f" & (ComboBox1.ListIndex + 1)) = ВидОперации
Worksheets(№ПЛ).Range("g" & (ComboBox1.ListIndex + 1)) = НазначПлатежа1
Worksheets(№ПЛ).Range("H" & (ComboBox1.ListIndex + 1)) = НомНазПл
ActiveWorkbook.Save
БОКС = MsgBox("Изменения в данные о Клиенте : " & Клиент & " успешно внесёны в список клиентов", , BOX)
Клиент.SetFocus
End Sub
Private Sub ДобавитьПол_Click()
Windows("Клиенты" & Year(Date)).Activate
If Проверка = False Then ' Проверка на правильность
' функция находится в конце программы
Exit Sub ' введённой информац
Else ' функция находится в конце программы
End If
Рекомендуем скачать другие рефераты по теме: доклад по биологии, шпоры.
Категории:
Предыдущая страница реферата | 6 7 8 9 10 11 12 13 14 15 16 | Следующая страница реферата
Главная