Visual Basic dla Aplikacji w Excelu
Ćwiczenie 1-2
spłata pożyczki
I. Excel - tabela spłat pożyczki
1. Wprowadzić nazwy kolejnych arkuszy: Tytuł, Tabela, Wykres.
2. W arkuszu tabela nazwać komórki:
C1 - pożyczka - do wprowadzania kwoty pożyczki,
C2 - procent - do wprowadzania wysokości oprocentowania,
C20 - nazwa - do wprowadzanie nazwiska pożyczkobiorcy.
3. Zbudować tabelę obliczającą rozkład spłat pożyczki tak jak na rysunku;
wiersz 4 - nagłówki tabeli
komórka B5 formuła =C1
komórka C5 formuła =C1-11*C6
komórka B6 formuła =F5, skopiować do końca tabeli
komórka C6 formuła =ZAOKR($C$1/12;0), skopiować do końca tabeli
komórka D5 formuła =ZAOKR(B5*$C$2/12;2), skopiować do końca tabeli
komórka E5 formuła =C5+D5, skopiować do końca tabeli
komórka F5 formuła =B5-C5, skopiować do końca tabeli
komórki C17,D17,E17 suma wartości w odpowiednich kolumnach tabeli.
4. Sporządzić wykres umieszczony w oddzielnym arkuszu o nazwie wykres.
Na wykresie przedstawić wielkość raty kapitałowej i odsetek
II. Visual Basic - obsługa tabeli spłat kredytu
1. Wstawić arkusz modułu (domyślna nazwa moduł1), sprawdzić czy jest wymuszenie deklaracji zmiennych Option Explicit, jeśli nie ma to
wpisać.
2. Napisać procedurę wprowadzania kwoty pożyczki
Sub obl_pozyczke
treść procedury
End Sub
Informacje pomocnicze:
Komentarz ignorowany podczas wykonywania poprzedzamy znakiem 
dim - deklaracja zmiennych (string - tekst, single - liczby rzeczywiste, integer - liczby całkowite)
w zadaniu stosowana funkcja InputBox, (pole dialogu)
InputBox(prompt [,title][,default][,xpos][,ypos][,help])
Informatyka programowanie  Politechnika Świętokrzyska Kielce str. 1
prompt - tekst w polu dialogowym -konieczne, pozostałe nie są konieczne
title - tytuł pola dialogowego
default - tekst w polu edycji przy wywołaniu funkcji
xpos,ypos - położenie pola dialogowego na ekranie
help - odwołanie do pliku pomocy (nie da się tego zrobić bez specjalnych narzędzi)
PRZYKA
AD:
InputBox(prompt:= wpisz coś , Title:= wpisywanie )
InputBox ( wpisz nazwisko )
wynikiem funkcji InputBox jest tekst. Aby go zamienić na liczbę (o ile się da) stosujemy funkcję CSng() lub CInt, np. CSng(stawka), gdzie
stawka jest tekstem przedstawiającym liczbę rzeczywistą.
Pułapka błędów - w przypadku błędu program nie zawiesza się tylko omija część procedury
On Error GoTo etykieta
instrukcje opuszczane przy błędzie
etykieta:
Wybór obiektów:
Wybór arkusza - Worksheets( tabela ).Select, Sheets("tabela").Select
Wybór komórki - Range( A5 ).Select, Range( pożyczka ).select
Wpisywanie liczb lub tekstu do komórek
Range( a5 ).Value = 27
Worksheets( tabela ).Range(  A7 ).Formula =  tekst
3. Napisać pozostałe procedury:
oprocentowanie (wprowadzanie wysokości oprocentowania)
nowe_dane (usunięcie starych danych)
nazwa_pozyczkobiorcy (wpisywanie nazwiska pożyczkobiorcy)
tabela (przejście do tabeli)
strona_tytułowa (przejście do strony tytułowej)
wykres (przejście do strony z wykresem)
4. Umieścić przyciski i powiązać z nimi procedury. Sprawdzać kolejno działanie każdej procedury.
5. Napisać procedury: auto_open, koniec_pracy. Procedurę koniec_pracy powiązać z przyciskiem. ZAPISAĆ skoroszyt na dysku (nadać nazwę)
Zamknąć skoroszyt wykorzystując przycisk i ponownie otworzyć.
6. Uzupełnić stronę tytułową, wprowadzić ozdobny tekst KALKULACJA POŻYCZKI (WordArt). Pod utworzony obiekt podpiąć procedurę
umożliwiającą przejście do arkusza Tabela. W arkuszu Wykres dodać przyciski umożliwiające przejście do pozostałych dwóch arkuszy.
7. Utworzyć procedurę drukowanie nagrywając zapis czynności (zaznaczyć obszar zawierający kalkulację kredytu, wybrać opcję drukowania,
ustalić parametry: drukowanie zaznaczonego fragmentu, orientacja pozioma, podgląd wydruku). Powiązać procedurę z przyciskiem.
III Rozbudowa aplikacji
Rozbudować aplikacje przez dodanie tabeli z systemem spłat kredytu z zachowaniem stałej wysokości spłaty (nie jak poprzednio za stałą ratą
kapitałową).
Wysokość pojedynczej płatności obliczamy ze wzoru;
n
( )
i 1+ i
płatność = POŻYCZKA
n
( ) - 1
1+ i
gdzie; i - stopa procentowa za jeden okres płatności, n - liczba okresów płatności
Option Explicit
'SPA
ATA POŻYCZKI
Sub obl_pożyczke()
'Wprowadzanie kwoty pożyczki
Dim kwota As String
Worksheets("tabela").Select
Range("pożyczka").Select
On Error GoTo koniec
kwota = InputBox("Wpisz kwotę pożyczki")
ActiveCell.Value = CSng(kwota)
koniec:
End Sub
Sub oprocentowanie()
'Wprowadzanie oprocentowania
Dim stawka As String
uzupełnij samodzielnie procedurę pamiętając o tym, że podaną wartość oprocentowania
należy podzielić przez 100
End Sub
Sub nazwa_pozyckobiorcy()
Dim nazwisko As String
Worksheets("tabela").Select
Informatyka programowanie  Politechnika Świętokrzyska Kielce str. 2
Range("nazwa").Select
'Następna instrukcja demonstruje kontynuacje zapisu w kolejnej linii
nazwisko = InputBox(Prompt:="Wpisz nazwisko i imię pozyczkobiorcy", _
Title:="Pożyczkobiorca")
If nazwisko <> "" Then ActiveCell.Formula = nazwisko
Range("a1").Select
End Sub
Sub nowe_dane()
'Nowe dane, usunięcie starych
Range("pożyczka").Value = 0
Range("procent").Value = 0
Range("nazwa").Value = ""
End Sub
Sub tabela()
Przejście do arkusz Tabela, następnie do komórki A1
End Sub
Sub strona_tytulowa()
Przejście do arkusz Tytuł, następnie do komórki A1
End Sub
Sub wykres()
Przejście do arkusza Wykres
End Sub
Sub auto_open()
Worksheets("tabela").Select
nowe_dane
Worksheets("tytuł").Select
Range("a1").Select
End Sub
Sub koniec_pracy()
ActiveWorkbook.Close
End Sub
Informatyka programowanie  Politechnika Świętokrzyska Kielce str. 3