بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
اكسيل VBA | فرز وترتيب البيانات بدون ازرار sort data
درس جديد من دروس اكسل vba
كود مميز جدا لفرز وترتيب البيانات بدون عمل ازرار وذلك بالضغط على راس الجدول يتم فرز البياناتالكود المستخدم
Dim keyrange As Range, columncount As Integer
columncount = Range("list").Columns.Count
Cancel = False
If Target.Row = 1 And Target.Column <= columncount Then
Cancel = True
Set keyrange = Range(Target.Address)
Range("list").Sort key1:=keyrange, Header:=xlYes
End If