Zastosowanie Informatyki w Finansach i Bankowości II 

Wykorzystanie Microsoft Excel i Visual Basic for Applications w tworzeniu arkuszy stanowiących źródło 

danych dla dokumentów seryjnych. 

 

1.  Aby arkusz kalkulacyjny stanowił odpowiednie źródło danych dla dokumentów seryjnych w MS Word, dane 

powinny być umieszczone w prawidłowy sposób. W pierwszym wierszu powinny znaleźć się tytuły kolumn 
zawierających dane dokumentów seryjnych. Nadane tytułu będą jednocześnie stanowiły nazwy pól w 

korespondencji seryjnej. Ponadto arkusz powinno się wyposażyć w komórkę zliczającą ilość kontaktów. W tym 

celu można wykorzystać funkcję =ile.niepustych dla jednej z kolumn. Formuła komórki dla kolumny B będzie 

wyglądała następująco =ile.niepustych(B:B) – 1 gdzie B:B oznacza całą kolumnę B a – 1 pomija pierwszy wiersz, 

w którym zawarte są tytuły kolumn. 

2.  Kolejnym etapem będzie dodanie okna dialogowego i wyposażenie go w odpowiednie elementy pozwalające na 

wprowadzanie danych. W celu utworzenia własnego okna dialogowego należy otworzyć edytor VBA i wybrać 

opcję INSERT/USERFORM z menu głównego edytora. Po wybraniu opcji wyświetli się nowy pasek narzędzi 

„TOOLBOX” oraz puste okienko dialogowe o nazwie Userform1. 

 

 

 

3.  Aby okienko dialogowe mogło być użyte dla obsługi procesu wprowadzania danych do utworzonej wcześniej 

tabeli powinno się je wyposażyć w dodatkowe elementy pozwalające na wprowadzanie i manipulowanie danymi. 

Tymi elementami będą pola tekstowe (TEXTBOX). Ponadto powinno się użyć dodatkowo elementów „Label” czyli 

etykiet w celu opisania pól tekstowych. 

4.  Tabela zawiera 7 kolumn danych, a więc każdy rekord tabeli będzie się składał z 7 elementów składowych. 

Dlatego utworzone wcześniej okno dialogowe powinno zostać wyposażone w 7 elementów typu „TEXTBOX” oraz 

7 etykiet. Etykiety powinny być tożsame z tytułami kolumn tabeli natomiast pola tekstowe powinny otrzymać 
nazwy, którymi później łatwo się będzie posługiwać przy tworzeniu makra. Nadawanie nazw obiektom typu 

„FORM” odbywa się poprzez wykorzystanie okna dialogowego „PROPERTIES” w edytorze VBA. Aby utworzonemu 

elementowi nadać nazwę należy wybrać dany element lewy klawiszem mysz a następnie w oknie „Properties” 

zmienić pole „(Name)” . Ponieważ każdy rekord składa się z siedmiu elementów, można utworzonym polom 

tekstowym nadać nazwy zgodne z numerami kolumn, które będą wypełniać. Np. d_1 , d_2 , d_3 , d_4 , d_5 , 

d_6 , d_ 7. 

5.  Aby okienko dialogowe było w pełni funkcjonalne można dodać dwa przyciski „CommandButton”. Odpowiednie 

elementy znajdziemy jak wcześniej w pasku „TOOLBOX”. Po dodaniu powinno się zmienić ich wewnętrzne 

etykiety w okienku „PROPERTIES” poprzez zmianę pól „CAPTION”. Jeden z przycisków powinien służyć do 

dopisywania kolejnych rekordów tabeli (nazwa – „DOPISZ”) a drugi do zamykania okna dialogowego 

(„ZAMKNIJ”). Na samym końcu można zmienić nazwę okna dialogowego oraz komunikat w pasku okienka czyli 
właściwości (Name) oraz Caption na odpowiednio Panel i DOPISZ KONTAKT 

6.  Po przygotowaniu okna dialogowego powinniśmy poleceniem INSERT/MODULE z menu głównego edytora VBA 

dodać element MODULE zwierający makra. Pierwsze makro powinno zajmować się pokazywaniem utworzonego 

przez nas okna dialogowego z poziomu arkusza: 

 

Sub PokazPanel() 
Panel.Show 

End Sub

 

 

TEXTBOX

CAPTION 

COMMAND 

BUTTON 

