كيف افرز عمود من جدول بالكود

[atob]

السلام عليكم ورحمة الله وبركاته

اخواني الاعزاء لدي جدول واريد تصفية وفرز عمود من هذا الجدول بحيث اقوم باختيار القيم التي اريد فرزها عن طريق مربعات اختيار وبعد ذلك افعل الكود

والملف المرفق يوضح اكثر عن طلبي

تصفيه بالكود.rar

واخيرا اشكركم على مساعدتكم لي

[الـعيدروس]

السلام عليكم

جرب الكود التالي

لاتنسى تغير مسمى الشيك الاول من كامله الى كامل

Public Sub Ali_Shp()

Dim A$, B$, C$, D$, V$

With ورقة1

Dim S As Shape, S1 As Shape, S2 As Shape, S3 As Shape

Set S = .Shapes("خانة اختيار 1"): Set S1 = .Shapes("خانة اختيار 2")

Set S2 = .Shapes("خانة اختيار 3"): Set S3 = .Shapes("خانة اختيار 4")

S.Select: Selection.LinkedCell = [x1].Address

S1.Select: Selection.LinkedCell = [x2].Address

S2.Select: Selection.LinkedCell = [x3].Address

S3.Select: Selection.LinkedCell = [x4].Address

A = IIf([x1].Value, S.AlternativeText, "")

B = IIf([x2].Value, S1.AlternativeText, "")

C = IIf([x3].Value, S2.AlternativeText, "")

D = IIf([x4].Value, S3.AlternativeText, "")

.ListObjects("الجدول1").Range.AutoFilter Field:=4, Criteria1:=Array(A, B, C, D), Operator:=xlFilterValues

[A1].Select

End With

End Sub

تحياتي

تصفيه بالكود_A.rar

تم تعديل ديسمبر 26, 2012 بواسطه عباد