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

دالة فى الاكسيل تقوم بعكس نتائج مقياس ليكارد الخماسي من ايجابي لسلبي و العكس


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

 

بعض أسئلة الاستبيانات تكون ايجابية و الاخرى سلبية ، و فى حال رغبت فى اخذ متوسطات لاجابات محور معين يضم اسئلة سلبية و ايجابية ، يجب عكس النتائج الرقمية المناظرة لقيمة الرد،  فمثلا الاصل فى حالة مقياس ليكارد الخماس أن تكون اجابة اتفق جدا = 5 و اتفق = 4 ، .... و هكذا ، فاذا كانت الاسئلة كلها ايجابية و هناك سؤال سلبي فهنا يجب تعديل القيم لاجابات هذا السؤال لتكون اتفق جدا = 1 ، اتفق = 2 ، ... قبل اجراء اية عمليات حسابية على المحور مثل حساب المتوسط مثلا.

و اذا كان التفريغ يدويا فيمكن مراعاة ذلك ، اما فى حالة استخدام ادوات الكترونية لجمع الاستبيان فان الارقام تكون مسجلة بالفعل و يجب تعديلها ، و قد تكون العملية مرهقة فى حالة تعدد المتغيرات او كبر حجم العينة.

و بالطبع يمكن تعديل الاسئلة لتكون فى نفس المحور ايجابية او سلبية ، و لكن فى بعض الاحيان يكون من الاسهل على مجيب الاستبيان الاجابة عن الصيغة الايجابية او السلبية بحسب المتعارف عليه في بعض مجالات التخصص ، فبصرف النظر عن صحة وجود اسئلة سلبية و ايجابية فى نفس المحور ، للقيام بعملية تعديل (عكس) نتائج عدد من الاجابات لتحويلها من ايجابية الي سلبية بصورة الية  ،  قمت باعداد دالة فى الاكسيل لتقوم بهذا الغرض (مرفق المثال). 

لنفرض ان الاجابات الاصلية كانت عن درجة الاتفاق مع كون وقت المشروع مناسب ، و اردتا تغيير الاجابات لتعبر عن كون زمن المشروع غير مناسب 

كما هو مبين:

image.png.a21e99ba44e0f5aedb4c869941acdb3f.png

 

 و ذلك عن طريق استخدام الدالة التالية:

Function Reverse_Ordinal2(original_Ordinal As Byte)

 Dim newVal As Byte
 Select Case original_Ordinal
   Case Is = 1
    newVal = 5
   Case Is = 2
    newVal = 4
   Case Is = 3
    newVal = 3
   Case Is = 4
    newVal = 2
   Case Is = 5
    newVal = 1
   Case Else
    newVal = 0
 End Select

  Reverse_Ordinal2 = newVal
 
End Function

 مرفق المثال

و لتشغيله يجب تفعيل  الماكرو  فى ملف الاكسيل

و يتم ادراج الكود فى ملف اخر عن طريق فتح شاشة محرر البيزيك ALT+F11 ثم :

  1.  السحب للملف الحديد
  2. او اختيار ادراج موديول جديد و نسخ الكود
  3. او استخدام الدالة و الملف المرفق مفتوح

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

 

ReverseOrdinalLekerd.xlsm

  • Like 2
  • Thanks 2
رابط هذا التعليق
شارك

  • 2 years later...
زائر
هذا الموضوع مغلق.
×
×
  • اضف...

Important Information