Реферат: VBA Платежка

Private Sub ДобавитьПол_Click()

Windows("Клиенты" & Year(Date)).Activate

If Проверка = False Then ' Проверка на правильность ' функция находится в конце программы

Exit Sub ' введённой информац

Else ' функция находится в конце программы

End If

X = 1

Do While X < ComboBox1.ListCount + 1

If Клиент = Worksheets(№ПЛ).Range("A" & X) _

And Банк = Worksheets(№ПЛ).Range("b" & X) _

And Счёт = Worksheets(№ПЛ).Range("c" & X) _

And КодБанка = Worksheets(№ПЛ).Range("d" & X) _

And УНН = Worksheets(№ПЛ).Range("e" & X) _

And ВидОперации = Worksheets(№ПЛ).Range("f" & X) _

And НомНазПл = Worksheets(№ПЛ).Range("H" & X) _

Then

БОКС = MsgBox("Извените но : " & Клиент & " уже есть в списке Получателей." _

& Chr(10) & "Попробуйте выбрать Получателя из списка.", , BOX)

Exit Sub

Else

X = X + 1

End If

Loop

X = 1

While Len(Worksheets(№ПЛ).Range("A" & X)) <> 0

X = X + 1

Wend

Worksheets(№ПЛ).Range("A" & X) = Клиент

Worksheets(№ПЛ).Range("b" & X) = Банк