VBA Платіжка

року міністерство освіти Республіки Беларусь.

МОГИЛЬОВСЬКИЙ МАШИНОБУДІВНИЙ ИНСТИТУТ.

Інститут підвищення кваліфікації, і перепідготовки кадров.

Кафедра вдосконалення професійних знаний.

КУРСОВОЙ ПРОЕКТ.

По дисципліни: «Прикладне програмное забезпечення «.

ТЕМА ПРОЕКТУ: Розробка системи «Створення Платёжных Поручений».

Слухач грн. ИНФ-2.

Гусєв А.С.

Керівник проекту: Зав. каф. АСУ,. С. К. Крутолевич.

Могилів, 2000 г.

| | |Стор. | |1 |РОЗРОБКА ВИМОГ До РОБОТІ | | |1.1 |Аналіз предметної області |3 | |1.2.|Постановка завдання |3−4 | |2. |ПРОЕКТУВАННЯ ПРОГРАМНОГО ПРОДУКТУ | | |2.1.|Разработка інформаційної моделі системи |4−5 | |2.2 |Розробка математичну модель |5−6 | |2.3 |Визначення вимог до технічних засобів |7 | |3. |РОЗРОБКА ПРОГРАМНОГО ЗАБЕЗПЕЧЕННЯ. | | |3.1 |Розробка структури програми |7 | |3.2 |Визначення форми уявлення вхідних і вихідних |8−9 | | |даних. | | |3.3 |Алгоритм виконання завдання. |9−10 | |3.4.|Разработка і тестування програмного модуля. |11 | | |Укладання. |11 | | |Список використаних літературних джерел. |12 | | |ПЕРЕЛІК ГРАФІЧНОГО МАТЕРІАЛУ НАИМЕНОВА- | | |1. |Алгоритми основних програмних модулів | | |2. |Структура програмного забезпечення | | |3. |Вхідні і вихідні форми | |.

1.РАЗРАБОТКА ВИМОГ До РОБОТІ 1.1Анализ предметної области.

Печать платёжных доручень осуществяет практично решта організацій. Тому автоматизація це завдання має значення. Автоматизація цієї проблеммы зводить ці роботи до нескладним операціям на компьютере.

1.2.Постановка задачи.

Аби вирішити це завдання необхідно створити додаток з допомогою якого можна було б зберігати дані «Платників». Це буде база даних содержащая:

1. Номер «Плательщика».

2. Найменування «Плательщика».

3. Найменування Банку «Плательщика».

4. Р/Р «Плательщика».

5. УНН «Плательщика».

6. Код Банку «Плательщика».

Кроме цього необхідно створити базі даних у якій зберігати дані «Одержувачів» платежів. Це буде база даних содержащая:

1. Номер «Получателей».

2. Найменування «Получателей».

3. Найменування Банку «Получателей».

4. Р/Р «Получателей».

5. УНН «Получателей».

6. Код Банку «Получателей».

7. Вигляд операции.

8. Призначення платежа.

9. Код призначення платежа.

Крім цього необхідно створити «Базу даних» у якій зберігати дані Вироблених платежів. Це буде «База даних» содержащая:

1. Номер «Платіжного поручения».

2. Дата платежа.

3. Код Банку «Получателей».

4. УНН «Получателей».

5. Найменування «Получателей».

6. Найменування Банку «Получателей».

7. Р/Р «Получателей».

8. Дата отримання товару, надання услуг.

9. Сума платежа.

10. Вигляд операции.

11. Код призначення платежа.

12. Параметр «Місце печати».

13. Призначення платежа.

З розрахунку беруть участь «Сума платежу». І тому необхідно забезпечити введення числової інформації з цьому пункту.

Для прискорення наступної роботи користувачеві потрібно буде залолнять відповідні поля «Бази даних» «Одержувачів платежів». І зберігати ці нанные. Це значно прискорить последуюющее створення платёжных доручень. Необхідне відповідне передбачити программые функції контролюючі індивідуальність кожної записи.

Для наступного швидкого формування отчётов доцільно звязать поля «Бази даних» «Одержувачів» і ниви «Бази даних» «Платежів» з допомогою індексів. Дуже зручним елементом для користувача було б організація навігації через базу «Платежів», і навіть через базу «Одержувачів» і базі «Платників». Крім цього видалення і журналістам зміну інформації дозволило б усувати з розрахунку ті записи які потрібні .

Для організації доступу до баз їх коригування, доповнення, видалення тощо. потрібно організувати кілька діалогів з зручним і швидким для користувача доступом до за потрібне йому записям.

Для об'єднання всього вище переліченого необхідна система.

що дозволить користувачеві переходячи від однієї елемента меню до іншому виконувати ті чи інші програмные дії. З допомогою її користувач може вибирати і викликати діалог, здійснювати навігацію по базі даних (тобто. переміщатися між записами), видаляти або востанавливать запис, запускати процедуру створення отчётов та виведення на печатку підсумків и.т.д.

2. ПРОЕКТУВАННЯ ПРОГРАМНОГО ПРОДУКТА.

2.1. Розробка інформаційної модели Информационные системи орієнтовані збереження і модифікацію постійно існуючої інформації. У нашому випадку треба створити такої системи що задовольнила наступним свойствам:

1. Підтримувала облік Платників 2. Підтримувала кожному за окремого Платника його власні бази данных.

(Список Получателе платежів, Список Вироблених платежів) 3. Підтримувала процедуру додавання до бази нових Получателе платежів і модифікацію вже наявні записи, а як і підтримувала видалення з даних існуючих записів. 4. Підтримувала перехід на сдедующий рік (початок нумерації платёжных доручень із першого) 5. Можливість формування отчётов по заданим тимчасовим рараметрам з наступним висновком на печать.

