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

If ComboBox1.ListIndex = -1 Then

Exit Sub

End If

a = ComboBox1.ListIndex

Счётчик2.Visible = False

Создать.Visible = False

Предосмотр.Visible = False

СохранитьНов.Visible = True

If Len(Worksheets(№ПЛ).Range("A1")) = 0 Then

ComboBox1.Visible = False

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

Счёт = Worksheets(№ПЛ).Range("C1")

Банк = Worksheets(№ПЛ).Range("B1")

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

КодБанка = Worksheets(№ПЛ).Range("D1")

УНН = Worksheets(№ПЛ).Range("E1")

ВидОперации = Worksheets(№ПЛ).Range("f1")

НазначПлатежа1 = Worksheets(№ПЛ).Range("g1")

НомНазПл = Worksheets(№ПЛ).Range("H1")

ElseIf a < 0 Then

ComboBox1.ListIndex = a + 1

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

Счёт = (Worksheets(№ПЛ).Range("C" & (ComboBox1.ListIndex + 1)))

Банк = (Worksheets(№ПЛ).Range("B" & (ComboBox1.ListIndex + 1)))

Клиент = (Worksheets(№ПЛ).Range("A" & (ComboBox1.ListIndex + 1)))

КодБанка = (Worksheets(№ПЛ).Range("D" & (ComboBox1.ListIndex + 1)))

УНН = (Worksheets(№ПЛ).Range("E" & (ComboBox1.ListIndex + 1)))

ВидОперации = Worksheets(№ПЛ).Range("f" & (ComboBox1.ListIndex + 1))

НазначПлатежа1 = Worksheets(№ПЛ).Range("g" & (ComboBox1.ListIndex + 1))