ايهاب سعيد قام بنشر ديسمبر 13, 2012 مشاركة قام بنشر ديسمبر 13, 2012 هل يوجد كود للفرز يمكن اضافته لاي فورمة رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر ديسمبر 13, 2012 مشاركة قام بنشر ديسمبر 13, 2012 السلام عليكم يوجد ارفق مثال اذا تكرمت تحياتي رابط هذا التعليق شارك More sharing options...
ايهاب سعيد قام بنشر ديسمبر 13, 2012 الكاتب مشاركة قام بنشر ديسمبر 13, 2012 مع الشكر والعرفان ارفق لسيادتكم ملف مرتبات اريد من خلال نموذج او فورمة اقوم بالفرز طبقا لتاريخ او الوظيفة او الاثنان معا ان امكن كشف مرتبات.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر ديسمبر 14, 2012 مشاركة قام بنشر ديسمبر 14, 2012 ماذا تقصد فرز طبقا لتاريخ او وظيفة ؟ الفرز تصاعدي او تنازلي فقط ؟ اذا كنت تقصد تصفيه حسب شرط او شرطين معاً لابأس رابط هذا التعليق شارك More sharing options...
ايهاب سعيد قام بنشر ديسمبر 14, 2012 الكاتب مشاركة قام بنشر ديسمبر 14, 2012 فرز تصاعدي اذا امكن مع الشكر رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر ديسمبر 14, 2012 مشاركة قام بنشر ديسمبر 14, 2012 (معدل) هذا الكود في حدث الورقة قبل تنفيذ الكود الغي جميع الخلايا المدموجه اضفت سطر في الكود لإلغاء الخلايا المدموجة للفرز لأي عمود انقر مرتين في عنوان العمود السطر الخامس Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, [B4:AH4]) Is Nothing Then With ActiveSheet Cells.UnMerge Dim Rw$ E = Cells(Rows.Count, 3).End(xlUp).Row Rw = "5:" & E .Rows(Rw).Sort Key1:=.Cells(5, 2), Order1:=xlAscending, Header:=xlNo .Cells(5, 2).HorizontalAlignment = xlRight Cancel = True ' .Rows(Rw).Sort Key1:=.Cells(5, 2), Order1:=xlDescending, Header:=xlNo ' .Cells(5, 2).HorizontalAlignment = xlRight ' Cancel = True End With End If End Sub تم تعديل ديسمبر 14, 2012 بواسطه عباد رابط هذا التعليق شارك More sharing options...
ايهاب سعيد قام بنشر ديسمبر 14, 2012 الكاتب مشاركة قام بنشر ديسمبر 14, 2012 اكثر من رائع اخي الفاضل رابط هذا التعليق شارك More sharing options...
ايهاب سعيد قام بنشر ديسمبر 14, 2012 الكاتب مشاركة قام بنشر ديسمبر 14, 2012 ولكن لي ملاحظة بسيطة هو ان الفرز يتم للعمود b فقط اما باقي الاعمدة فعندم اضغط مرتين لاي تم شي مع الشكر علي الاهتمام رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر ديسمبر 14, 2012 مشاركة قام بنشر ديسمبر 14, 2012 السموحه على هذا الخطاء تفضل Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, [B4:AH4]) Is Nothing Then With ActiveSheet Cells.UnMerge Dim Rw$ E = Cells(Rows.Count, 3).End(xlUp).Row Rw = "5:" & E .Rows(Rw).Sort Key1:=.Cells(5, Target.Column), Order1:=xlAscending, Header:=xlNo .Cells(5, Target.Column).HorizontalAlignment = xlRight Cancel = True ' .Rows(Rw).Sort Key1:=.Cells(5, Target.Column), Order1:=xlDescending, Header:=xlNo ' .Cells(5, Target.Column).HorizontalAlignment = xlRight ' Cancel = True End With End If End Sub رابط هذا التعليق شارك More sharing options...
ايهاب سعيد قام بنشر ديسمبر 14, 2012 الكاتب مشاركة قام بنشر ديسمبر 14, 2012 ممتاز اشكرك بشدة علي مساعدتك رابط هذا التعليق شارك 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.