الاستاذ / علاء رسلان
شاكر اهتمامك
بالبحث في الشبكه وحدت هذا الكود لكنه لا يعمل بكفأئه
حيث ان هناك بعض الحروف تتقدم في الترتيب علي البعض
مما لايعطي نتيجه سليمه 100%
Function ReverseCell(Rcell As Range, Optional IsText As Boolean)
Dim i As Integer
Dim StrNewNum As String
Dim strOld As String
strOld = Trim(Rcell)
For i = 1 To Len(strOld)
StrNewNum = Mid(strOld, i, 1) & StrNewNum
Next i
If IsText = False Then
ReverseCell = CLng(StrNewNum)
Else
ReverseCell = StrNewNum
End If
End Function
هل من تصحيح للكود