محمد الزريعي قام بنشر سبتمبر 3, 2016 مشاركة قام بنشر سبتمبر 3, 2016 هذا الكود يقوم بتحويل الفقرات الموجودة داخل الخلية الواحدة ، الي فقرة ( سطر ) واحد فقط . لكي يتنسق معك الصفوف بشكل جميل . بدل ما يكون عندك سطر ارتفاعة كثير لوجود فقرات فية . كما هو في الصورة المرفقة . Sub RemoveCarriageReturns() Dim MyRange As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For Each MyRange In ActiveSheet.UsedRange If 0 < InStr(MyRange, Chr(10)) Then MyRange = Replace(MyRange, Chr(10), "") End If Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub هذا الكود للفائدة . فقط .. وخلاصة الكود ( داخل الشرط If ) . الكود منسوخ من موقع غير عربي . 2 رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 3, 2016 مشاركة قام بنشر سبتمبر 3, 2016 جزاك الله خيرا على هذا الكود الممتاز 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر سبتمبر 3, 2016 مشاركة قام بنشر سبتمبر 3, 2016 بارك الله فيك أخي الكريم محمد إليك السطر التالي يفي بالغرض (والعرب بردو عندهم إمكانيات) Sub Test() Cells.Replace What:=Chr(10), Replacement:="" End Sub 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.