لینک کوتاه : https://magicfile.ir/?p=4709
دانلود کد VBA سیستم تصمیمگیری بر اساس تحلیل SWOT در اکسل
امروز در این پست برای شما کاربران عزیز وبسایت فایل سحرآمیز یک کد VBA سیستم تصمیمگیری بر اساس تحلیل SWOT در اکسل را آماده دانلود قرار داده ایم.
این فایل اکسل با استفاده از کد VBA طراحی شده و یک سیستم کامل تصمیمگیری بر پایه تحلیل SWOT را به‌صورت خودکار ایجاد می‌کند. پس از اجرای ماکرو، فایل شامل سه بخش اصلی خواهد بود:
-
SWOT_Analysis → تحلیل نقاط قوت (Strengths)، نقاط ضعف (Weaknesses)، فرصت‌ها (Opportunities) و تهدیدها (Threats)
-
Option_Evaluation → ارزیابی گزینه‌های مختلف بر اساس معیارها و محاسبه امتیاز وزندار
-
Dashboard → داشبورد مدیریتی شامل نمودارها و خلاصه تحلیل‌ها برای تصمیمگیری سریع‌تر
🔹 نوع فایل
-
فرمت ذخیره‌سازی: Excel Macro-Enabled Workbook (.xlsm)
-
سازگار با: Microsoft Excel 2010 به بالا
-
نیاز به فعال‌سازی ماکروها هنگام باز کردن فایل دارد.
🔹 کاربرد فایل
-
مناسب برای مدیران، دانشجویان، مشاوران و تیم‌های کاری جهت تحلیل پروژه‌ها و تصمیمگیری بهتر
-
امکان مقایسه گزینه‌های مختلف و انتخاب بهترین راهکار بر اساس داده‌های واقعی
-
قابل استفاده در پروژه‌های تحقیقاتی، پایان‌نامه‌ها و ارائه‌های مدیریتی
🔹 ویژگی‌های اصلی
✅ ایجاد خودکار جداول تحلیل SWOT و ارزیابی گزینه‌ها
✅ محاسبه‌ی خودکار امتیاز وزندار بر اساس وزن، امتیاز و اولویت
✅ داشبورد مدیریتی با نمودارهای گرافیکی (تحلیل SWOT و مقایسه گزینه‌ها)
✅ لیست‌های کشویی برای ورود سریع و بدون خطا
✅ طراحی ساده و کاربرپسند با فرمول‌ها و قالب‌بندی شرطی
🔹 مزایا
-
بدون نیاز به طراحی دستی جداول و نمودارها
-
صرفه‌جویی در زمان تحلیل
-
دقت بالاتر در محاسبات وزندار
-
مناسب برای تصمیمگیری فردی و گروهی
نمونه تصاویر در زمان اجرا
معرفی کد VBA سیستم تصمیمگیری SWOT در اکسل
این کد VBA یک سیستم کامل تصمیمگیری بر پایه تحلیل SWOT را به‌صورت خودکار در اکسل ایجاد می‌کند. پس از اجرای ماکرو، سه شیت اصلی ساخته می‌شود:
-
SWOT_Analysis → مخصوص ثبت عوامل داخلی و خارجی (نقاط قوت، ضعف، فرصت‌ها و تهدیدها)
-
Option_Evaluation → برای ارزیابی و امتیازدهی به گزینه‌های تصمیمگیری بر اساس معیارها
-
Dashboard → داشبورد مدیریتی شامل نمودارها و خلاصه نتایج
🔹 بخش اصلی ماکرو
Sub CreateFullSWOTDecisionSystem() ' اجرای مراحل اصلی: حذف شیت‌های قدیمی، ایجاد شیت‌های جدید، فرمت‌بندی و ایجاد لیست‌های کشویی End Sub
این تابع همه مراحل ساخت سیستم را پشت‌سر هم اجرا می‌کند. در صورت بروز خطا، پیام هشدار نمایش داده می‌شود.
🔹 حذف شیت‌های قبلی
Sub DeleteExistingSheets()
اگر نسخه‌های قدیمی شیت‌ها وجود داشته باشند، قبل از ایجاد جدید حذف می‌شوند تا تداخلی رخ ندهد.
🔹 ایجاد شیت SWOT
Sub CreateSWOTAnalysisSheet()
-
ساخت جدول شامل ستون‌های:
عوامل | نقاط قوت | نقاط ضعف | فرصت‌ها | تهدیدها | وزن | امتیاز | امتیاز وزندار | اولویت -
ایجاد ۱۰ سطر پیش‌فرض برای ورود داده‌ها
-
محاسبه خودکار امتیاز وزندار (وزن × امتیاز × اولویت)
-
درج فرمول جمع کل در انتها
🔹 ایجاد شیت ارزیابی گزینه‌ها
Sub CreateOptionEvaluationSheet()
-
تعریف ۵ گزینه و ۵ معیار برای هر گزینه
-
محاسبه امتیاز وزندار (وزن × امتیاز)
-
محاسبه جمع امتیازات هر گزینه برای مقایسه
🔹 ایجاد داشبورد مدیریتی
Sub CreateDashboard()
-
نمایش خلاصه تحلیل SWOT (جمع نقاط قوت، ضعف، فرصت و تهدید)
-
نمودار ستونی برای مقایسه عوامل داخلی و خارجی
-
نمایش نتایج ارزیابی گزینه‌ها
-
نمودار مقایسه‌ای بین گزینه‌ها
🔹 فرمت‌بندی و طراحی
دو تابع اصلی برای زیباتر کردن خروجی:
-
FormatSWOTSheet → ایجاد جدول، تنظیم عرض ستون‌ها، رنگ‌بندی شرطی امتیازات SWOT
-
FormatOptionEvaluationSheet → رنگ‌بندی امتیازات گزینه‌ها و برجسته کردن جمع امتیازات
🔹 لیست‌های کشویی
Sub CreateDataValidationLists()
-
ایجاد کشویی برای امتیازدهی (۱ تا ۵)
-
ایجاد کشویی برای اولویت (۱=کم، ۲=متوسط، ۳=زیاد)
-
ایجاد کشویی برای امتیاز معیارها در شیت گزینه‌ها
🎯 نتیجه نهایی
پس از اجرای این ماکرو، شما یک سیستم تصمیمگیری کامل خواهید داشت که:
-
امکان ثبت و امتیازدهی عوامل SWOT را فراهم می‌کند.
-
گزینه‌های مختلف را بر اساس معیارها ارزیابی می‌کند.
-
یک داشبورد گرافیکی و خلاصه مدیریتی ارائه می‌دهد.
-
همه چیز به‌صورت خودکار و بدون نیاز به طراحی دستی ایجاد می‌شود.
برای شما کاربران عزیز پیشنهاد دانلود داده می شود.
