Смекни!
smekni.com

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, 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 UserForm_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 ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = "Что бы вставить данные Получателя платежа востользуйтесь этим выпадающем списком. Если данные отсутствуют, значит придётся добавить нового Получателя."

End Sub

Private Sub Label14_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 = "Обязательное поле. В это поле вносят дату формируемой платёжки. Допускаются такие форматы дат. Пример : 01,01,200 или 01/01/2000 или 01.01/00"

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 НазначПлатежа1_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 = "НЕ обязательное поле. В это поле вносят дату получения товара или оказания услуг. Пример: Предоплата или 28 марта 2000г."

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 СохранитьНов_Click()

If Year(Дата) <> Year(Date) Then

БОКС = MsgBox("Извините но в строке 'Дата' ошибка. Укажите текущий Год", , BOX)

Дата.SetFocus

Exit Sub

End If

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

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

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

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

End If

If ComboBox1.ListIndex = -1 Then

БОКС = MsgBox("Извините но Вы забыли внести Получателя : " & Клиент & " в список Получателей ", , BOX)

Exit Sub

Else

End If

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

If Клиент <> ComboBox1 _

Or Счёт <> Worksheets(№ПЛ).Range("c" & ComboBox1.ListIndex + 1) _

Or Банк <> Worksheets(№ПЛ).Range("b" & ComboBox1.ListIndex + 1) _

Or КодБанка <> Worksheets(№ПЛ).Range("d" & ComboBox1.ListIndex + 1) _

Or УНН <> Worksheets(№ПЛ).Range("e" & ComboBox1.ListIndex + 1) _

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

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

Then

БОКС = MsgBox("Извините но Вы забыли внести Получателя : " & Клиент & " в список Получателей ", , BOX)

Exit Sub

Else

End If

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

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

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

ActiveWorkbook.Save

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

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

Создать.Visible = True

X = 1

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

X = X + 1

Wend

Worksheets(№ПЛ).Select

Range("A" & X).Select

Selection.NumberFormat = "#,##0"

Worksheets(№ПЛ).Range("A" & X) = X

Range("g" & X).Select

Selection.NumberFormat = "#,##0"

Worksheets(№ПЛ).Range("g" & X) = CDbl(Деньги)

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

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

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

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

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

Worksheets(№ПЛ).Range("h" & X) = Дата

Worksheets(№ПЛ).Range("I" & X) = ДатаУслуг

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

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

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

Worksheets(№ПЛ).Range("M" & X) = МП1

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

Worksheets("Лист1").Range("O2") = X

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

Worksheets(№ПЛ).Range("L" & ComboBox1.ListIndex + 1).NumberFormat = "@"

Worksheets(№ПЛ).Range("L" & ComboBox1.ListIndex + 1) = _

Worksheets(№ПЛ).Range("L" & ComboBox1.ListIndex + 1) + "" & X & "."

ActiveWorkbook.Save

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

ActiveWorkbook.Save

End Sub

Private Sub СтарыеПл_Click()

If СтарыеПл.Value = True Then

ComboBox1.Visible = False

НомерПл.Visible = True

Label1.Visible = False

Label14.Visible = True

Счётчик.Visible = True

Счётчик.SetFocus

КСтарПл.Visible = True

Создать.Visible = False

Измениния.Visible = False

ДобавитьПол.Visible = False

УбитьКлиента.Visible = False

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

ЗаПрошлыйГод.Visible = True

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

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

ИзмененияСТ.Visible = True

Вконец.Visible = True

номерСТПЛ.Visible = True

ПоНомеру.Visible = True

СтарыеПл.Caption = "Вернуться к созданию платёжек"

Счётчик = 0

Счёт = ""

Банк = ""

Клиент = ""

КодБанка = ""

УНН = ""

ВидОперации = ""

НазначПлатежа1 = ""

НомНазПл = ""

НомерПл = ""