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

Else

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))

НомНазПл = Worksheets(№ПЛ).Range("H" & (ComboBox1.ListIndex + 1))

End If

End Sub

Private Sub Выход_Click()

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

ActiveWorkbook.Save

ActiveWindow.Close

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

ActiveWorkbook.Save

ActiveWindow.Close

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

ActiveWorkbook.Save

ActiveWindow.Close

Application.Quit

'ActiveWorkbook.RunAutoMacros Which:=xlAutoClose

End Sub

Private Sub UserForm_Activate()

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

Платящий = "Текущий Плательщик : " & Worksheets("Лист1").Range("E7") & _

" УНН : " & Worksheets("Лист1").Range("C7") & _