مستخدم الاوفس قام بنشر يناير 28, 2019 مشاركة قام بنشر يناير 28, 2019 السلام عليكم ورحمة الله وبركاته اخواني الاعزاء لدي مشكلة في تحويل البيانات من الترتيب في العمود الى الصفوف انا اعرف اكثر من طريقة (استخدام ددالة Transpose واللصق الخاص وتبديل الوضع اثناء اللصق) ولكن هذه الطرق لا تلبي الغرض كثرة البيانات بحيث تحتاج الى ترتيب وكما مبين في المثال المرفق وفقكم الله لكل خير المصنف1.xlsx رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 28, 2019 مشاركة قام بنشر يناير 28, 2019 جرب هذا الشيء الكود Option Explicit Sub transform_To_Table() With Salim Dim My_rg As Range Dim I%, R%, Col%, M%: M = 5 Dim ro%: ro = 5 Col = .[M2] .Range("e5").CurrentRegion.ClearContents R = .Cells(Rows.Count, 1).End(3).Row For I = 2 To Range("a2:a" & R).Rows.Count - 1 .Cells(ro, M) = .Range("a" & I) M = M + 1 If M > Col + 4 Then M = 5: ro = ro + 1 Next End With End Sub الملف مرفق My_table.xlsm 1 رابط هذا التعليق شارك More sharing options...
مستخدم الاوفس قام بنشر يناير 28, 2019 الكاتب مشاركة قام بنشر يناير 28, 2019 الله يوفقك اخي العزيز وهو المطلوب لكن ممكن طريقة باستخدام المعادلات انا احاول الابتعاد عن الاكواد وشكرا لك رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يناير 28, 2019 مشاركة قام بنشر يناير 28, 2019 بارك الله فيك استاذ سليم عمل رائع ولإثراء الموضوع هذا ملف بالمعادلات المصنف1.xlsm 2 رابط هذا التعليق شارك More sharing options...
مستخدم الاوفس قام بنشر يناير 28, 2019 الكاتب مشاركة قام بنشر يناير 28, 2019 شكرا لكم وفقكم الله رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 28, 2019 مشاركة قام بنشر يناير 28, 2019 ملف اخر بالمعادلات بعد اذن الاخ علي طبعاً انظر الى الصفحة Salim _formula My_table1.xlsm رابط هذا التعليق شارك More sharing options...
مستخدم الاوفس قام بنشر يناير 28, 2019 الكاتب مشاركة قام بنشر يناير 28, 2019 شكرا لكم جميعا " رابط هذا التعليق شارك 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.