عكس اتجاة النص

[أبوساره]

السلام عليكم ..

 

السادة المبدعين  .. أولا : اتقدم بالشكر الجزيل  للقائمين على هذا المنتدى الرائد ( كلمة حق ويجب ان تقال ) 

 

يوجد لدي بيانات بها اعمدة نصية  ولكنها مقلوبة النص يعني  احمد  تكون دمحا  ... 

 

هل  هناك دالة استطيع استخدمها لقلب النص الموجو في الخلية ...

 

و بارك الله في علميكم و زادكم من فضله .....  ( مرفق مثال للمطلوب ) عكس_النص.rar

 

و شكرا لكم سلفاً  

 

اخوكم ابو سارة 

[طارق محمود]

السلام عليكم

أخي العزيز

استخدم الكود التالي

 

Sub reverse()
    For Each ce In Selection
    s = ""
        If Len(ce) > 0 Then
            For i = Len(ce) To 1 Step -1
                s = s & Mid(ce, i, 1)
            Next i
            ce.Offset(0, 0) = s
        End If
    Next ce
End Sub

 

أو ظلل الكلمات المراد عكسها

ثم اضغط الزر في المرفق

عكس_اتجاه النص.rar

[مجدى يونس]

الأخ / طارق

السلام عليكم ورحمة الله وبركاته

ابداع متواصل

 

[بدريويو]

السلام وعليكم ورحمة الله 

اتقدم بالشكر والتقدير للقائمين على هذا المنتدى ولى طلب بسيط عندكم 

اريد كتاب يوضح كيف اكتب الكود وانفذة وخيركم من تعلم العلم وعلمة

[طارق محمود]

السلام عليكم

أخي العزيز / مجدي 

جزاك الله خيرا

 

أخي بدريويو

ممكن تجرب أحد الروابط التالية

 

http://www.officena.net/ib/index.php?showtopic=39323

http://www.officena.net/ib/index.php?showtopic=206

http://www.officena.net/ib/index.php?showtopic=34088

[أبوساره]

بارك الله فيك 

و زادك الله من فضله 

 

و جزاك الله عني خير الجزاء