Funkcja odwracająca ciąg tekstowy.

Poniżej wpisany jest kod dla funkcji służącej odwracaniu ciągu tekstowego. Być może przyda się komuś. Poniższy kod należy skopiować do modułu w edytorze VBA. Będzie on dostępny w skoroszycie w funkcjach użytkownika.

Function Odwroc_kolejnosc(Wyrazenie As String) As String  
 ' Zwraca odwrócony tekst  
 DlugoscCiagu = Len(Wyrazenie)  
 For i = DlugoscCiagu To 1 Step -1  
 znak = Right(Wyrazenie, 1)  
 Wyrazenie = Mid(Wyrazenie, 1, i - 1)  
 Odwroc_kolejnosc = Odwroc_kolejnosc + znak  
 Next i  
 End Function  

Zastosowanie :

Funkcje użytkownika.

W excelu mamy szereg funkcji z których możemy korzystać. Jednak czasami przydałyby się inne, które nie są dostępne w standardowym zbiorze funkcji. Możemy je sobie sami stworzyć. Oto w jaki sposób:

1. Otwieramy edytor VBA ( skrót ALT+F11).
2. Dodajemy moduł wybierając opcję INSERT a następnie MODULE.

3. Po wstawieniu modułu kopiujemy do niego kod funkcji, lub piszemy bezpośrednio w module.

4. Funkcja ta jest dostępna w skoroszycie po wybraniu funkcji użytkownika.

Nazwa jest taka sama jak nazwa funkcji we wklejonym kodzie.

Akurat przydatność tej funkcji jest praktycznie żadna, gdyż jest już ona dostępna w funkcjach tekstowych pod nazwą LITERY.WIELKIE