ابوالبراء قام بنشر سبتمبر 30, 2014 مشاركة قام بنشر سبتمبر 30, 2014 السلام عليكم ورحمة الله اعزائي اشكر الجميع القائمين والفعالين على هذا المنتدى الفعال وان يسعدهم دنيا واخره لا اطيل عليكم عند قيامي بالتصفح هنا وجدت ملف لأحد الاخوان الفعالين ويوجد به قائمه ذكيه لترتيب الاسماء ابجدياً.. لاكنني اريد تغيير ذلك بحيث تترتب حسب النص المطلوب كما بالمرفق.. ولكم خالص الشكر القائمة الذكية11.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 30, 2014 مشاركة قام بنشر سبتمبر 30, 2014 السلام عليكم هل تقصد هكذا حاول ان تحذف اسماً دون الرقم و سوف ترى النتيجة ترقيم.rar رابط هذا التعليق شارك More sharing options...
ابوالبراء قام بنشر سبتمبر 30, 2014 الكاتب مشاركة قام بنشر سبتمبر 30, 2014 اشكرك استاذي سليم على تجاوبك السريع واشكرك ايضا على معلوماتك ووقتك لكن ليس هذا ما قصدته ...اريد مثل العمل الذي بالمرفق لدي لكن الترتيب حسب الاسم وبدون ترقيم...مثلا الفجر الظهر العصر المغرب العشاء فدائما يكون بالترتيب الفجر والذي يليه حتى لو تكرر مثلا.. الفجر الفجر الظهر....وهكذا رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أكتوبر 1, 2014 مشاركة قام بنشر أكتوبر 1, 2014 (معدل) الأخ سالم تفضل الملف المرفق فيه ترتيب محدد كما تريد Custom List أي قائمة مخصصة بالأكواد رجاء من كبار المنتدى حل مشكلة اللغة العربية في هذا الكود ، حيث أن الكود يعمل بكفاءة مع الإنجليزية أما إذا استخدمت قائمة مخصصة باللغة العربية فلا تكون النتائج صحيحة أرجو الحل Sort Custom List.rar تم تعديل أكتوبر 1, 2014 بواسطه YasserKhalil رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أكتوبر 1, 2014 مشاركة قام بنشر أكتوبر 1, 2014 وجدت حل للكود حتى يعمل مع اللغة العربية تفضل المرفق التالي Sort Custom List.rar 1 رابط هذا التعليق شارك More sharing options...
قصي قام بنشر أكتوبر 1, 2014 مشاركة قام بنشر أكتوبر 1, 2014 لو تكرمت نريد الملف 2003 بارك الله فيك رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أكتوبر 1, 2014 مشاركة قام بنشر أكتوبر 1, 2014 لو تكرمت نريد الملف 2003 بارك الله فيك تفضل أخي قصي Sort Custom List.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أكتوبر 1, 2014 مشاركة قام بنشر أكتوبر 1, 2014 يمكن استخدام النطاق بدلا من كتابة بنود المصفوفة بالشكل التالي : Sub SortCustomList() Dim vArray() As Variant 'Change the range which you want to set the custom list. vArray = Range("J1:J5") Dim i As Long For i = LBound(vArray, 1) To UBound(vArray, 1) Debug.Print vArray(i, 1) Next Application.AddCustomList vArray Range("A1").CurrentRegion.Sort key1:=Range("A1"), OrderCustom:=Application.CustomListCount + 1 Application.DeleteCustomList Application.CustomListCount End Sub كل عام وأنتم بخير إخواني الأعزاء رابط هذا التعليق شارك More sharing options...
قصي قام بنشر أكتوبر 1, 2014 مشاركة قام بنشر أكتوبر 1, 2014 جزاك الله كل خير اخي الاستاذ المحترم ياسر خليل رابط هذا التعليق شارك More sharing options...
ابوالبراء قام بنشر أكتوبر 2, 2014 الكاتب مشاركة قام بنشر أكتوبر 2, 2014 جزاك الله الف خيييير عزيزي ياسر اتمنى لك التوفيق وكل عام وانت بخير رابط هذا التعليق شارك More sharing options...
قصي قام بنشر أكتوبر 2, 2014 مشاركة قام بنشر أكتوبر 2, 2014 (معدل) لو تكرمت نريد الملف 2003 بارك الله فيك تفضل أخي قصي كل عام وحضراتكم بخير بارك الله فيكم تم تعديل أكتوبر 2, 2014 بواسطه قصي رابط هذا التعليق شارك 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.