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.
Jak działa?
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
Jak działa?
Brak komentarzy:
Prześlij komentarz