بعد حساب المتوسطات لاي مجموعة من المتغيرات المقاسة بواسطة مقياس ليكارد الخماسي ، تحتاج لتقييم المتوسط لمعرفة مدلول للمتوسط ، هي مثلا اتفق جدا أو اتفق أو ....
فمثلا اذا كانت قيمة المتوسط تقع بين 1 و 1.79 فهذا يعني ان نتيجة المتوسط هي لأ أتفق تماما
و طبعا مع عدد المتغيرات الكبير يحتاج الأمر للأتمتة ، لذا اعددت ملف الاكسيل التالي ليساعد فى ذلك
و هذا هو كود الدالة
Function GetLikert5a(myresult As Single)
Dim ResultEvaluation As String
myresult = Round(myresult, 2)
Select Case myresult
Case 1 To 1.79
ResultEvaluation = "1 Strongly Disagree"
Case 1.8 To 2.59
ResultEvaluation = "2 Disagree"
Case 2.6 To 3.39
ResultEvaluation = "3 Neutral"
Case 3.4 To 4.19
ResultEvaluation = "4 Agree"
Case 4.2 To 5
ResultEvaluation = "5 Strongly Agree"
Case Else
ResultEvaluation = "Invalid Input"
End Select
GetLikert5a = ResultEvaluation
End Function
مرفق الملفLikert Scale.xlsm