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

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

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

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

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

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

ComboBox1.Visible = True

ComboBox1.AddItem (Worksheets(№ПЛ).Range("A" & (ComboBox1.ListCount + 1)))

ComboBox1.ListIndex = X - 1

ActiveWorkbook.Save

БОКС = MsgBox("Новый Клиент : " & Клиент & " внесён в список клиентов", , BOX)

Клиент.SetFocus

End Sub

Private Sub КСтарПл_Click()

Windows("Платёжка.xls").Activate

If Len(НомерПл) = 0 Then

БОКС = MsgBox("Вы не выбрали платёжку...", , BOX)

Exit Sub

Else

End If

If ПроверкаПЛ = False Then ' Проверка на правильность

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

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

End If

Вплатёжку 'функция сохраняющая данные в платёжке

ActiveWorkbook.Save

Windows("Платёжки" & Year(Date)).Activate

Worksheets(№ПЛ).Range("A" & НомерПл) = НомерПл

Worksheets(№ПЛ).Range("c" & НомерПл) = Банк

Worksheets(№ПЛ).Range("d" & НомерПл) = Счёт