Program MS-Excel można wykorzystać do wystawiania faktur klientom. Pewną trudność może sprawiać wpisywanie słownej kwoty do zapłaty. Excel nie posiada gotowej funkcji, która daną liczbę wyświetla w postaci słownej (tj. zamiast 123 wypisuje sto dwadzieścia trzy złote 0/100). Jednak dodając poste makro można rozszerzyć funkcjonalność programu MS Excel o funkcję SLOWNIE. Aby to zrobić, należy wykonać następujące kroki:
Pobierz archiwum zawierające plik slownie.bas
Uwaga: nie znam autora owej funkcji. Plik ten sam pobrałem ponad 20 lat temu z nieistniejącej już strony vb4all.canpol.pl Publikuję go w dobrej wierze, mam nadzieje, że autor tej funkcji nie ma nic przeciwko 🙂
- Pobierz plik slownie.zip i go rozpakuj do dowolnego folderu (później możesz ten plik usunąć, gdyż będzie on już zaimportowany do Twojego projektu)
- Uruchom program MS Excel
- Naciśnij kombinację klawiszy ALT+F11, aby włączyć edytor makr
- W oknie dialogowym Project – VBAProject (patrz rysunek poniżej) kliknij prawym przyciskiem myszy na "białej przestrzeni" i z menu podręcznego wybieramy opcję Import File (jeśli nie widzisz okienka Project – VBA Project to naciśnij kombinację klawiszy CTRL+R lub z menu View wybierz opcję Project Explorer)
- Wskaż plik slownie.bas
- W Drzewku powinien się pojawić folder o nazwie Modules a w nim moduł o odpowiedniej nazwie
- Moduł zawiera zaimportowane funkcje (w naszym przypadku jest to funkcja o nazwie Slownie)
- Aby przejść do Excel'a należy nacisnąć kombinację klawiszy ALT+F11
- W dowolnej komórce wpisz formułę =SLOWNIE(A1) a w komórce A1 umieść jakąś liczbę
Uwaga: aby plik Excelowy zawierał makra należy go zapisać z rozszerzeniem XLSM (Skoroszyt programu Excel z obsługą makr). Zapisując plik z rozszerzeniem XLSX zapisujemy skoroszyt, ale bez makr. Chcąc natomiast zapisać dany skoroszyt jako szablon, należy go zapisać z rozszerzeniem XLTM (Szablon programu Excel z obsługą makr) a nie XLTX
Uwaga2: W innym wpisie opisałem również, jak to można uzyskać ten sam efekt bez konieczności korzystania z makr. Jednak celem tego artykułu było pokazanie, jak można zaimporotwać dowolne funkcje rozszerzające możliwości programu Excel.