LABEL 

7.  Aby zapewnić łatwe uruchamianie okienka dialogowego z poziomu arkusza należy dodać przycisk z grupy 

„Formularze” oraz przypisać mu makro „PokazPanel”. 

8.  Po wykonaniu poprawnie wszystkich wyżej wymienionych czynności, po naciśnięciu przycisku z poziomu arkusza 

powinno pokazać się utworzone okno dialogowe. Można je na tym etapie zamknąć jedynie krzyżykiem. 

Zamykanie okna przyciskiem „Zamknij” będzie możliwe po przypisaniu odpowiedniego makra przyciskowi. W tym 

celu należy powrócić do edytora VBA i w okienku VBA Project uruchomić oknodialogowe dwukrotnym kliknięciem 
z folderu Forms. Następnie dwukrotnie kliknąć na przycisku mającym odpowiadać za zamykanie okna 

dialogowego. 

9.  Pojawi się okno zawierające prywatne makra okna dialogowego oraz następujące sformułowanie 

 

Private Sub CommandButton2_Click() 

 
End Sub

 

 

10.  W wolnym miejscu należy wpisać makro umożliwiające zamykanie okna dialogowego. 

 

Private Sub CommandButton2_Click() 

Unload Panel 

End Sub

 

 
*Jeżeli po poleceniu Unload użyjemy zamiast nazwy okna dialogowego sformułowania Me, to makro będzie zamykało bieżące aktywne okno 
dialogowe. 

 

11.  Pozostaje jedynie utworzenie ostatniego makra dla przycisku DOPISZ. Jeżeli w edytorze dowolne sformułowanie 

poprzedzimy znakiem ‘ to będzie ono traktowane jako informacja. 

 

Private Sub CommandButton1_Click()

 

' Dynamiczna ilość danych powoduje konieczność pobrania z arkusza długości tabeli 

' nn - liczba kontaktow w skrzynce kontaktowej 

 

nn = Range("ILOSC").Value + 1

 

 
' warunek jest potrzebny by uruchamiac poszczegolne akcje. Jezeli warunek 

' bedzie rowny zero zostanie dopisana kolejna pozycja. Jezeli dane beda niekompletne warunek 

' otrzyma wartosc 1 i makro zostanie automatycznie przerwane poniewaz dalsza jego czesc będzie 

' uruchamiana tylko w przypadku gdy warunek = 0 

' ponizsze sformulowanie ustawia domyslna wartosc warunku 

 

Warunek = 0

 

 

' ponizej sformulowano odpowiedni test logiczny, ktory spowoduje warunek = 1 

 

If d_1 = "" Or d_2 = "" Or d_3 = "" Or d_4 = "" Or d_5 = "" Or d_6 = "" Or d_7 = "" Then Warunek = 1

 

 

' Reakcja okienkiem informacyjnym na warunek = 1 

 

If Warunek = 1 Then MsgBox "WYPELNIJ WSZYSTKIE POLA"

 

 

' Jezeli wszystkie pola sa wypelnione 
 

If Warunek = 0 Then 

 

' uruchomiona zostanie tzw. petla czyli n = 1, n= 2, n= 3 az do wartosci nn 

' dla przykladu jezeli w ksiazce sa 4 kontakty to dlugosc tabeli a zarazem parametr nn 

' sa rowne 5 i wtedy petla zostanie wykonana dla n z przedzialu <1,5> 
' dla kolumny liczba porządkowa petla zwroci aktualne n a dla kolejnych kolumn wartosci odpowiednich 

' pol tekstowych okna dialogowego 

 

For n = 1 To nn

 

 

'numer wiersza w komendzie Cells() zostal wprowadzony jako n + 1 aby zawsze petla znalazla 
'pierwszy pusty wiersz tabeli i tam wpisala wartosci pol tekstowych do odpowiednich pol rekordu 

 

If Cells(n + 1, 1).Value = "" Then 

Cells(n + 1, 1).Value = n 

Cells(n + 1, 2).Value = d_1 

Cells(n + 1, 3).Value = d_2 

Cells(n + 1, 4).Value = d_3 

Cells(n + 1, 5).Value = d_4 

Cells(n + 1, 6).Value = d_5 
Cells(n + 1, 7).Value = d_6 

Cells(n + 1, 8).Value = d_7 

 

End If 

 

Next n 
 

End If 

 

End Sub