Akademia Górniczo- Hutnicza im. Stanisława Staszica w Krakowie Wydział: Zarządzania Kierunek: Informatyka i ekonometria
Paulina
Królczyk
Cele prezentacji:
Poznanie zagadnień:
•Funkcja VBA
•Instrukcja warunkowa If i instrukcja wyboru Select Case.
Polecenia do wykonania:
•1.
W edytorze VBA, w nowym module napisałam funk cję VBA o nagłówku
:
Function lata_pracy(data As Date) As
Integer
zwracającą wartość ilości przepracowanych lat obliczanych na podstawie różnicy lat pomiędzy rokiem bieżącym a rokiem, w którym pracownik został zatrudniony. Wykorzystałam funkcję Visual Basica Year(….) w arkuszu kalkulacyjnym i użyłam tej funkcji w odpowiedniej formule umieszczonej w kolumnie o nagłówku lata pracy.
•2. Napisałam funkcję VBA o podobnym nagłówku lecz nazwie lata_pracy1, która zwraca wartość ilości faktycznie przepracowanych lat obliczanych za pomocą funkcji
WorksheetFunction.YearFrac. Zapoznałam się w pomocy Visual Basic z opisem tej funkcji. Użyłam funkcji Int do zaokrąglenia do części całkowitej wartości zwracanej przez funkcję YearFrac. W arkuszu kalkulacyjnym w kolumnie o nagłówku lata pracy zamień wywołanie funkcji lata_pracy na lata_pracy1.
3. Napisałam funkcję VBA o nagłówku:
Function Wysługa(lata As Integer,
pensja As Currency) As Currency
której wynikiem jest wartość wysługi lat obliczonej wg formuły z treści zadania. W tym celu wykorzystałam składnię instrukcji If zastosowaną w przykładowej funkcji Podatek. Zastosowałam funkcję Wysługa w formule umieszczonej w kolumnie o nagłówku wysługa. Jako jeden argumentów przyjmij wartości
4.Napisałam funkcję VBA o nagłówku:
•Function Wysługa1(data As
Date, pensja As Currency) As Currency, wyznaczającą podobnie jak poprzednia wysługę lat. Wywołałam funkcję lata_pracy1 wewnątrz tej
funkcji, w celu wyznacznie lat pracy na podstawie argumentu data. . Ponadto zastosowałam zamiast instrukcji If instrukcję Select Case wzorując się na przykładzie funkcji podatek1. Wywołałam tę funkcję w arkuszu w nowej kolumnie o nagłówku