محمد طاهر عرفه قام بنشر يوليو 7, 2020 مشاركة قام بنشر يوليو 7, 2020 اعرض الملف كود لقلب وضعية بلوكات كاملة طلب مني زميل حل لعكس ترتيب مجموعة من بلوكات البيانات من الوضعية الافقية الي الوضع الرأسي و ذلك دون تغيير وضعية البيانات داخل البلوك الواحد ، كما هو مبين فى الضورة يمتاز الكود بعدم مجدودية عدد البلوكات (يتم الاختيار طبقا للتظليل) و يمكن تعديله بسهولة ليناسب اعداد الاعمدة المختلفة داخل البلوك و ذلك يتعديل قيمة متغير واحد فى الكود. و لكي تستخدم هذا الكود قم اولا بتحديد عدد الأعمدة داخل كل بلوك عن طريق المتغير CC فى الكود و فى المثال هنا عدد أعمدة كل بلوك هو 3 ـ و يمكنك تغييره كما تشاء ثم قم بتظليل كافة البيانات المراد تغيير وضعها على أن تكون عدد الاعمدة المختارة من مضاعفات الرقم المختار لأعمدة كل بلوك ثم شغل الكود Sub PivotBlocks_arafa() Dim r, c, b As Integer Dim g As String cc = 3 ' قم بتعديل هذا الرقم لتغيير عدد الاعمدة الافتراضي فى البلوك الوحد r = Selection.Rows.Count c = Selection.Columns.Count b = c / cc g = ActiveCell.Address For x = 1 To b - 1 Range(ActiveCell.Offset(0, cc * x), ActiveCell.Offset(r - 1, cc * x + cc - 1)).Cut ActiveCell.Offset(r * x - 1 + 1, 0).Activate ActiveSheet.Paste Range(g).Activate Next x End Sub صاحب الملف محمد طاهر تمت الاضافه 07 يول, 2020 الاقسام قسم الإكسيل 8 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يوليو 7, 2020 مشاركة قام بنشر يوليو 7, 2020 عمل ممتاز استاذ محمد بارك الله فيك وزادك الله من فضله 3 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يوليو 7, 2020 مشاركة قام بنشر يوليو 7, 2020 رائع دائما بشمهندس @محمد طاهر وكود بسيط ورائع جدا تقبل تحياتي 1 رابط هذا التعليق شارك More sharing options...
moneer saad قام بنشر يوليو 9, 2020 مشاركة قام بنشر يوليو 9, 2020 عمل ممتاز استاذ محمد 1 رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر يوليو 11, 2020 الكاتب مشاركة قام بنشر يوليو 11, 2020 شكرا علي كلماتكم الطيبة 🌷 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر يوليو 12, 2020 مشاركة قام بنشر يوليو 12, 2020 أحسنت استاذ محمد جزاك الله كل خير وزادك الله من فضله رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر يونيو 28, 2021 الكاتب مشاركة قام بنشر يونيو 28, 2021 تم اضافة الاصدار الثاني من الملف و هو يحوي كود اضافي لاعادة الوضع لما كان عليه اي تحويل البلوكات الرأسية مرة أخرى إلى أفقية و بالطبع يمكن استخدامه بمفرده حال وجود البيانات الأصلية كبلوكات فى صورة رأسية 1 رابط هذا التعليق شارك 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.