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

[محمد طاهر عرفه]

 

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

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

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

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

كما هو مبين:

 

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

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

[السعيد سعيدي]

بارك الله فيك استاذنا الغالي وجعلها الله في ميزان حسناتك

[0d59eacf59]

بارك الله فيك وفي ميزان حسناتك 

 

 

 

 

 

 

 

 

 

 

 

 

Nox vidmate vlc

[محمد حسن المحمد]

بارك الله بكم أستاذنا الفاضل

أسأل الله تعالى أن يجعل ذلك بميزان حسناتكم آمين 🏵️