اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

اخى الكريم وفقق الله دائما وجزاك الله كل الخير على الاهتمام ولكن يا اخى كنت اود فى ترتيب الوظيفة يبدا برئيس قطاع -ثم رئيس ادارة مركزية ثم مدير عام ثم مدير ادارة وبالنسبة لنوعية الدرجة تخصصية ثم مكتبية ثم فنية ثم عمالية وبالنسبة لعمود الدرجة فيبدا بكبير ثم الاولى وهكذا ارجو ان اكون لم اطل عليك وشكراً

قام بنشر

السلام عليكم

أخي العزيز

لابد من مرجع حسابي لعملية الترتيب

كأن يكون رقميا أو حروفا أبجدية

ولكن يمكنك التحايل علي ذلك بالتالي

في ترتيب الوظيفة

تغير وظيفة   رئيس قطاع             إلي 1-رئيس قطاع

وتغير وظيفة رئيس ادارة مركزية    إلي 2-رئيس ادارة مركزية

وتغير وظيفة مدير عام                 إلي 3-مدير عام

وتغير وظيفة مدير ادارة                إلي 4- مدير ادارة

قام بنشر

السلام عليكم

 

بعد اذن استاذ طارق 

 

هذه محاولة باستخدام تعريفة مسبقة و Vlookup .


Application.ScreenUpdating = False
l = Range("b" & Rows.Count).End(xlUp).Row
Range("i2:i" & l).FormulaR1C1 = "=VLOOKUP(RC[-1],C[3]:C[4],2,FALSE)"
Range("j2:j" & l).FormulaR1C1 = "=VLOOKUP(RC[-4],C[4]:C[5],2,FALSE)"
Range("k2:k" & l).FormulaR1C1 = "=VLOOKUP(RC[-4],C[5]:C[6],2,FALSE)"
Range("a2:k" & l).Sort key1:=[i2], key2:=[j2], key3:=[k2]
Range("i2:k" & l).ClearContents
Application.ScreenUpdating = True
End Sub

تحياتي

ترتيب+-++.rar

قام بنشر

أخى الحبيب ( محمد ) ليس هناك طريقة فعالة لإجراء الترتيب المطلوب سوى ماقالة

أستاذنا ( طارق محمود ) فلابد من وجود شرط تجرى على أساسة عملية الترتيب

تقبل فائق أحترامى

قام بنشر

ممكن مساعدتى فى تطبيق فكرة وهى جعل اعطاء قيم لعمود الوظيفة رئيس قطاع = 1000 ورئيس ادارة مركزية =900 وهكذا وبالنسبة للعمود نوعية الدرجة اعطاء الهندسية =90 وتخصصية=80وفنية=70وعمالية=60وبالنسبة لعمود الدرجة اعطاء مدير عام=9 وكبير =8 والاولى =7 وهكذا على ان يتم تجميع الدرجات والترتيب وفقا للمجموع

قام بنشر

السلام عليكم

 

استاذ فاروق 

 

هناك بيانات في العمود L الي العمود Q هذه يعمل الكود علي اساسها جرب تعديلها بما يناسبك و الاضافة عليها و سيستجيب الكود للتغير .

 

تحياتي وارجو ان تفي بالغرض 

  • 1 year later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information