دانلود برنامه تست MMPI در اکسل با ماکرو VBA دارای داده های سوال بیش از 100 عدد

دانلود برنامه تست MMPI در اکسل با ماکرو VBA دارای داده های سوال بیش از 100 عدد

تست MMPI یا Minnesota Multiphasic Personality Inventory یکی از قدیمی‌ترین، معتبرترین و پرکاربردترین تست‌های روان‌شناسی برای ارزیابی ویژگی‌های شخصیتی و اختلالات روانی است.

تست MMPI چیست؟

MMPI یک آزمون خودسنجی روان‌شناختی است که نخستین بار در سال 1943 توسط هاتاوی (Hathaway) و مک‌کینلی (McKinley) در دانشگاه مینه‌سوتا طراحی شد. هدف اولیه این تست، کمک به تشخیص اختلالات روانی در بیماران روان‌پزشکی بود.

تست MMPI (Minnesota Multiphasic Personality Inventory) یکی از معتبرترین و پرکاربردترین آزمون‌های روان‌سنجی برای ارزیابی ویژگی‌های شخصیتی و اختلالات روانی است. این آزمون در ابتدا در دهه 1940 توسط «هاتاوی» و «مک‌کینلی» طراحی شد و سپس نسخه‌های اصلاح‌شده‌ای مانند MMPI-2 و MMPI-2-RF ارائه شدند. MMPI شامل صدها عبارت است که آزمون‌شونده باید آن‌ها را به صورت «درست» یا «نادرست» پاسخ دهد. نتایج آزمون بر اساس چندین مقیاس بالینی (مانند افسردگی، هیستری، پارانویا، اسکیزوفرنیا و...) و مقیاس‌های اعتبار (برای سنجش صداقت پاسخ‌ها) تحلیل می‌شود. این آزمون در روان‌درمانی، تشخیص اختلالات روانی، مشاوره شغلی، انتخاب نیروی انسانی و حتی در پرونده‌های حقوقی و قضایی مورد استفاده قرار می‌گیرد و به دلیل ساختار علمی و گسترده‌اش، یکی از ابزارهای اصلی روانشناسان و روانپزشکان به شمار می‌رود.

نسخه‌های مختلف آن عبارتند از:

• MMPI (نسخه اصلی 1943)

• MMPI-2 (نسخه بازنگری‌شده 1989 – رایج‌ترین نسخه فعلی)

• MMPI-2-RF (نسخه بازنگری مجدد و کوتاه‌شده، سال 2008)

• MMPI-A (برای نوجوانان)

کاربردهای MMPI

• تشخیص اختلالات روانی مانند افسردگی، اضطراب، اسکیزوفرنی، هیستری و...

• ارزیابی شخصیتی در استخدام‌های خاص (پلیس، نظامی، امنیتی)

• استفاده در روان‌درمانی و مشاوره برای درک بهتر بیمار

• مطالعات پژوهشی در روان‌شناسی و روان‌پزشکی

• ارزیابی صلاحیت روانی در موارد قضایی یا حقوقی

نمونه تصاویر در زمانم اجرا

درباره برنامه تست MMPI در اکسل با ماکرو VBA دارای داده های سوال بیش از 100 عدد

این کد یک آزمون روانسنجی MMPI (مینهسوتا) "Minnesota Multiphasic Personality Inventory" را در اکسل پیادهسازی کرده است. اجازه دهید بخشهای اصلی کد را توضیح دهم:

در ابتدا، زیرروال StartMMPI_Test محیط کاربر را برای انجام تست آماده می‌کند. ابتدا چک می‌کند که اگر شیت قبلی به نام "MMPI_Test" وجود داشته باشد، آن را حذف کند و سپس یک شیت جدید به همین نام ایجاد می‌کند. در این شیت، عنوان بزرگ تست با فونت زیبا و پس‌زمینه آبی، به همراه سرستون‌هایی برای شماره سوال، سوال فعلی، و تعداد کل سوالات ایجاد می‌شود. سپس کادری بزرگ برای نمایش سوال فعلی ساخته شده و دو دکمه “بله” و “خیر” برای پاسخ دادن کاربر اضافه می‌گردد. در نهایت، شماره سوال و تعداد کل سوالات در سلول‌هایی پنهان ذخیره شده و اولین سوال نمایش داده می‌شود.

زیرروال ShowNextQuestion وظیفه دارد سوال بعدی را از لیست موجود در شیت data با جدول list بخواند و در کادر مربوطه نمایش دهد. اگر به انتهای سوالات رسیده باشد، زیرروال تحلیل نهایی ShowMMPI_Result را اجرا می‌کند. هنگام پاسخ دادن کاربر با انتخاب یکی از دکمه‌های "بله" یا "خیر"، توابع AnswerYes یا AnswerNo فراخوانی می‌شوند که پاسخ را ذخیره کرده و سوال بعدی را نمایش می‌دهند. پاسخ‌ها در ستون‌های Z و AA از ردیف 10 به بعد ذخیره می‌شوند که شامل شماره سوال و پاسخ آن هستند.

