دالة للكتابة بالمقلوب فى الاكسيل

[محمد طاهر عرفه]

Function refverseText(mycell)


   Dim mcount As Long, mtxt As String

   mcount = Len(mycell.Value)

mtxt = mycell.Value

Dim m As String

For i = mcount To 1 Step -1

 m = m & Mid(mtxt, i, 1)

Next i

refverseText = m

End Function

reversetext.zip