لینک کوتاه : https://magicfile.ir/?p=4751
💠 دانلود سیستم نوبتدهی در اکسل (VBA)
اگر به دنبال یک راهکار هوشمند، خودکار و بدون نیاز به فرم‌های پیچیده برای مدیریت نوبت‌ها در اکسل هستید، این پروژه دقیقاً همان چیزی است که می‌خواهید.
کد VBA زیر به‌صورت کاملاً خودکار، یک سیستم نوبتدهی پیشرفته را در اکسل ایجاد می‌کند که شامل سه بخش اصلی است:
-
🗂 شیت داده‌ها (داده‌های نوبت‌ها) برای ثبت، ویرایش، جستجو و حذف نوبت‌ها
-
📊 شیت گزارش‌ها برای مشاهده آمار و تحلیل خودکار وضعیت نوبت‌ها
-
📈 داشبورد مدیریتی برای مشاهده خلاصه وضعیت نوبت‌ها و انجام عملیات سریع
⚙️ امکانات و ویژگی‌های اصلی سیستم
✅ ایجاد خودکار شیت‌ها و دکمه‌ها در اولین اجرا
✅ ثبت نوبت جدید همراه با دریافت اطلاعات از کاربر
✅ ویرایش، جستجو و حذف نوبت‌ها تنها با چند کلیک
✅ گزارشگیری خودکار و پویا از وضعیت نوبت‌ها (فعال، تکمیل شده، لغو شده)
✅ داشبورد مدیریتی زیبا با کارت‌های آماری و لیست نوبت‌های امروز
✅ به‌روزرسانی خودکار گزارش‌ها در هر تغییر داده
✅ لیست کشویی برای انواع خدمات و وضعیت نوبت‌ها
✅ کنترل خطا و اعلان‌های هوشمند
✅ بدون نیاز به فرم (UserForm) — کاملاً در محیط اکسل ساخته می‌شود
🧩 ساختار کلی سیستم
پس از اجرای دستور InitializeSystem برای اولین بار، فایل شما به‌صورت خودکار به ساختار زیر تبدیل می‌شود:
| شیت | توضیح |
|---|---|
| 📄 داده‌های نوبت‌ها | محل ثبت و مدیریت اطلاعات نوبت‌ها |
| 📊 گزارش‌ها | نمایش آمار کلی، نوبت‌های امروز و تفکیک بر اساس نوع خدمت |
| 📋 داشبورد | صفحه اصلی سیستم برای مشاهده سریع وضعیت‌ها و دسترسی به دکمه‌های عملیاتی |
🖱 دکمه‌ها و عملکردها
در شیت «داده‌های نوبت‌ها»، دکمه‌های زیر ایجاد می‌شود:
| دکمه | عملکرد |
|---|---|
| ➕ ثبت نوبت جدید | افزودن نوبت از طریق پنجره‌های ورودی |
| 🔍 جستجوی نوبت | یافتن نوبت بر اساس نام یا شماره |
| ✏️ ویرایش نوبت | فعال‌سازی ویرایش مستقیم در سطر انتخاب‌شده |
| ❌ حذف نوبت | حذف رکورد انتخابی پس از تأیید کاربر |
| 📊 برو به داشبورد | بازگشت سریع به صفحه داشبورد |
در «گزارش‌ها» و «داشبورد» نیز دکمه‌هایی برای بروزرسانی، مشاهده داده‌ها و فیلتر نوبت‌های امروز وجود دارد.
📆 گزارشگیری خودکار
در شیت گزارش‌ها، آمار زیر به‌صورت خودکار نمایش داده می‌شود:
-
تعداد کل نوبت‌ها
-
نوبت‌های امروز
-
نوبت‌های فعال
-
نوبت‌های تکمیل‌شده
-
نوبت‌های لغوشده
-
آمار بر اساس نوع خدمت
-
لیست نوبت‌های امروز به‌صورت جدول
در داشبورد نیز کارت‌های آماری رنگی نمایش داده می‌شوند که به‌صورت لحظه‌ای از گزارش‌ها تغذیه می‌شوند.
🧠 منطق عملکرد سیستم
سیستم دارای توابع داخلی متعددی است که هر کدام وظیفه خاصی دارند، از جمله:
| تابع | توضیح |
|---|---|
InitializeSystem |
اجرای اولیه و ساخت خودکار شیت‌ها |
CreateDataSheet |
ایجاد شیت داده‌ها و دکمه‌ها |
CreateReportSheet |
ساخت شیت گزارش‌ها و فرمول‌های آماری |
CreateDashboard |
طراحی داشبورد مدیریتی و کارت‌های آماری |
AddNewAppointmentFromSheet |
افزودن نوبت جدید از طریق InputBox |
EditAppointmentFromSheet |
فعال‌سازی حالت ویرایش سطر |
DeleteAppointmentFromSheet |
حذف نوبت انتخاب‌شده |
SearchAppointmentFromSheet |
جستجوی نوبت بر اساس نام یا شناسه |
UpdateAllReports |
بروزرسانی همه بخش‌ها |
ShowTodayAppointments |
فیلتر خودکار نوبت‌های امروز |
🚀 نحوه استفاده
-
فایل اکسل را باز کنید.
-
وارد محیط VBA شوید (
Alt + F11). -
کد بالا را در یک ماژول جدید قرار دهید.
-
ماکرو
InitializeSystemرا اجرا کنید. -
پس از ایجاد شیت‌ها، فایل را ذخیره کرده و از آن استفاده کنید.
در اجرای بعدی، سیستم به‌صورت خودکار شیت‌ها را تشخیص داده و گزارش‌ها را به‌روزرسانی می‌کند.
🎨 نکات طراحی و فنی
-
از رنگ‌های استاندارد سازمانی برای تم گرافیکی استفاده شده است.
-
ساختار کد به‌صورت ماژولار طراحی شده تا در آینده به‌راحتی قابل گسترش باشد.
-
از توابع
ValidationListبرای ایجاد منوهای کشویی استفاده شده است. -
با هر تغییر در شیت داده‌ها، گزارش‌ها و داشبورد به‌صورت خودکار بروزرسانی می‌شوند.
-
ساعت‌های مجاز برای نوبتدهی بین 8:00 تا 20:30 در بازه نیم‌ساعته تنظیم شده‌اند.
برای شما کاربران عزیز پیشنهاد دانلود داده می شود.