Малюнок 1.

2.2 Розробка математичну модель .

В базі даних у якій міститься виготовлені платежі, значення суми платежу і ті дані що у звіті за расчитываемый поставлене тимчасової період. Т.к. формування звіту може бути як за всі одержувачам і по окремому одержувачу платежу то математичні формули повинні выглядель наступним образом.

Формула за всі одержувачам платежу: Сума за обраний тимчасової період = сумі всіх вироблених платежів за обраний период.

Формула по обраному одержувачу платежу: Сума за обраний тимчасової період = сумі всіх вироблених платежів за обраний период.

2.3 Визначення вимог до технічних засобів. Мінімальні вимоги до ефективнішої роботи розробленої ІВ являются:

Pentium 233 МГц.

32 МБ памяти.

Жорсткий диск принаймні 200 Мб.

Відеокарта 0,5 Мб.

Монітор VGA підтримуючий режими роботи 800×600.

Для комфортною і швидкої роботи необхідно использовать:

Pentium II 366 МГц /Celeron і выше.

64 МБ памяти.

Жорсткий диск 2.5 Держбезпеки і выше.

Відеокарта 1−2-4 МБ.

Монітор SVGA підтримуючий режими роботи 800×600 и.

1024×768.

Для друку можна використовувати будь-які матричні, струменеві, чи лазерні принтеры.

3. РОЗРОБКА ПРОГРАМНОГО ОБЕСПЕЧЕНИЯ.

1. Розробка структури программы.

Програма є файл надбудови Excel97 має вмонтований код Visual Basic for Application. Також є четырифайла Excel97 які мають собой:

1. Файл бази даних Платників. і двох аркушів. Де один лист містить інформацію роки протягом яких использовалать програма. А інший інформацію про Одержувачах платежей.

2. Файл бази даних Одержувачів платежів. Спочатку містить один лист. Додавання і удатение листів на книзі відбувається динамічно залежно від кол-ва Платників. Інакше кажучи на каждого.

Платника відводиться один лист що є базою даних Одержувачів даного Плательщика.

3. Файл бази даних Платіжних Доручень. Спочатку містить два аркуша. Додавання і удатение листів на книзі відбувається динамічно залежно від кол-ва Платників. Інакше кажучи на каждого.

Платника відводиться один лист що є базою даних Платежных.

Доручень даного Платника. Інший лист є чистим бланком отчёта.

4. Файл платіжного доручення. Власне цей файл містить один лист що є бланком платіжного поручения.

Вмонтований код VBA містить процедури і функції підтримують елементи управління ,і навіть процедури вормирования звіту, процедури додавання і удатения листів на книгах, добавтения і уданления файловучаствующич в звітах, процедури контролю введеної користувачем інформації, і т.д.

Ця програма є цілком відкритої задля її подальшого зміни і модифікації. Інформація набрана у цій системі можна використовувати за іншими додатках використовують средства.

Microsoft Office.

3.2.Определение форми уявлення вхідних і вихідних данных.

Головна (перша форма) состоит:

1. Кнопка переходу до форми ОТЧЕТЫ.

2. Кнопка переходу до форми ПЛАТЕЛЬЩИКИ.

3. Поле ІНТЕРАКТИВНА СПРАВКА.

4. Выпадающего списку ВИБІР ПОЛУЧАТЕЛЯ.

5. Поле НАЙМЕНУВАННЯ ПОЛУЧАТЕЛЯ.

6. Поле ДАТА.

7. Поле НАЙМЕНУВАННЯ БАНКУ ПОЛУЧАТЕЛЯ.

8. Групи кнопок до роботи з датою СЬОГОДНІ, ПЛЮС ДЕНЬ, МІНУС ДЕНЬ.

9. Поле Р/Р ПОЛУЧАТЕЛЯ.

10. Поле ВИД ОПЕРАЦИИ.

11. Поле КОД БАНКУ ПОЛУЧАТЕЛЯ.

12. Поле ДАТА ОДЕРЖАННЯ ТОВАРУ, НАДАННЯ УСЛУГ.

13. Поле КОД ПРИЗНАЧЕННЯ ПЛАТЕЖА.

14. Поле УНН ПОЛУЧАТЕЛЯ.

15. Поле ВВЕДІТЬ СУММУ.

16. Групи кнопок-переключателей М/П-место друку, Б/П-без печати,.

ПУСТО-нет ніяких написів в пл. дорученні дома для печати.

17. Поле ВВЕДІТЬ ПРИЗНАЧЕННЯ ПЛАТЕЖА.

18. Радиокнопка до переходу форми в режим перегляду бази даних старих пл. доручень ПОСМОТРЕТЬ СТАРІ ПЛАТЁЖКИ.

19. Кнопка ЗБЕРЕГТИ НОВЕ ПОРУЧЕНИЕ.

20. Кнопко ДОДАТИ ПОЛУЧАТЕЛЯ.

21. Кнопко ВНЕСТИ ЗМІНИ ДО ДАНІ Про ПОЛУЧАТЕЛЕ.

22. Кнопко ВІДДАЛЕННЯ ПОЛУЧАТЕЛЕ.

23. Кнопко ВЫХОД.

24. Прихованій кнопки ПЕЧАТКУ НОВОГО ПЛАТЁЖНОЕ ПОРУЧЕНИЯ.

25. Прихованій кнопки ПРЕДОСМОТР.

26. Прихованій выпадающий список для вибору кол-ва копій для печати.

Рис 3.

З допомогою радиокнопки вид інформаційної частини може менятся.

