كود لإلتفاف النص

[محمود_الشريف]

إخوتى فى الله

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

 

هذا الكود لعمل التفاف للنص بناء على طلب احد الاخوة بالمنتدى

أحببت ان اضعه بين أيديكم لتعم الفائده 

يوضع بموديول ومن ثم يتم ربطه بزر 

يجب عليك تحديد المدى او الخليه المطلوبه ومن ثم تقوم بالضغط على الزر

ويوجد بالمرفقات مثال على ذلك

وتقبلوا منى وافر الاحترام والتقدير

Sub M_elshrief_FormatCell()
   Selection.ColumnWidth = 8
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.wrAPText = True '!!!!!!!!!!!!!!!!!!!!!
.Orientation = 0
End With

End Sub

التفاف النص.rar

[إبراهيم ابوليله]

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

اخى محمود كود جميل

بارك الله فيك

تقبل تحياتى

[محمود_الشريف]

أخى فى الله

الأستاذ الكبير // ابراهيم ابو ليله

بارك الله فيكم على مروركم الجميل وثناؤكم على الموضوع

تقبل منى وافر الإحترام والتقدير