mohamed deyaa eldin قام بنشر أكتوبر 20, 2019 مشاركة قام بنشر أكتوبر 20, 2019 اللهم صلي علي سيدنا محمد اريد لو سمحت ترتيب العمود A تصاعديا في نفس الكود Split_cells.xlsm رابط هذا التعليق شارك More sharing options...
احمد بدره قام بنشر أكتوبر 20, 2019 مشاركة قام بنشر أكتوبر 20, 2019 جرب هذا Split_cells.xlsm رابط هذا التعليق شارك More sharing options...
mohamed deyaa eldin قام بنشر أكتوبر 20, 2019 الكاتب مشاركة قام بنشر أكتوبر 20, 2019 لو سمحت ممكن تنسخ الكود هنا علشان مش شغال معايا رابط هذا التعليق شارك More sharing options...
mohamed deyaa eldin قام بنشر أكتوبر 20, 2019 الكاتب مشاركة قام بنشر أكتوبر 20, 2019 شكرا رابط هذا التعليق شارك More sharing options...
احمد بدره قام بنشر أكتوبر 20, 2019 مشاركة قام بنشر أكتوبر 20, 2019 لا شكر على واجب فكلنا أخوةوالمنتدى تعليمي بالدرجة الأولى 1 رابط هذا التعليق شارك More sharing options...
mohamed deyaa eldin قام بنشر أكتوبر 20, 2019 الكاتب مشاركة قام بنشر أكتوبر 20, 2019 vba مش بيكتب عندى عربي علشان كدا الاكسيل مش بيتغل معايا @احمد بدره رابط هذا التعليق شارك More sharing options...
mohamed deyaa eldin قام بنشر أكتوبر 20, 2019 الكاتب مشاركة قام بنشر أكتوبر 20, 2019 اي اكسيل بتبعته مش بيشتغل معايا رابط هذا التعليق شارك More sharing options...
احمد بدره قام بنشر أكتوبر 20, 2019 مشاركة قام بنشر أكتوبر 20, 2019 قبل نسخ الكود تأكد بأن اللغة العربية تم اختيارها من شريط المهام ( أسفل الشاشة ) حتى يتم نسخ الكود بدون مشاكل تأمل الصورة رابط هذا التعليق شارك More sharing options...
mohamed deyaa eldin قام بنشر أكتوبر 20, 2019 الكاتب مشاركة قام بنشر أكتوبر 20, 2019 Split_cells (1).xlsm رابط هذا التعليق شارك More sharing options...
احمد بدره قام بنشر أكتوبر 20, 2019 مشاركة قام بنشر أكتوبر 20, 2019 الكتابة ظهرك معك بهذه الطريقة لأنك لم تحول اللغة إلى العربية قبل النسخ و قمت بالتعديل على الكود حتى يتسنى لك تشغيل الكود وإليك الملف بعد التعديل Sub Sort() Range("A1:E1001").Select ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("A1:A1001") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.ActiveSheet.Sort .SetRange Range("A1:E1001") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("F1").Select End Sub Split_cells.xlsm 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر أكتوبر 20, 2019 أفضل إجابة مشاركة قام بنشر أكتوبر 20, 2019 استاذي أحمد لا حاجة لهذا الكود الطويل المفصل بالنسبة لابجدة الجدول كما ان عمليات SELECT ترهق الاكسل بدون فائدة (الرجاء قدر الامكان الاستغناء عنها) يكفي هذا الكود الخفيف Sub sort_me() Range("A1").CurrentRegion.Sort _ key1:=Range("A1"), Order1:=1, Header:=2 End Sub 4 رابط هذا التعليق شارك More sharing options...
احمد بدره قام بنشر أكتوبر 20, 2019 مشاركة قام بنشر أكتوبر 20, 2019 أستاذي ومعلمي الفاضل سليم حاصبيا أشكرك على مرورك العطر الذي يجعلنا نستفاد من علمك بارك الله فيك رابط هذا التعليق شارك More sharing options...
mohamed deyaa eldin قام بنشر أكتوبر 21, 2019 الكاتب مشاركة قام بنشر أكتوبر 21, 2019 شكرا استاذ سليم 👍 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان