المطلوب اضافة شرط ثالث للكود يعمل علي العمود c

[commandos1975]

Sub a_b()
'
' a_b Macro
' Macro recorded 12/11/2009 by USER
'

'
    Application.GoTo Reference:="sheet"
    Selection.Sort Key1:=Range("E7"), Order1:=xlAscending, Key2:=Range("F7") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
    Range("A1").Select
End Sub

 

[أ / محمد صالح]

الكود يقوم بترتيب النطاق المسمى sheet حسب العمود E تصاعدي ثم العمود F تصاعدي

ما المطلوب ؟

[commandos1975]

ترتيب العمود الثالث وليكن c ايضا تصاعدي

[أ / محمد صالح]

يمكنك إضافة العمود c في الترتيب المطلوب

هنا تم اعتباره المستوى الثالث للترتيب

Sub a_b()
Application.GoTo Reference:="sheet"
Selection.Sort Key1:=Range("E7"), Order1:=xlAscending, Key2:=Range("F7") _
               , Order2:=xlAscending, Key3:=Range("c7"), Order3:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
               False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
               :=xlSortNormal, DataOption3:=xlSortNormal
Range("A1").Select
End Sub

لاحظ إضافة key و order و dataoption لكل مستوى فرز

بالتوفيق