لینک کوتاه : https://magicfile.ir/?p=4743
🎮 دانلود سورس کد ماکرو بازی حدس کشورها در اکسل (Country Quiz Game in Excel)
با این فایل جذاب، می‌توانید در محیط اکسل یک بازی سرگرمکننده و آموزشی طراحی کنید!
ماکرو "بازی تشخیص کشور" به‌صورت کاملاً خودکار اجرا می‌شود و کاربران باید با توجه به اطلاعات داده‌شده، کشور موردنظر را از بین چند گزینه انتخاب کنند.
نمونه تصاویر در زمان اجرا
💡 معرفی کلی:
این ماکرو با زبان VBA در اکسل نوشته شده و هدف آن ایجاد یک بازی تعاملی، زیبا و آموزشی برای تمرین اطلاعات عمومی در مورد کشورهاست.
بازیکن باید با توجه به مشخصاتی مثل قاره، جمعیت، پایتخت، زبان، مساحت، نوع حکومت و ... کشور درست را انتخاب کند.
⚙️ ویژگی‌ها:
-
طراحی کاملاً خودکار و گرافیکی در محیط اکسل
-
استفاده از رنگ‌بندی و قالب‌بندی حرفه‌ای برای زیبایی بازی
-
تولید تصادفی سوالات از جدول داده‌ها (بدون تکرار)
-
نمایش امتیاز لحظه‌ای و درصد موفقیت در پایان بازی
-
گزارش نهایی زیبا شامل:
-
تعداد کل سوالات
-
پاسخ‌های صحیح و غلط
-
درصد موفقیت
-
پیام تشویقی بر اساس عملکرد
-
🧩 ساختار فایل:
فایل اکسل شامل دو شیت است:
-
Countries — شامل جدول داده کشورها (نام، قاره، جمعیت، پایتخت، زبان، پول، حکومت و...)
-
CountryGame — به‌صورت خودکار هنگام شروع بازی ساخته می‌شود.
در پایان، شیت GameReport برای نمایش گزارش نهایی به‌صورت زیبا و گرافیکی ایجاد خواهد شد.
🚀 نحوه استفاده:
-
جدول داده کشورها را در شیت Countries قرار دهید (به‌صورت Table).
-
ماکرو را فعال کنید (از طریق
Alt + F8→ انتخابStartCountryQuiz). -
تعداد سوالات را وارد کنید.
-
بازی آغاز می‌شود و باید از میان گزینه‌ها کشور درست را انتخاب کنید.
-
در پایان، گزارش عملکرد خود را مشاهده کنید.
📸 جلوه‌های ظاهری:
-
رنگ‌های ملایم و چشم‌نواز
-
دکمه‌های زیبا با افکت‌های رنگی هنگام انتخاب
-
نمایش پویای امتیاز و سوال فعلی
-
پیام پایانی با لحن انگیزشی
🧠 نکات فنی:
-
تمام طراحی و کنترل‌ها به‌صورت خودکار توسط VBA انجام می‌شود (بدون نیاز به فرم یا کنترل دستی).
-
از Collection برای مدیریت سوالات تکراری استفاده شده است.
-
از جدول (ListObject) به‌عنوان منبع داده استفاده می‌کند.
-
سازگار با Excel 2016 به بالا.
🔒 پیش‌نیازها:
-
فعال بودن ماکروها (Enable Macros)
-
وجود داده‌ها در شیت
Countries
برای شما کاربران عزیز پیشنهاد دانلود داده می شود.