Для внесення нових даних про одержувачах платежів та формування нових пл. доручень вона має вигляд наведений раніше, для навігації і редагування старих пл. доручень вона бере наступний вид.

1. Кнопко переходу до форми ОТЧЕТЫ.

2. Кнопко переходу до форми ПЛАТЕЛЬЩИКИ.

3. Поле НОМЕР ПЛ. ПОРУЧЕНИЯ.

4. Поле ІНТЕРАКТИВНА СПРАВКА.

5. Поле НАЙМЕНУВАННЯ ПОЛУЧАТЕЛЯ.

6. Поле ДАТА.

7. Поле НАЙМЕНУВАННЯ БАНКУ ПОЛУЧАТЕЛЯ.

8. Групи кнопок до роботи з датою СЬОГОДНІ, ПЛЮС ДЕНЬ, МІНУС ДЕНЬ.

9. Поле Р/Р ПОЛУЧАТЕЛЯ.

10. Поле ВИД ОПЕРАЦИИ.

11. Поле КОД БАНКУ ПОЛУЧАТЕЛЯ.

12. Поле ДАТА ОДЕРЖАННЯ ТОВАРУ, НАДАННЯ УСЛУГ.

13. Поле КОД ПРИЗНАЧЕННЯ ПЛАТЕЖА.

14. Поле УНН ПОЛУЧАТЕЛЯ.

15. Поле ВВЕДІТЬ СУММУ.

Рис3.

16. Групи кнопок-переключателей М/П-место друку, Б/П-без печати,.

ПУСТО-нет ніяких написів в пл. дорученні дома для печати.

17. Поле ВВЕДІТЬ ПРИЗНАЧЕННЯ ПЛАТЕЖА.

18. Радиокнопка до переходу форми у початковий режим ПОВЕРНУТИСЯ К.

СТВОРЕННЯ ПЛАТЁЖКИ.

19. Кнопка ВНЕСТИ ЗМІНИ ДО СТАРУ ПЛАТЁЖКУ.

20. Кнопко для перегляду торішніх пл. доручень ЗА МИНУЛИЙ ГОД.

21. Кнопко ПЕЧАТКУ СТАРОГО ПЛАТІЖНОГО ПОРУЧЕНИЯ.

22. Кнопка до переходу за старими пл. поручениям.

23. Кнопка до переходу насамкінець списку пл. доручень До КІНЦЮ СПИСКА.

ПЛАТЁЖЕК.

24. Поле для введення номери пл. доручення якого потрібно зробити переход.

25. Кнопко для введённого номери пл. доручення якого потрібно зробити перехід ПЕРЕЙТИ ПО НОМЕРУ.

26. Кнопко ВЫХОД.

27. Кнопко ПРЕДОСМОТР.

28. Выпадающий список для вибору кол-ва копій до друку Рис4.

З допомогою кнопки Звіти відбувається перехід у форму отчётов. Форма отчётов має наступний вид:

1. Кнопка переходу на головну форму НАЗАД До ПЛАТЁЖКАМ.

2. Дванадцять прапорців за кожен месяцгода соответственно.

3. Кнопка переходу до форми ПЛАТЕЛЬЩИКИ.

4. Выпадающий список СПИСОК ПОЛУЧАТЕЛЕЙ.

5. Выпадающий список СПИСОК ПЛАТЕЛЬЩИКОВ.

6. Кнопка ЗА I-ГО КВАРТАЛ до швидшого виділення прапорців I-го квартала.

7. Кнопка ЗА IIЙ КВАРТАЛ Л до швидшого виділення прапорців II-го квартала.

8. Кнопка ЗА III-Й КВАРТАЛ до швидшого виділення прапорців III-го квартала.

9. Кнопка ЗА IV-Й КВАРТАЛ до швидшого виділення прапорців 4-го квартала.

10. Кнопко ЗА РІК до швидшого виділення всіх прапорців года.

11. Поле року отчёта.

12. Кнопко ПЛЮС ГОД.

13. Кнопко МІНУС ГОД.

14. Кнопко скидання зі зняттям активізації від усіх прапорців месяцев.

15. Прихована кнопка видалення файлів звіту. Кнопка з’являється якщо є хоча б один файл з колишніми отчётами.

16. Довідкове полі видає інформацію про обраному для звіту получателе і сформованому отчёте.

17. Довідкове полі видає інформацію про обраному для звіту плательщике.

18. Поле РЕЗУЛЬТАТ. Сдесь виводяться підсумкові данные.

19. Кнопка СФОРМУВАТИ ОТЧЁТ.

20. Кнопка ПЕРЕГЛЯД ОТЧЁТА.

21. Кнопко ПЕЧАТКУ ОТЧЁТА.

22. Кнопка СФОРМУВАТИ ЗВІТ ПО ВСІМ ПОЛУЧАТЕЛЯМ.

23. Выпадающий список для вибору копій при печатку отчёта.

24. Поле ІНТЕРАКТИВНОЮ СПРАВКИ.

25. Кнопко ВЫХОД.

Рис5.

При перехід у головну форму з допомогою кнопки НАЗАД До ПЛЯТЁЖКАМ.

Користувач може можливість перейти до формі платники. Ця форма містить такі элементы:

1. Кнопка переходу на головну форму НАЗАД До ПЛАТЁЖКАМ.

2. Выпадающий список для вибору ПЛАТЕЛЬЩИКА.

3. Поле НАЙМЕНУВАННЯ ПЛАТЕЛЬЩИКА.

4. Поле НАЙМЕНУВАННЯ БАНКУ ПЛАТЕЛЬЩИКА.

5. Поле Р/Р БАНКУ ПЛАТЕЛЬЩИКА.

