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 :