VBA Платежка
Информация - Экономика
Другие материалы по предмету Экономика
Из этого можно сделать вывод что созданное программное обеспечение работает правильно и вполне готово к эксплуатации.
Заключение.
Представленный программный продукт создан в среде Excel -97 .
Преимуществом данного продукта является его простота, достаточный комфорт при эксплуатации, что дает возможность пользователю эффективно работать с этой программой. Кроме этого обеспечивается неплохая надежность работы программного средства, и хорошая информационная навигация.
Изменяемость программы можно осуществить только модернизируя ее , что не предоставляет достаточной гибкости.
Литература
- “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
Windo