كيف يمكن عمل ( فرز ) لنطاق بمجرد الضغط على عنوان (heading) أى من اعمدة هذا النطاق

[hsa100]

السلام عليكم

كيف يمكن عمل ( فرز ) لنطاق بمجرد الضغط بالماوس على عنوان (heading) أى من اعمدة هذا النطاق

على ان يكون الفرز بمعيار هذا العمود تنازلى

واشكر لكم اهتمامكم

[الـعيدروس]

السلام عليكم

جرب هذا الكود

ربما يفي بالغرض والشكر موصول لمن كتب الكود

المدى تحدده من الكود موضح علية من اين تعدل

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Application.EnableEvents = False

'=======================================================

' هذا الجزء في حال النقر غير صف 2 من اي عمود لاينفذ الكود

If Target.Row <> 2 Then Exit Sub

'=======================================================

' هذا المدى الذي سيتنفذ فيه الكود!  !

If Not Intersect(Target, Range("A2:I2")) Is Nothing Then

'=======================================================

' نطاق الفرز يبداء من اول سطر البيانات بعد صف 2

	Rows("3:65536").Sort Key1:=Cells(3, Target.Column), _

	Order1:=xlAscending, Header:=xlNo

	Cancel = True

Cells(3, Target.Column).HorizontalAlignment = xlRight

End If

Application.EnableEvents = True

End Sub

يتفعل الكود عند النقر مرتين على صف العمود ماهو ضمن المدى

تم تعديل ديسمبر 28, 2011 بواسطه alidroos

[hsa100]

الاخ الكريم ابو نصار

الف شكر على اهتمامك

جزاك الله خيرا

[الـعيدروس]

لاشكر على واجب

والحمد لله انه المطلوب