-->

اكسيل VBA | فرز وترتيب البيانات بدون ازرار sort data

بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس


اكسيل 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



لتحميل ملف العمل 

رابط اخر لتحميل ملف العمل

Emad ghazi
كاتب المقالة
كاتب ومحرر اخبار اعمل في موقع عالم الاوفيس .

جديد قسم : اكسل متقدم

إرسال تعليق