طلب كود للفرز

[ايهاب سعيد]

هل يوجد كود للفرز يمكن اضافته لاي فورمة

[الـعيدروس]

السلام عليكم

يوجد ارفق مثال اذا تكرمت

تحياتي

[ايهاب سعيد]

مع الشكر والعرفان ارفق لسيادتكم ملف مرتبات اريد من خلال نموذج او فورمة اقوم بالفرز طبقا لتاريخ او الوظيفة او الاثنان معا ان امكن

كشف مرتبات.rar

[الـعيدروس]

ماذا تقصد فرز طبقا لتاريخ او وظيفة ؟

الفرز تصاعدي او تنازلي فقط ؟

اذا كنت تقصد تصفيه حسب شرط او شرطين معاً لابأس

[ايهاب سعيد]

فرز تصاعدي اذا امكن مع الشكر

[الـعيدروس]

هذا الكود في حدث الورقة

قبل تنفيذ الكود الغي جميع الخلايا المدموجه

اضفت سطر في الكود لإلغاء الخلايا المدموجة

للفرز لأي عمود انقر مرتين في عنوان العمود السطر الخامس

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 بواسطه عباد

[ايهاب سعيد]

اكثر من رائع اخي الفاضل

[ايهاب سعيد]

ولكن لي ملاحظة بسيطة هو ان الفرز يتم للعمود b فقط اما باقي الاعمدة فعندم اضغط مرتين لاي تم شي

مع الشكر علي الاهتمام

[الـعيدروس]

السموحه على هذا الخطاء

تفضل

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

[ايهاب سعيد]

ممتاز اشكرك بشدة علي مساعدتك