6. Поле УНН ПЛАТЕЛЬЩИКА.

7. Поле КОД БАНКУ ПЛАТЕЛЬЩИКА.

8. Кнопко для активізації обраного платника ЗРОБИТИ ЭТОГО.

ПЛАТНИКА ПОТОЧНИМ У П/П.

9. Кнопка ДОДАТИ ПЛАТЕЛЬЩИКА.

10. Кнопка ВИДАЛИТИ ПЛАТЕЛЬЩИКА.

11. Кнопка ВНЕСТИ ЗМІНИ ДО ДАНІ Про ПЛАТЕЛЬЩИКЕ.

Рис 6.

3. Алгоритм рішення задачи.

Расмотрим алгоритм процедури розрахунку суми прогизведённых платежів по обраному для звіту получателю.

3.4 Розробка і тестування програмного модуля.

Возмём як тестового прикладу — кілька одержувачів платежів. Заповнимо деяке у плю доручень. На приклад: |Найменування Одержувача |Дата |У платежу | |Іванов |01/02/00 |500 | |Іванов |02/02/00 |600 | |Іванов |03/03/00 |700 | |Іванов |04/04/00 |800 | |Іванов |05/05/00 |900 | |Іванов |06/06/00 |1000 | |Іванов |07/07/00 |1100 | |Іванов |08/08/00 |1200 | |Сидоров |01/02/00 |100 | |Сидоров |02/02/00 |10 | |Сидоров |03/03/00 |15 | |Сидоров |04/04/00 |16 | |Сидоров |05/05/00 |17 | |Сидоров |08/08/00 |18 | |Сидоров |08/09/00 |19 | |Іванов |01/02/00 |1000 | | |Разом |7995 |.

Результати отримані ьвне програми цілком ідентичні результатам отриманим программым шляхом. Також программый продукт піддався тестуванню у власному виробництві. Помилок виявлено не было.

Із цього можна дійти невтішного висновку що створене програмне забезпечення працює правильно і геть готова до эксплуатации.

Укладання. Поданий програмний продукт створений середовищі Excel -97. Перевагою цього продукту є його простота, достатній комфорт при експлуатації, що дозволяє користувачеві ефективно працювати з цієї програмою. Крім цього забезпечується непогана надійність роботи програмного кошти, й добра інформаційна навігація. Змінюваність програми можна здійснити, лише модернізувати її, що ні надає достатньої гибкости.

1. «Microsoft OFFICE97 розробка додатків» К. Соломон издательство.

«БХВ «м. Санкт-Петербург 1998 год.

2. Кен Гетц. Майк Джилберт «Програмування в Microsoft Office «- видавництво «Друкарню» Державного комітету РФ з питань преси м. Санкт-Петербург 1999 год.

3. М. МакКелви та інших. «Visual Basic 5 «видавництво «BHV-Санкт;

Петербург" 1998 год.

4. Р.Персон. «Excel для Windows 95 «видавництво «BHV-СанктПетербург» 1998 год.

5. Р.Винтер. «Microsoft Office для Windows 95 «видавництво «BHVСанкт-Петербург» 1998 год.

6. Фигурнов В.Е." IBM PC для користувача." - М: Фінанси і статистика, 1991.

7.Ч.Петзолд «Програмування для Windows 95 «видавництво «BHVСанкт-Петербург» 1998 год.

8. Ф. Новиков, А.Яценко. «Microsoft Office загалом» видавництво «BHV-Санкт-Петербург» 1998 год.

Исходный текст основного програмного модуля.

