VBA Платежка
Информация - Экономика
Другие материалы по предмету Экономика
ts(№ПЛ).Range("c" & X) = Счёт
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" & НомерПл) = Счёт
Worksheets(№ПЛ).Range("b" & НомерПл) = Клиент
Worksheets(№ПЛ).Range("e" & НомерПл) = КодБанка
Worksheets(№ПЛ).Range("f" & НомерПл) = УНН
Worksheets(№ПЛ).Range("g" & НомерПл) = Деньги
Worksheets(№ПЛ).Range("h" & НомерПл) = Дата
Worksheets(№ПЛ).Range("I" & НомерПл) = ДатаУслуг
Worksheets(№ПЛ).Range("J" & НомерПл) = ВидОперации
Worksheets(№ПЛ).Range("K" & НомерПл) = НазначПлатежа1
Worksheets(№ПЛ).Range("L" & НомерПл) = НомНазПл
Worksheets(№ПЛ).Range("M" & НомерПл) = МП1
Windows("Платёжка.xls").Activate
Впечать функция печати
End Sub
Private Sub ИзмененияСТ_Click()
If Year(Дата) <> Год Then
БОКС = MsgBox("В дате должен стоять " & Год & " год", , BOX)
Exit Sub
End If
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("Платёжки" & Год).Activate
Worksheets(№ПЛ).Range("A" & НомерПл) = НомерПл
Worksheets(№ПЛ).Range("c" & НомерПл) = Банк
Worksheets(№ПЛ).Range("d" & НомерПл) = Счёт
Worksheets(№ПЛ).Range("b" & НомерПл) = Клиент
Worksheets(№ПЛ).Range("e" & НомерПл) = КодБанка
Worksheets(№ПЛ).Range("f" & НомерПл) = УНН
Worksheets(№ПЛ).Range("g" & НомерПл) = CDbl(Деньги)
Worksheets(№ПЛ).Range("h" & НомерПл) = Дата
Worksheets(№ПЛ).Range("I" & НомерПл) = ДатаУслуг
Worksheets(№ПЛ).Range("J" & НомерПл) = ВидОперации
Worksheets(№ПЛ).Range("K" & НомерПл) = НазначПлатежа1
Worksheets(№ПЛ).Range("L" & НомерПл) = НомНазПл
Worksheets(№ПЛ).Range("M" & НомерПл) = МП1
ActiveWorkbook.Save
БОКС = MsgBox("Изменения в платёжку №: " & НомерПл & " успешно внесёны ", , BOX)
Клиент.SetFocus
End Sub
Private Sub Сегодня_Click()
Дата = Date
End Sub
Private Sub СтарыеПл_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If СтарыеПл = False Then
Label16.Caption = " Нажав на эту кнопку Вы можете посмотреть все Ваши старом платёжки" _
& " а так-же что-то подправить и сохранить эти изменения"
Else
Label16.Caption = " Нажав на эту кнопку Вы перейдёте к форме формирования платёжек"
End If
End Sub
Private Sub Отчёты_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "Кнопка Отчёты для перехода в форму ОТЧЁТЫ. Там Вы сможете узнать куда же делись Ваши деньги !!!"
End Sub
Private Sub Выход_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "Кнопка Выход для выхода из программы. Если решили выйти смело жмите, программа сохранит результаты вашей работы."
End Sub
Private Sub УбитьКлиента_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = " Нажав на эту кнопку Вы можете удалить выбранного Получателя из списка Получателей "
End Sub
Private Sub ПоНомеру_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = " Введите номер платёжки в расположенное рядом с этой кнопкой небольшое поле. Затем нажмите на эту кнопку и вы перейдёте к платёжке с введённым вами номером. "
End Sub
Private Sub Вконец_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = " Нажав на эту кнопку Вы осуществите переход к концу списка платёжек "
End Sub
Private Sub Измениния_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = " Нажав на эту кнопку Вы внесёте изменения в список Получателей "
End Sub
Private Sub ДобавитьПол_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = " Нажав на эту кнопку Вы внесёте в список Получателей Ваших денег данные о новом Получателе "
End Sub
Private Sub ИзмененияСТ_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = " Нажав на эту кнопку Вы можете сохранить изменения в старом платёжном поручении"
End Sub
Private Sub КСтарПл_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = " Нажав на эту кнопку Вы можете распечатать Ваше старое платёжное поручения" _
& " Не забудьте выбрать кол-во копий в выпадающем списке рядом с кнопкой"
End Sub
Private Sub СохранитьНов_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, B