Komentarze do: Odwracanie kolejności liter w wyrazach oraz wyrazów w zdaniach http://www.excelblog.pl/odwracanie-kolejnosci-liter-w-wyrazach-oraz-wyrazow-w-zdaniach/ Moje doświadczenia z programem Excel. O formułach, makrach, VBA i innych excelowych "paskudztwach" Sat, 14 Jan 2012 22:39:43 +0000 hourly 1 http://wordpress.org/?v=3.3 Autor: Rafał K http://www.excelblog.pl/odwracanie-kolejnosci-liter-w-wyrazach-oraz-wyrazow-w-zdaniach/comment-page-1/#comment-3524 Rafał K Tue, 27 Oct 2009 17:13:17 +0000 http://www.excelblog.pl/odwracanie-kolejnosci-liter-w-wyrazach-oraz-wyrazow-w-zdaniach/#comment-3524 Public Function ZamienTekst(Tekst As String) As String Dim Odwrocony As String Dim tbl As Variant Odwrocony = vbNullString Tekst = Trim(Tekst) ' usuwam spacje przed i na koncu zdania tbl = Split(Tekst, " ") For i = UBound(tbl) To 0 Step -1 Odwrocony = Odwrocony & " " & tbl(i) Next i ZamienTekst = Trim(Odwrocony) End Function Public Function ZamienTekst(Tekst As String) As String

Dim Odwrocony As String
Dim tbl As Variant

Odwrocony = vbNullString
Tekst = Trim(Tekst) ‘ usuwam spacje przed i na koncu zdania
tbl = Split(Tekst, ” „)

For i = UBound(tbl) To 0 Step -1
Odwrocony = Odwrocony & ” ” & tbl(i)

Next i
ZamienTekst = Trim(Odwrocony)

End Function

]]>