لینک کوتاه : https://magicfile.ir/?p=4623
🎯 ساخت گردونه قرعهکشی گرافیکی و متحرک در اکسل با VBA – جذاب، حرفه‌ای و شخصی‌سازی
در این پروژه‌ی جذاب با استفاده از VBA در Excel، یک گردونه‌ی گرافیکی طراحی شده که با افکت‌های بصری زیبا، به‌صورت تصادفی یک نام از بین لیستی از اسامی انتخاب می‌کند. ابتدا با اجرای ماکروی ساخت_گردونه_زیبا یک شیت جدید به نام «گردونه» ساخته می‌شود و دکمه‌ای برای اجرای فرآیند چرخش ایجاد می‌گردد. کاربر باید نام افراد را از سلول A2 به پایین وارد کند. پس از آن با کلیک روی دکمه، ماکروی چرخش_زیبا یا نسخه‌ی پیشرفته‌تر آن یعنی hh اجرا می‌شود و فرآیند انتخاب به صورت متحرک آغاز می‌گردد.
در مرحله‌ی چرخش، ابتدا اسامی وارد شده به صورت دایره‌ای در اطراف مرکز گردونه قرار می‌گیرند. با استفاده از محاسبات مثلثاتی، محل دقیق هر نام روی دایره مشخص شده و هر کدام به صورت یک شکل گرافیکی زیبا (مانند کادر گرد یا مستطیل) رسم می‌شود. در نسخه‌ی پیشرفته‌تر (hh) برای افزایش زیبایی ظاهری، یک دایره‌ی پس‌زمینه با گرادیان رنگی، سایه‌ی نرم و یک پیکان (Pointer) در بالای گردونه اضافه شده که محل انتخاب نهایی را مشخص می‌کند.
الگوریتم انتخاب تصادفی، با شبیه‌سازی چرخش تدریجی انجام می‌شود. در هر دور از چرخش، یکی از نام‌ها با رنگ و افکت ویژه (مانند رنگ زرد، فونت بزرگ‌تر، خط ضخیم‌تر) هایلایت می‌شود و بقیه به حالت عادی بازمی‌گردند. با هر دور، زمان تاخیر افزایش می‌یابد که باعث کند شدن تدریجی چرخش و ایجاد حس طبیعی توقف گردونه می‌شود.
در مجموع، این ماکرو ترکیبی از ریاضیات ساده، افکت‌های گرافیکی و برنامه‌نویسی VBA است که یک ابزار سرگرم‌کننده و کاربردی برای قرعه‌کشی‌های دوستانه، کلاسی یا جلسات تیمی فراهم می‌کند. کاربران می‌توانند آن را به دلخواه خود سفارشی‌سازی کنند؛ از جمله تغییر رنگ‌ها، تعداد نام‌ها، سرعت چرخش یا حتی طراحی حرفه‌ای‌تر برای استفاده‌های رسمی‌تر. این پروژه نمونه‌ای عالی از خلاقیت در استفاده از اکسل فراتر از محاسبات عددی است.
🎡 ساخت گردونه قرعهکشی زیبا با VBA در اکسل — با طراحی حرفه‌ای و انیمیشن چشم‌نواز
در این پست، می‌خواهیم یک ماکرو (کد VBA) بسیار کاربردی و جذاب را معرفی کنیم که با آن می‌توانید در نرم‌افزار Excel یک گردونه قرعهکشی گرافیکی و انیمیشنی بسازید. این ابزار برای برگزاری قرعهکشی، انتخاب تصادفی افراد، انتخاب برنده در بازی‌ها و فعالیت‌های کلاسی یا سازمانی بسیار مفید است.
📌 ویژگی‌های شاخص این گردونه:
🔹 رابط گرافیکی جذاب با طراحی دایره‌ای
🔹 انیمیشن چرخش با کند شدن تدریجی
🔹 افکت‌های رنگی زیبا و سایه‌دار
🔹 قابلیت افزودن آسان نام‌ها در شیت
🔹 دکمه‌ی اجرای گردونه به‌صورت خودکار ایجاد می‌شود
🔹 سازگار با نسخه‌های 32 بیتی و 64 بیتی Excel
🧩 ساختار کد به زبان ساده
✅ بخش اول: تعریف تابع Sleep
#If VBA7 Then Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) #Else Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) #End If
این بخش برای متوقف کردن اجرای برنامه به‌مدت چند میلی‌ثانیه استفاده می‌شود و با نسخه‌های 64 بیتی نیز سازگار شده است.
✅ Sub ساخت_گردونه_زيبا
-
ابتدا اگر شیت "گردونه" وجود داشته باشد، آن را حذف می‌کند.
-
سپس یک شیت جدید به نام "گردونه" می‌سازد.
-
دستورالعملی در سلول A1 برای کاربر قرار می‌دهد.
-
یک دکمه گرافیکی با عنوان "گردش گردونه" ایجاد می‌شود که با کلیک روی آن ماکروی چرخش اجرا می‌گردد.
✅ Sub چرخش زيبا
نسخه‌ای پیشرفته‌تر و زیباتر از گردونه که شامل امکانات زیر است:
🎨 پس‌زمینه دایره‌ای با گرادیان رنگی آبی و بنفش
🟥 پیکان قرمز-نارنجی با سایه‌پردازی
🟦 نام‌ها به‌صورت کادرهای گرد با فونت ضخیم و رنگ‌بندی چشم‌نواز
🔁 انیمیشن چرخش با انتخاب تدریجی و رنگ متفاوت برای نام انتخاب‌شده
📢 پیام نهایی اعلام برنده
این نسخه علاوه بر زیبایی بصری، بسیار حرفه‌ای و برای استفاده در جلسات رسمی، کلاس درس، مسابقات و قرعه‌کشی‌های سازمانی مناسب است.
🔧 نحوه استفاده
-
در اکسل کلیدهای
Alt + F11را بزنید تا وارد محیط VBA Editor شوید. -
یک ماژول جدید بسازید و کدها را در آن قرار دهید.
-
با اجرای Sub
ساخت_گردونه_زيبایک شیت جدید با دکمه ایجاد می‌شود. -
نام‌ها را در ستون A وارد کنید.
-
روی دکمه "گردش گردونه" کلیک کنید تا انیمیشن اجرا شود و برنده مشخص گردد!
📝 نکات فنی
-
حتماً باید حداقل 2 نام وارد کرده باشید.
-
استفاده از تابع
Sleepباعث ایجاد افکت کند شدن چرخش می‌شود. -
نام شکل‌ها بر اساس "نام1"، "نام2" و ... ساخته شده‌اند تا به‌راحتی در حلقه‌ها قابل دسترسی باشند.
-
برای جلوگیری از تداخل، اشکال قبلی هر بار حذف می‌شوند.
🎁 جمع‌بندی
با این کد ساده اما خلاقانه، می‌توانید یک ابزار جذاب برای انتخاب تصادفی افراد یا برگزاری قرعهکشی طراحی کنید. این ابزار نه‌تنها کاربردی است، بلکه با جلوه‌های بصری زیبا و افکت‌های حرفه‌ای، تجربه کاربری فوق‌العاده‌ای را فراهم می‌آورد.
برای شما کاربران عزیز پیشنهاد دانلود داده می شود.
