commandos1975 قام بنشر سبتمبر 19, 2021 مشاركة قام بنشر سبتمبر 19, 2021 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 1 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر سبتمبر 19, 2021 مشاركة قام بنشر سبتمبر 19, 2021 الكود يقوم بترتيب النطاق المسمى sheet حسب العمود E تصاعدي ثم العمود F تصاعدي ما المطلوب ؟ رابط هذا التعليق شارك More sharing options...
commandos1975 قام بنشر سبتمبر 19, 2021 الكاتب مشاركة قام بنشر سبتمبر 19, 2021 ترتيب العمود الثالث وليكن c ايضا تصاعدي رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر سبتمبر 19, 2021 أفضل إجابة مشاركة قام بنشر سبتمبر 19, 2021 يمكنك إضافة العمود 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 لكل مستوى فرز بالتوفيق 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.