در مرحله نهایی، تابع ShowMMPI_Result اجرا می‌شود تا بر اساس پاسخ‌ها، نمره هر مقیاس شخصیتی را محاسبه کند. این تابع با خواندن داده‌های هر سوال (از جمله مقیاس و جهت مثبت/منفی بودن آن)، تعداد پاسخ‌های مطابق با معیارهای روان‌سنجی را برای هر مقیاس جمع‌آوری می‌کند. سپس یک شیت جدید با نام "MMPI_Result" ایجاد می‌شود و برای هر مقیاس (مثل افسردگی، پارانویا، اسکیزوفرنی و...) نمره خام، درصد مثبت بودن پاسخ‌ها، سطح خطر، تفسیر روان‌شناختی و پیشنهاد درمانی متناسب با آن محاسبه و نمایش داده می‌شود.

در نهایت، این سیستم با استفاده از دیکشنری‌هایی مانند scoreDict، interpretDict و suggestDict اطلاعات روان‌شناسی را برای هر مقیاس مدیریت می‌کند. این طراحی به شکل ماژولار و گسترش‌پذیر نوشته شده است، به گونه‌ای که افزودن مقیاس‌های جدید یا تغییر در متون تفسیر و پیشنهاد درمان به سادگی امکان‌پذیر است. همچنین طراحی گرافیکی و استفاده از فونت فارسی و رنگ‌های مناسب تجربه کاربری خوبی را برای کاربران فارسی‌زبان فراهم می‌کند. این ساختار برای ساخت نسخه‌های حرفه‌ای‌تر تست‌های روان‌شناسی در اکسل بسیار مناسب و انعطاف‌پذیر است.

1. Sub StartMMPI_Test()

این تابع آزمون را شروع میکند و:

• ورقۀ داده ("data") و لیست سوالات را پیدا میکند

• اگر ورقۀ آزمون قبلی وجود دارد، آن را حذف میکند

• ورقۀ جدیدی برای آزمون ایجاد میکند

• عنوان آزمون و بخشهای مختلف رابط کاربری را تنظیم میکند

• دو دکمه برای پاسخ "بله" و "خیر" اضافه میکند

• متغیرهای لازم برای ردگیری سوالات و پاسخها را مقداردهی میکند

• اولین سوال را نمایش میدهد

2. Sub ShowNextQuestion()

این تابع:

• شمارۀ سوال فعلی و تعداد کل سوالات را بررسی میکند

• اگر به آخر سوالات رسیده باشد، نتایج را نمایش میدهد

• در غیر این صورت، سوال بعدی را از لیست سوالات میخواند و نمایش میدهد

3. Sub AnswerYes() و Sub AnswerNo()

این توابع پاسخ کاربر را ثبت میکنند و به سوال بعدی میروند

4. Sub SaveAnswer(response As String)

این تابع:

• پاسخ کاربر را ذخیره میکند

• شمارۀ سوال و پاسخ را در ورقۀ آزمون ثبت میکند

• شمارۀ سوال و ردیف پاسخ را افزایش میدهد

• سوال بعدی را نمایش میدهد

5. Sub ShowMMPI_Result()

این تابع مهم نتایج آزمون را محاسبه و نمایش میدهد:

• دادههای پاسخهای کاربر را جمعآوری میکند

• برای هر مقیاس (مثل افسردگی، پارانویا و...) امتیاز محاسبه میکند

• ورقۀ جدیدی برای نتایج ایجاد میکند

• نتایج را در قالب جدول زیبا نمایش میدهد شامل:

  • نام مقیاس

  • امتیاز خام

  • درصد پاسخهای مثبت

  • سطح خطر

  • تفسیر روانشناختی

  • پیشنهادات درمانی

• نتایج را با رنگبندی مناسب (سبز، نارنجی، قرمز) برای سطوح مختلف خطر نمایش میدهد

ویژگیهای کلی کد:

• از فونت فارسی (B Nazanin) استفاده شده است

• رابط کاربری گرافیکی ساده و کاربرپسند دارد

• دادههای آزمون در ورقۀ "data" ذخیره شده است

• نتایج در ورقۀ جداگانه با نام "MMPI_Result" نمایش داده میشود

• کد به خوبی ساختاردهی و کامنتگذاری شده است

این کد یک پیادهسازی ساده اما کاربردی از آزمون MMPI در محیط اکسل ارائه میدهد که میتواند برای ارزیابیهای اولیه روانشناختی مفید باشد

برای شما کاربران عزیز پیشنهاد دانلود داده می شود.