Zastosowanie Informatyki w Finansach i Bankowości II 

Analiza Wrażliwości przy wykorzystaniu VBA 

 

1.  Pierwszy etap polega na utworzeniu prostego modelu opłacalności inwestycji bezpośrednio w arkuszu 

kalkulacyjnym. Wszelkie obliczenia w sekcji „Projekcje” nie mogą odbywać się bezpośrednio na komórkach, do 

których będą wprowadzane dane, tylko na komórkach, w których wprowadzona wartość np. przychodów ze 
sprzedaży będzie skorygowana o komórkę zawierającą współczynnik zmienności o domyślnej wartości 1. 

2.  Komórki zawierające współczynniki zmienności powinny otrzymać odpowiednie nazwy, np.: zm_p (wsp. dla 

przychodów), zm_k, zm_n, zm_d, zm_t. 

 

3.  Rachunek opłacalności należy sporządzić korzystając wyłącznie z danych zawartych w kolumnach E i F zgodnie ze 

wzorem poniżej. 

 

4.  Należy pamiętać aby komórki zawierające wyniki otrzymały odpowiednie nazwy: npv, irr, npvr, pb. 

5.  Okres zwrotu jest opcjonalny i można go policzyć tylko dodając moduł zawierający odpowiednią funkcję VBA! 

6.  Po wykonaniu arkusza z rachunkiem opłacalności można przejść do wykonania arkusza zawierającego tabele z 

analizą wrażliwości. 

 

7.  Po utworzeniu tabeli należy nadać nazwy następującym obszarom (zakresom komórek) w tabeli. 

a.  C4:K4 – zm 

b.  C6:K9 – raport_p 

c.  C12:K15 – raport_k 

d.  C18:K21 – raport_n 

e.  C24:K27 – raport_t 
f.  C30:K33 – raport_d 

8.  Po nadaniu nazw można przystąpić do tworzenia odpowiednich makr. Należy przejść do edytora VBA i dodać 

nowy moduł dla makr. Pierwsze makro będzie dotyczyło wrażliwości opłacalności na zmiany przychodów 

operacyjnych. 

Sub Wrazliwosc_Przychodow() 

  For n = 1 To 9 
    Range("zm_p").Value = Range("zm").Cells(1, n).Value 

    Range("raport_p").Cells(1, n).Value = Range("npv").Value 

    Range("raport_p").Cells(2, n).Value = Range("irr").Value 

    Range("raport_p").Cells(3, n).Value = Range("npvr").Value 

    Range("raport_p").Cells(4, n).Value = Range("pb").Value 

  Next n 
Range("zm_p").Value = 1 

End Sub 

9.  Ponieważ należy ocenić wrażliwość na cztery pozostałe czynniki jakimi są: poziom kosztów, stopy podatku, 

dyskonto i nakłady, należy utworzyć w analogiczny sposób następujące makra. 

a.  Wrazliwosc_Kosztow 

b.  Wrazliwosc_Podatek 

c.  Wrazliwosc_Naklady 

d.  Wrazliwosc_Dyskonto 

10.  Ostatnim etapem jest utworzenie makra uruchamiającego powyższe makra oraz przypisanie go do przycisku w 

arkuszu z analizą wrażliwości. 

Sub Wrazliwosc_Razem() 

Wrazliwosc_Przychodow 

Wrazliwosc_Kosztow 

Wrazliwosc_Dyskonto 
Wrazliwosc_Podatek 

Wrazliwosc_Naklady 

End Sub 

11.  Opcjonalnie można dodać moduł zawierający następujące makro pozwalające na obliczanie okresu zwrotu oraz 

wpisanie następującej formuły w odpowiedniej komórce - =payback(C21:M21). 

Function Payback(cvec) 

Dim csum 
Dim i As Integer 

If cvec(1) >= 0 Or Application.Sum(cvec) < 0 Then 

    Payback = "Brak zwrotu" 

Else 

    csum = 0 

    For i = 1 To Application.Count(cvec) 
    csum = csum + cvec(i) 

    If csum > 0 Then 

    Exit For 

    End If 

    Next i 

    csum = csum - cvec(i) 
    Payback = Application.Round(i - 2 - csum / cvec(i), 5) 

End If 

End Function 

Funkcja na podstawie: Zaawansowane Modele Finansowe z wykorzystaniem Excela i VBA, M. Jackson i M. Staunton, 

WileyFinance 2004, Helion