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

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

و طبعا اشهر تطبيق لذلك عند المقارنة بين المتقدمين لمناقصة معينة وفقا لعدة معايير

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

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

الشرح و الملف التطبيقي فى مكتبة الموقع

و قد تم اليوم اضافة الاصدار الثالث

http://www.officena.net/ib/index.php?app=downloads&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