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

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


محمد طاهر

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

 

بعض أسئلة الاستبيانات تكون ايجابية و الاخرى سلبية ، و فى حال رغبت فى اخذ متوسطات لاجابات محور معين يضم اسئلة سلبية و ايجابية ، يجب عكس النتائج الرقمية المناظرة لقيمة الرد،  فمثلا الاصل فى حالة مقياس ليكارد الخماس أن تكون اجابة اتفق جدا = 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...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information