VBA Платежка

Преимуществом данного продукта является его простота, достаточный комфорт при эксплуатации, что дает возможность пользователю эффективно работать с этой программой. Кроме этого обеспечивается неплохая надежность работы программного средства, и хорошая информационная навигация. Изменяемость программы можно осуществить только модернизируя ее , что не предоставляет достаточной гибкости.

Литература

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("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)) 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") & _ " 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)) Workshee