mselmy قام بنشر يناير 21, 2009 مشاركة قام بنشر يناير 21, 2009 الاخوه الاعزاء السلام عليكم ورحمة الله هذا الكود منقول من الموقع وتم التعديل عليه فقط , ارجو من الله عز وجل ان يكون فيه فائده للزملاء والله من وراء القصد , والسلام عليكم ورحمة الله sort.rar رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يناير 21, 2009 مشاركة قام بنشر يناير 21, 2009 السلام عليكم استخدم الكود التالي: Sub kh_Sort() Dim Message, Title, Default, MyCOM Dim R As Long, C As Integer Message = "ادخل رقم العمود" & Chr(10) & "من الرقم 1 الى الرقم 3" Title = "رقم العمود" Default = 1 1 MyCOM = InputBox(Message, Title, Default) If MyCOM = CANCEL Then GoTo 2 If Not IsNumeric(MyCOM) Or IsEmpty(MyCOM) Then GoTo 1 C = MyCOM If C < 0 Or C > 3 Then GoTo 1 With Sheets("1") R = Range("a" & .Rows.Count).End(xlUp).Row .Range("a3:C" & R).Sort Key1:=.Cells(3, C), Order1:=xlAscending End With 2 End Sub رابط هذا التعليق شارك More sharing options...
محمدي عبد السميع قام بنشر يناير 22, 2009 مشاركة قام بنشر يناير 22, 2009 بارك الله لكم رابط هذا التعليق شارك More sharing options...
Ezzat2008 قام بنشر يناير 22, 2009 مشاركة قام بنشر يناير 22, 2009 السلام عليكم نسخت الكود الموجود فى هذه المشاركة للأخ خبور خير ووضعته فى مثال ولكنه بعطى رسالة خطأ أرجوتوضيح اين الخطأ وتصحيحه ان أمكن لم استطيع تحمبل الملف رجاء وضع الكود بملف من عندكم أخوكم ezzat 2008 مبتدىء كيف مكن اظهار الكود المحفى ؟ ولكم الشكر رابط هذا التعليق شارك More sharing options...
mselmy قام بنشر يناير 23, 2009 الكاتب مشاركة قام بنشر يناير 23, 2009 يا استاذ / عزت السلام عليكم انا اضفت كود الاستاذ خبور للملف الاول وهو شغال زى الفل , شكرا يا ستاذ خبور sort.rar رابط هذا التعليق شارك 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.