ini yg di cari makasih gan Ganjil genap pake if aja gan, kira2 gini Function Terbalik(sInput) Dim sText As String For i = Len(sInput) To 2 Step -2 sText = sText & Mid(sInput, i - 1, 2) Next i If Len(sInput) Mod 2 = 1 Then 'ganjil sText = sText & Left(sInput, 1) End If Terbalik =
ini ADA di coba pake scrip ini Function terbalik(text) panjang = Len(text) For i = panjang To 1 Step -2 dibalik = dibalik + Mid(text, i - 1, 1) + Mid(text, i, 1) Next i terbalik = dibalik End Function udah bisa tapi jumlah huruf harus genap, kalo ganjil ERROR, ada bisa bantu lagi ndak biar ndak
TX gan, bisa sih masukan begitu, tapi ada permasalahan data sekali masuk lebih seribu data, kalo di kasih # satu satu pegel juga ya gimana ya ada yg otomatis sekaligus semua pasti bisa gan :D Pertama : kasih tanda pemisah di setiap akhir karakter yang akan dibalik posisinya untuk case ente jadin
