abumalak قام بنشر مايو 4, 2011 قام بنشر مايو 4, 2011 إخواني إستفساري هو أن لديه قائمة أسماء وأيضا قائمة نتائج لديهم أريد أن يتم عملية فرز تصاعدي لها بمعادلة تقرأ تلقائيا بدون أن أضغط زر الفرز الموجود في الإكسل ولقد وضعت لكم مثال على ذلك في المرفقات وشكرا Exampel.zip
عبد الفتاح كيرة قام بنشر مايو 4, 2011 قام بنشر مايو 4, 2011 تفضل لا حاجة لجدولين فقط غير فى قيمة العمود b If Target.Column = 2 Or Target.Column = 3 And Target.Row > 2 Then Call Macro1 End If ' Macro1 Macro ' ' Range("A2:B7").Select ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B3:B7"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Sheet1").Sort .SetRange Range("A2:B7") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("B3").Select Exampel-kemas.rar
بن علية حاجي قام بنشر مايو 4, 2011 قام بنشر مايو 4, 2011 السلام عليكم ورحمة الله أخي الكريم، ألق نظرة على الملف المرفق عله يكون المطلوب... أخوك بن علية Example.rar
بن علية حاجي قام بنشر مايو 4, 2011 قام بنشر مايو 4, 2011 السلام عليكم ورحمة الله أخي الكريم وهذا حل آخر باستعمال VBA كما فعل أخي الحبيب Kemas جزاه الله عنا ألف خير وخير... أخوك بن علية Example_3.rar
عبد الفتاح كيرة قام بنشر مايو 4, 2011 قام بنشر مايو 4, 2011 أشكرك أخى الحبيب بن علية جهودك رائعة فى مساعدة الإخوة بارك الله لنا فى علمك وزادك منه
A_ALOMANI قام بنشر مايو 5, 2011 قام بنشر مايو 5, 2011 يعطيكم العافية جميعاً ... خطوات متنوعة لهدف واحد ... وبمجهود جميل
abumalak قام بنشر مايو 7, 2011 الكاتب قام بنشر مايو 7, 2011 بارك الله فيكم وكتب لكم الأجر وعمل معي بكل نجاح ابو ملاك
ريان أحمد قام بنشر مايو 7, 2011 قام بنشر مايو 7, 2011 بارك الله فيكم هذا ما كنت أبحث عنه وجزاكم الله كل خير أستاذي كيماس أستاذي hben شكرا لكم وإلى الأمام بدون رجوع معا يدا بيد نحو القمة قمة العطاء بدون حدود ...........
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.