عند مقارنة خيارات متعددة وفقا لمعايير محددة ، يتم أولا تحديد وزن نسبي لكل من هذه المعايير حتى نستطيع الوصول الى قرار
و هنا سنعرض لطريقة تحديد الأوزان النسبية ، و من ثم عمل التقييم
و طبعا اشهر تطبيق لذلك عند المقارنة بين المتقدمين لمناقصة معينة وفقا لعدة معايير
و هنا يشتمل المثال على المقارنة بين عدة أنواع افتراضية من السيارات وفقا لمجموعة من المعايير مثل السعر و الصيانة و درجة الرفاهية و درجة الأمان ، و بناء على ذلك سنتعلم كيف نضع أوزان نسبية لكل من المعايير ، و بناء على ذلك تتم عملية المفاضلة
ومرفق مثال بالاكسيل يحوي أتمتة كاملة لتطبيق الطريقة التي تم شرحها فى العرض التقديمي ، يحوى دالتين بالكودالمثال معد بواسطة اكسيل 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
View the full article