أوفيسنا: أوفيسنا -> تحديد الأوزان النسبية و التقييم + تطبيق بالإكسيل

عند مقارنة خيارات متعددة وفقا لمعايير محددة ، يتم أولا تحديد وزن نسبي لكل من هذه المعايير حتى نستطيع الوصول الى قرار

و هنا سنعرض لطريقة تحديد الأوزان النسبية ، و من ثم عمل التقييم
و طبعا اشهر تطبيق لذلك عند المقارنة بين المتقدمين لمناقصة معينة وفقا لعدة معايير

و هنا يشتمل المثال على المقارنة بين عدة أنواع افتراضية من السيارات وفقا لمجموعة من المعايير مثل السعر و الصيانة و درجة الرفاهية و درجة الأمان ، و بناء على ذلك سنتعلم كيف نضع أوزان نسبية لكل من المعايير ، و بناء على ذلك تتم عملية المفاضلة

ومرفق مثال بالاكسيل يحوي أتمتة كاملة لتطبيق الطريقة التي تم شرحها فى العرض التقديمي ، يحوى دالتين بالكودالمثال معد بواسطة اكسيل 2007

الشرح و الملف التطبيقي فى مكتبة الموقع
و قد تم اليوم اضافة الاصدار الثالث
http://www.officena....ads&showfile=96

Function countme(Mycell, Mychr)
countme = 0
 For i = 1 To 4
  If Mid(Mycell, i, 1) = Mychr Then countme = countme + 1
 Next i
End Function

Function Countmyrange(Myrange As Range, Mychr)
 For i = 1 To Myrange.Cells.Count
  Countmyrange = Countmyrange + countme(Myrange.Cells(i), Mychr)
 Next i
End Function