Dim №ПЛ As String Dim Сплачує As String Dim BOX Dim БОКС Dim МП1 As String Dim Рік Private Sub ComboBox1_Change () Windows («Клієнти «& Year (Date)).Activate 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 («З «& (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)) Else Windows («Клієнти «& Year (Date)).Activate Рахунок = (Worksheets (№ПЛ).Range («З «& (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 ») & _ «P/c: «& Worksheets («Лист1 »).Range («Q8 ») & _ «Банк: «& Worksheets («Лист1 »).Range («D8 ») & _ «Код Банку: «& Worksheets («Лист1 »).Range («P9 ») №ПЛ = Worksheets («Лист1 »).Range («A1 ») Windows («Клієнти «& Year (Date)).Activate ComboBox1. Clear МП = True X = 1 Рік = Year (Date) While Len (Worksheets (№ПЛ).Range («A «& X)) 0.

ComboBox1.AddItem (Worksheets (№ПЛ).Range («A «& X)).

X = X + 1 Wend End Sub.

Private Sub ЗаПрошлыйГод_Click () If Dir («C:Program FilesПлатёжкаПлатёжки «& (Year (Date) — 1) & «.xls ») = _ «Платёжки «& (Year (Date) — 1) & «.xls «Then.

Workbooks.Open FileName:= «C:Program FilesПлатёжкаПлатёжки «& (Year (Date) — 1) Windows («Платёжки «& (Year (Date) — 1)).Activate Worksheets (№ПЛ).Select Рік = Year (Date) — 1 Else БОКС = MsgBox («Торік файл звіту не знайдено », , BOX) Exit Sub End If Украй = True.

End Sub.

Private Sub Плательщики_Click () UserForm1. Hide UserForm3.Show End Sub.

Private Sub Отчёты_Click () UserForm1. Hide UserForm2.Show End Sub.

Private Sub Минус_Click () «віднімає 1 день від дати If IsDate (Дата) = True Then Дата = CDate (Дата) — 1 Else End If End Sub.

Private Sub Плюс_Click () «додає одного дня до дати If IsDate (Дата) = True Then.

Дата = CDate (Дата) + 1.

Else End If End Sub.

Private Sub Предосмотр_Click () «активізує вікно перегляду Excel Windows («Платёжка.xls »).Activate Application. Visible = True UserForm1. Hide ActiveWindow.SelectedSheets.PrintPreview Application. Visible = False UserForm1. Show End Sub.

Private Sub UserForm_Initialize () If Dir («C:Program FilesПлатёжкаКлиенты «& Year (Date) & «.xls ») _ «Клієнти «& Year (Date) & «.xls «Then Workbooks. Open FileName:= «C:Program FilesПлатёжкаКлиенты «& (Year (Date) — 1) Windows («Клієнти «& (Year (Date) — 1)).Activate ActiveWorkbook. SaveAs FileName:= «C:Program FilesПлатёжкаКлиенты «& Year (Date).

Workbooks.Open FileName:= «C:Program FilesПлатёжкаПлатёжки «& (Year (Date) — 1) Windows («Платёжки «& (Year (Date) — 1)).Activate ActiveWorkbook. SaveAs FileName:= «C:Program FilesПлатёжкаПлатёжки «& Year (Date).

Workbooks.Open FileName:= «C:Program FilesПлатёжкаПлательщики. xls «Windows («Плательщики.xls »).Activate X = 1 Do While Len (Worksheets («Лист1 »).Range («A «& X)) 0 X = X + 1 Loop X = X — 1.

Do While X 0 Windows («Клієнти «& Year (Date)).Activate Worksheets (CStr (X)).Select Worksheets (CStr (X)).Range («L1:L65535 »).Select Selection.ClearContents.

Windows («Платёжки «& Year (Date)).Activate Worksheets (CStr (X)).Select Worksheets (CStr (X)).Columns («A:AG »).Select Selection. ClearContents X = X — 1 Loop Windows («Клієнти «& Year (Date)).Activate ActiveWorkbook. Save Windows («Платёжки «& Year (Date)).Activate ActiveWorkbook. Save Workbooks.Open FileName:= «C:Program FilesПлатёжкаПлатёжка. xls «Windows («Плательщики.xls »).Activate Worksheets («Року »).Select X = 1 While Len (Worksheets («Року »).Range («A «& X)) 0 X = X + 1 Wend «Worksheets («Року »).Range («A «& X) = CStr ((Year (Date) — 1)) Worksheets («Року »).Range («A «& X) = CStr (Year (Date)) ActiveWorkbook. Save Else Workbooks. Open FileName:= «C:Program FilesПлатёжкаКлиенты «& Year (Date) Workbooks. Open FileName:= «C:Program FilesПлатёжкаПлатёжки «& Year (Date) Workbooks. Open FileName:= «C:Program FilesПлатёжкаПлатёжка. xls «Workbooks.Open FileName:= «C:Program FilesПлатёжкаПлательщики. xls «End If.

Рік = Year (Date) Счётчик2. List = Array (1, 2, 3) Счётчик2 = 1 Дата = Date МП = True ComboBox1. Visible = True НомерПл. Visible = False Label1. Visible = True Создать. Visible = False Label14. Visible = False Счётчик. Visible = False КСтарПл. Visible = False Предосмотр. Visible = False Счётчик2. Visible = False ИзмененияСТ. Visible = False Вконец. Visible = False номерСТПЛ. Visible = False ПоНомеру. Visible = False ЗаПрошлыйГод. Visible = False Сегодня. Caption = «Сьогодні: «& Date BOX = «Платёжка «Windows («Платёжка.xls »).Activate №ПЛ = Worksheets («Лист1 »).Range («a1 ») Windows («Клієнти «& Year (Date)).Activate X = 1 While Len (Worksheets (№ПЛ).Range («A «& X)) 0.

ComboBox1.AddItem (Worksheets (№ПЛ).Range («A «& X)).

X = X + 1 Wend End Sub.

Private Sub UserForm_QueryClose (Cancel As Integer, CloseMode As Integer) 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 Измениния_Click () Windows («Клієнти «& Year (Date)).Activate If Перевірка = False Then «Перевірка на правильність «функція перебуває у кінці программы.

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

Else «функція перебуває у кінці програми End If.

X = 1.

Do While X < ComboBox1. ListCount + 1.

If Клієнт = Worksheets (№ПЛ).Range («A «& X) _.

And Банк = Worksheets (№ПЛ).Range («b «& X) _.

And Рахунок = Worksheets (№ПЛ).Range («з «& X) _.

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

And УНН = Worksheets (№ПЛ).Range («e «& X) _.

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

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

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

Then.

БОКС = MsgBox («Извените але: «& Клієнт & «вже у списку Одержувачів. «_.

& Chr (10) & «Спробуйте вибрати Одержувача зі списку. », , BOX).

Exit Sub.

Else.

X = X + 1.

End If.

Loop.

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

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

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

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

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

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

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

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

ActiveWorkbook.Save.

БОКС = MsgBox («Зміни у даних про Клієнта: «& Клієнт & «успішно внесёны до списку клієнтів », , BOX).

Клиент.SetFocus End Sub Private Sub ДобавитьПол_Click ().

Windows («Клієнти «& Year (Date)).Activate.

If Перевірка = False Then «Перевірка на правильність «функція перебуває у кінці программы.

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

Else «функція перебуває у кінці програми End If.

X = 1.

Do While X < ComboBox1. ListCount + 1.

If Клієнт = Worksheets (№ПЛ).Range («A «& X) _.

And Банк = Worksheets (№ПЛ).Range («b «& X) _.

And Рахунок = Worksheets (№ПЛ).Range («з «& X) _.

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

And УНН = Worksheets (№ПЛ).Range («e «& X) _.

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

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

Then.

БОКС = MsgBox («Извените але: «& Клієнт & «вже у списку Одержувачів. «_.

& Chr (10) & «Спробуйте вибрати Одержувача зі списку. », , BOX).

Exit Sub.

Else.

X = X + 1.

End If.

Loop.

X = 1.

While Len (Worksheets (№ПЛ).Range («A «& X)) 0.

X = X + 1.

Wend.

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

Worksheets (№ПЛ).Range («b «& X) = Банк.

Worksheets (№ПЛ).Range («з «& 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 («з «& НомерПл) = Банк.

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 («з «& НомерПл) = Банк.

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, 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 («з «& 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 («з «& 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 = «» НомНазПл = «» НомерПл = «» Дата = «» Гроші = «» ДатаУслуг = ««.

Else If Рік Year (Date) Then Windows («Платёжки «& Год).Activate ActiveWindow. Close Рік = Year (Date) Else End If Дата = Date Рахунок = «» Банк = «» Клієнт = «» КодБанка = «» УНН = «» ВидОперации = «» НазначПлатежа1 = «» НомНазПл = «» Гроші = «» ДатаУслуг = «» ComboBox1. ListIndex = True НомерПл. Visible = False Label1. Visible = True Label14. Visible = False Счётчик. Visible = False КСтарПл. Visible = False Измениния. Visible = True ДобавитьПол. Visible = True УбитьКлиента. Visible = True СохранитьНов. Visible = True ЗаПрошлыйГод. Visible = False ComboBox1. Visible = True Счётчик2. Visible = False Предосмотр. Visible = False ИзмененияСТ. Visible = False Вконец. Visible = False номерСТПЛ. Visible = False ПоНомеру. Visible = False СтарыеПл. Caption = «Подивитися старі платёжки «End If End Sub.

Private Sub Создать_Click () Windows («Платёжка.xls »).Activate Впечать «функція друку Создать. Visible = False Счётчик2. Visible = False End Sub.

Private Sub Счётчик_Change () Windows («Платёжки «& Год).Activate If Лічильник = 0 Then Exit Sub Else Клієнт = Worksheets (№ПЛ).Range («B «& Лічильник) Рахунок = Worksheets (№ПЛ).Range («D «& (Лічильник)) Банк = Worksheets (№ПЛ).Range («З «& (Лічильник)) НомерПл = Worksheets (№ПЛ).Range («A «& (Лічильник)) КодБанка = Worksheets (№ПЛ).Range («E «& (Лічильник)) УНН = Worksheets (№ПЛ).Range («F «& (Лічильник)) Гроші = Worksheets (№ПЛ).Range («g «& Лічильник) ДатаУслуг = Worksheets (№ПЛ).Range («I «& Лічильник) ВидОперации = Worksheets (№ПЛ).Range («J «& Лічильник) НазначПлатежа1 = Worksheets (№ПЛ).Range («K «& Лічильник) НомНазПл = Worksheets (№ПЛ).Range («L «& Лічильник) Дата = Worksheets (№ПЛ).Range («h «& Лічильник) МестоПечати1 «функція що з МП, БП, БезПечати.

" задає значення цим компонентами Windows («Платёжка.xls »).Activate Вплатёжку «функція яка зберігає дані в платёжке End If End Sub.

Private Sub УбитьКлиента_Click () Windows («Клієнти «& Year (Date)).Activate If Len (ComboBox1) = 0 Then БОКС = MsgBox («Ви вибрали одного Одержувача видалення… », , BOX) Exit Sub «ElseIf ComboBox1. ListIndex = -1 Then End If Dim a a = ComboBox1 БОКС = MsgBox («Ви хочете видалити Одержувача: «& a, vbYesNo, BOX) If БОКС vbYes Then Exit Sub ElseIf Len (Worksheets (№ПЛ).Range («L «& ComboBox1. ListIndex + 1)) 0 Then БОКС = MsgBox («Вибачте, але Ви можете видалити Одержувача: «& a _ & Chr (10) & «як у ній проводилися платежі. «_ & Chr (10) & «Видалити цього Одержувача Буде можна лише ВИДАЛИВШИ ПЛАТНИКА !!! «_ & Chr (10) & «У формі ПЛАТНИКИ !!! «& Chr (10) & Chr (10) & _ Сплачує, vbCritical, BOX) Exit Sub End If If ComboBox1. ListIndex = -1 Then Exit Sub Else Windows («Клієнти «& Year (Date)).Activate Worksheets (№ПЛ).Select Rows (ComboBox1.ListIndex + 1).Select Selection. Delete Shift:=xlUp «Видаляємо запис клієнта a = ComboBox1 ComboBox1. RemoveItem (ComboBox1.ListIndex) ActiveWorkbook. Save БОКС = MsgBox («Ви видалили Одержувача: «& a,, BOX) ComboBox1. ListIndex = -1 Рахунок = «» Банк = «» Клієнт = «» КодБанка = «» УНН = «» ВидОперации = «» НазначПлатежа1 = «» НомНазПл = «» НомерПл = «» Гроші = «» ДатаУслуг = «» End If End Sub.

Private Sub Вконец_Click () Windows («Платёжки «& Год).Activate X = 1 While Len (Worksheets (№ПЛ).Range («A «& (X))) 0 X = X + 1 Wend Счётчик. Value = X — 1 End Sub.

Private Sub ПоНомеру_Click () If Len (номерСТПЛ) = 0 Then БОКС = MsgBox («Ви забули запровадити номер платёжки », , BOX) номерСТПЛ. SetFocus Exit Sub ElseIf номерСТПЛ > 0 And номерСТПЛ < 65 501 Then Счётчик. Value = номерСТПЛ номерСТПЛ = «» номерСТПЛ. SetFocus Else Украй = True БОКС = MsgBox («Був введений № неіснуючої платёжки… Тому виконано перехід до кінця списку платёжек », , BOX) номерСТПЛ. SetFocus Exit Sub End If.

If Len (НомерПл) = 0 Then Украй = True БОКС = MsgBox («Був введений № неіснуючої платёжки… Тому виконано перехід до кінця списку платёжек », , BOX) номерСТПЛ. SetFocus Else End If End Sub Private Function TRIMF ().

Клієнт = TRIM (Клиент).

Банк = TRIM (Банк).

Рахунок = TRIM (Счёт).

КодБанка = TRIM (КодБанка).

Рахунок = TRIM (Счёт).

КодБанка = TRIM (КодБанка).

УНН = TRIM (УНН).

ВидОперации = TRIM (ВидОперации).

НомНазПл = TRIM (НомНазПл).

Дата = TRIM (Дата).

ДатаУслуг = TRIM (ДатаУслуг).

НазначПлатежа1 = TRIM (НазначПлатежа1).

Гроші = TRIM (Деньги).

End Function.

Private Function Перевірка () As String.

TRIMF.

If ПроверкаОБЩ = False Then.

Перевірка = False.

Exit Function.

Else.

Перевірка = True.

End If.

End Function Private Function ПроверкаПЛ () As String.

TRIMF.

If ПроверкаОБЩ = False Then.

ПроверкаПЛ = False.

Exit Function.

Else.

End If.

If Len (НазначПлатежа1) = 0 Then.

MsgBox «Вибачте але у «Рядку Запровадьте Призначення Платежу «порожньо «.

НазначПлатежа1.SetFocus ПроверкаПЛ = False.

Exit Function.

ElseIf IsDate (Дата) = False Then.

MsgBox «Вибачте але у «Рядку Дата «помилка чи Ви забули її запровадити «.

Дата.SetFocus ПроверкаПЛ = False.

Exit Function.

ElseIf Len (Деньги) = 0 Or Гроші = «0 «Then.

БОКС = MsgBox («Вибачте але у «Рядку Запровадьте Суму «порожньо », , BOX).

Деньги.SetFocus.

Гроші = «» ПроверкаПЛ = False.

Exit Function.

Else ПроверкаПЛ = True.

End If End Function.

Private Function ПроверкаОБЩ () As String If Len (Клиент) = 0 Then.

БОКС = MsgBox («Вибачте але у Рядку Найменування Клієнта порожньо », , BOX).

Клиент.SetFocus ПроверкаОБЩ = False.

Exit Function ElseIf Len (Банк) = 0 Then.

БОКС = MsgBox («Вибачте але у Рядку Банк Клієнта порожньо », , BOX).

Банк.SetFocus ПроверкаОБЩ = False.

Exit Function ElseIf Len (Счёт) = 0 Then.

БОКС = MsgBox («Вибачте але у Рядку Р/р Клієнта порожньо », , BOX).

Счёт.SetFocus ПроверкаОБЩ = False.

Exit Function ElseIf Len (КодБанка) = 0 Then.

БОКС = MsgBox («Вибачте але у Рядку Код Банку Клієнта порожньо », , BOX).

КодБанка.SetFocus ПроверкаОБЩ = False.

Exit Function.

Else ПроверкаОБЩ = True.

End If End Function Private Sub Счёт_KeyPress (ByVal KeyAscii As MSForms. ReturnInteger) If (Not (Chr (KeyAscii) Like «[0−9] «)) Then KeyAscii = 0 End Sub Private Sub Деньги_KeyPress (ByVal KeyAscii As MSForms. ReturnInteger) If (Not (Chr (KeyAscii) Like «[0−9] «)) Then KeyAscii = 0 If Mid (Деньги, 1, 1) = «0 «Then.

Гроші = «» Else End If End Sub Private Sub КодБанка_KeyPress (ByVal KeyAscii As MSForms. ReturnInteger) If (Not (Chr (KeyAscii) Like «[0−9] «)) Then KeyAscii = 0 End Sub Private Sub УНН_KeyPress (ByVal KeyAscii As MSForms. ReturnInteger) If (Not (Chr (KeyAscii) Like «[0−9] «)) Then KeyAscii = 0 End Sub Private Sub ВидОперации_KeyPress (ByVal KeyAscii As MSForms. ReturnInteger) If (Not (Chr (KeyAscii) Like «[0−9] «)) Then KeyAscii = 0 End Sub Private Sub НомНазПл_KeyPress (ByVal KeyAscii As MSForms. ReturnInteger) If (Not (Chr (KeyAscii) Like «[0−9] «)) Then KeyAscii = 0 End Sub Private Sub НомерСТПЛ_KeyPress (ByVal KeyAscii As MSForms. ReturnInteger) If (Not (Chr (KeyAscii) Like «[0−9] «)) Then KeyAscii = 0 End Sub.

Private Function Впечать () As String Sheets («Лист1 »).Select If Счётчик2 = 1 Then.

ActiveWorkbook.Save.

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True.

ElseIf Счётчик2 = 2 Then.

Range («A1:W28 »).Select.

Selection.Copy.

Range («A29 »).Select.

ActiveSheet.Paste.

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True.

Rows («29:80 »).Select.

Selection.Delete Shift:=xlUp.

ActiveWorkbook.Save.

ElseIf Счётчик2 = 3 Then.

Range («A1:W28 »).Select.

Selection.Copy.

Range («A29 »).Select.

ActiveSheet.Paste.

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True.

Rows («29:80 »).Select Selection. Delete Shift:=xlUp.

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True.

ActiveWorkbook.Save.

End If End Function Private Function Вплатёжку () As String.

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

Дата = Format (Дата, «Short Date »).

Worksheets («Лист1 »).Range («D13 ») = Банк.

Worksheets («Лист1 »).Range («Q11 ») = Счёт.

Worksheets («Лист1 »).Range («E12 ») = Клиент.

Worksheets («Лист1 »).Range («P14 ») = КодБанка.

Worksheets («Лист1 »).Range («C12 ») = УНН.

Worksheets («Лист1 »).Range («T7 ») = (Гроші & «= «).

Worksheets («Лист1 »).Range («G4 ») = Format (Дата, «d mmmm yyyy »).

Worksheets («Лист1 »).Range («L19 ») = ДатаУслуг.

Worksheets («Лист1 »).Range («V19 ») = ВидОперации.

Worksheets («Лист1 »).Range («B22 ») = НазначПлатежа1.

Worksheets («Лист1 »).Range («O2 ») = НомерПл.

Worksheets («Лист1 »).Range («V20 ») = НомНазПл.

МестоПечати «Функція що з параметрами місця друку, у платёжке.

Worksheets («Лист1 »).Range («C27 ») = МП1 End Function.

Private Function МестоПечати () As String.

If МП = True Then.

МП1 = «М/П «.

ElseIf БП = True Then.

МП1 = «Б/П «.

ElseIf БезПечати = True Then.

МП1 = ««.

End If.

End Function.

Private Function МестоПечати1() As String.

If Worksheets (№ПЛ).Range («M «& Лічильник) = «М/П «Then.

МП = True.

ElseIf Worksheets (№ПЛ).Range («M «& Лічильник) = «Б/П «Then.

БП = True.

ElseIf Worksheets (№ПЛ).Range («M «& Лічильник) = «» Then.

БезПечати = True.

End If.

End Function ———————————;

Продолжение на стор. 14.

Продовження на стор. 13.

конец.

Windows («Платёжки «& ГодАктивПл).Activate Worksheets («Лист2 »).Range («a1 ») = Список Worksheets («Лист2 »).Range («b «& (Y + 2)) = «Разом: «Worksheets («Лист2 »).Range («з «& (Y + 2)) = Сума Range («A3:I «& Y + 1).Select.

Selection.Borders (xlDiagonalDown).LineStyle = xlNone.

Selection.Borders (xlDiagonalUp).LineStyle = xlNone.

With Selection. Borders (xlEdgeLeft) ††††???†††††???††???††††??? .LineStyle = xlContinuous.

End With.

With Selection. Borders (xlEdgeTop).

.LineStyle = xlContinuous.

End With.

With Selection. Borders (xlEdgeBottom).

.LineStyle = xlContinuous.

End With.

With Selection. Borders (xlEdgeRight).

.LineStyle = xlContinuous.

End With.

With Selection. Borders (xlInsideVertical).

.LineStyle = xlContinuous.

End With.

" ActiveWorkbook.Save.

Range («A1 »).Select Мас = Сума & «рублів. «Просмотр.Enabled = True Печать. Enabled = True Счётчик. Enabled = True Windows («Клієнти «& ГодАктивПл).Activate Label4. Caption = «Звіт по Одержувачу: «& Список _ & «, Р/Р: «& Worksheets (PP).Range («з «& Список. ListIndex + 1) _ & «, Банк: «& Worksheets (PP).Range («b «& Список. ListIndex + 1) _ & «, Код Банк: «& Worksheets (PP).Range («d «& Список. ListIndex + 1) _ & «сформований. «_ & «Усього дітей було за обраний період «& Сумма2 & «платёжек. «Windows («Платёжки «& ГодАктивПл).Activate.

X = X + 1 Loop.

Сумма = Сума + P. S Сумма2 = Сумма2 + 1 Столбец да нет.

If (R1 = Пянварь & Рік) Or (R1 = Пфевраль & Рік) Or (R1 = Пмарт & Рік) _ Or (R1 = Папрель & Рік) Or (R1 = Пмай & Рік) Or (R1 = Пиюнь & Рік) _ Or (R1 = Пиюль & Рік) Or (R1 = Павгуст & Рік) Or (R1 = Псентябрь & Рік) _ Or (R1 = Поктябрь & Рік) Or (R1 = Пноябрь & Рік) Or (R1 = Пдекабрь & Рік) Then.

Windows («Платёжки «& ГодАктивПл).Activate N = Worksheets (PP).Cells (XX, 1) D = Worksheets (PP).Cells (XX, 8) P. S = Worksheets (PP).Cells (XX, 7) K = Worksheets (PP).Cells (XX, 12) R1 = Month (D) & Year (D).

Exit Do.

нет да.

Len (XX) = 0.

XX = dhExtractString (SS, X, «. »).

Регламентированні запросы нет да Рабочий.

Лист.

Excel.

Рабочий.

Лист.

Excel.

SS = Worksheets (PP).Range («L «& Список. ListIndex + 1) «.

Сумм2=0, Сума = 0, Мас = 0, x1 = 5.

Активізація Лист2 в обраному для звіту файле.

Len (Список) = 0.

нет да.

Do While Len (XX) > 0.

MsgBox «Ви вибрали жодного місяці для звіту «.

нет да.

Отчеты.

MsgBox «Ви вибрали жодного Одержувача для звіту «.

Січень = False And Лютий = False And Березень = False _ And Квітень = False And Травень = False And Червень = False _ And Липень = False And Август = False And Вересень = False _ And Жовтень = False And У листопаді = False And Грудень = False Then.

НАЧАЛО Рабочий.

Лист.

Excel.

Введення і коригування данных.

Інтерфейс пользователя.