لینک کوتاه : https://magicfile.ir/?p=4673
دانلود سورس کد VBA برای محاسبه تعداد چراغهای موردنیاز به روش لومن + نمودار دینامیک در اکسل
این کد VBA برای ایجاد یک شیت جدید در اکسل با عنوان «محاسبه چراغ‌ها» طراحی شده که هدف آن محاسبه تعداد چراغهای مورد نیاز در یک فضا بر اساس روش لومن (لومن نوردهی) است. ابتدا اگر شیت با همین نام وجود داشته باشد، حذف می‌شود تا شیت جدید با داده‌ها و تنظیمات تازه ساخته شود. سپس شیت جدید ایجاد و قالب‌بندی اولیه مانند فونت، اندازه، رنگ پس‌زمینه و عنوان آن انجام می‌شود تا ظاهری مرتب و خوانا داشته باشد.
در ادامه، داده‌های پایه شامل انواع فضاها (مثل دفتر، کلاس، اتاق بیمار و ...) و میزان شدت روشنایی مطلوب هر فضا به صورت آرایه‌هایی تعریف و در ستون‌های مخفی شیت قرار می‌گیرند. این داده‌ها برای ایجاد لیست کشویی در سلول مربوط به «نوع فضا» استفاده می‌شوند، به طوری که کاربر می‌تواند نوع فضا را انتخاب کند و مقدار لوکس (شدت روشنایی) مرتبط با آن به صورت خودکار نمایش داده شود. سپس برچسب‌های مربوط به ورودی‌های محاسبه مانند مساحت، لومن چراغ، ضریب بهره و ضریب نگهداری در ستون‌های کناری قرار داده می‌شود تا کاربر مقادیر مربوطه را وارد کند.
محاسبه اصلی تعداد چراغهای مورد نیاز با فرمولی انجام می‌شود که بر اساس مقدار لوکس، مساحت فضا، لومن هر چراغ و ضرایب بهره و نگهداری است. نتیجه این محاسبه در سلول مشخصی نمایش داده می‌شود و برای افزایش قابلیت استفاده، رنگ پس‌زمینه و قالب فونت آن متفاوت و برجسته تنظیم شده است. همچنین، یک دکمه در صفحه ایجاد شده که با کلیک روی آن، تابعی به نام «نمایش نتیجه و نمودار» اجرا می‌شود تا نتیجه محاسبه به کاربر نمایش داده شود و نموداری گرافیکی از سهم نور مورد نیاز و نور تأمین شده رسم شود.
تابع مربوط به دکمه، مقدار تعداد چراغ را از سلول محاسبه شده خوانده و در صورت نبود مقدار، به کاربر هشدار می‌دهد تا اطلاعات را کامل کند. سپس اگر نمودار قبلی وجود داشته باشد حذف و نمودار جدیدی به شکل نمودار دایره‌ای ایجاد می‌شود که سهم نور مورد نیاز و نور تأمین شده توسط چراغ‌ها را به صورت بصری نمایش می‌دهد. این نمودار با استفاده از داده‌های محاسبه شده و فرمول‌هایی که در شیت ایجاد شده‌اند به صورت پویا ساخته می‌شود. در نهایت، پس از اجرای کامل، پیغامی به کاربر نشان داده می‌شود که شیت و نمودار با موفقیت ایجاد شده‌اند.
📌 معرفی:
در این پست، یک ماکرو پیشرفته به زبان VBA برای محاسبه تعداد چراغهای موردنیاز در فضاهای مختلف ساختمانی بر اساس روش لومن (Lumen Method) معرفی می‌شود. این ابزار نه‌تنها ورودی‌هایی همچون نوع فضا، مساحت، شدت روشنایی، بهره‌وری و ضریب نگهداری را دریافت می‌کند، بلکه با زدن یک دکمه، تعداد چراغ مورد نیاز را نمایش داده و یک نمودار دایره‌ای از سهم نور تأمین‌شده رسم می‌کند.
🧠 روش لومن چیست؟
روش لومن یکی از رایج‌ترین روش‌ها برای طراحی روشنایی فضاها است.
🧾 عملکرد کد:
1. ایجاد یک شیت جدید به نام "محاسبه چراغ‌ها":
کد ابتدا شیت قبلی (در صورت وجود) را حذف کرده و یک شیت تمیز با فونت و رنگ‌بندی مناسب ایجاد می‌کند.
2. تنظیم داده‌های مرجع:
در ستون‌های H و I، لیستی از نوع فضا و لوکس پیشنهادی آن‌ها وارد می‌شود (دفتر، کلاس، راهرو و...).
3. ورودی‌های محاسباتی:
جدول اصلی دارای مقادیر زیر است:
-
نوع فضا (لیست کشویی)
-
شدت روشنایی (لوکس)
-
مساحت (m²)
-
لومن چراغ
-
ضریب بهره (CU)
-
ضریب نگهداری (MF)
-
تعداد چراغ موردنیاز (محاسبه‌شده)
ورودی‌ها به‌صورت دستی قابل تغییر هستند و نتیجه محاسبه به‌صورت فرمول اتوماتیک در سلول B9 نمایش داده می‌شود.
4. افزودن دکمه نمایشی:
یک دکمه به شیت اضافه می‌شود با عنوان:
«نمایش نتیجه و نمودار»
با کلیک روی این دکمه، تابع نمايش_نتيجه_و_نمودار اجرا شده و مراحل زیر انجام می‌شود:
-
نمایش پیغام با تعداد چراغ مورد نیاز
-
رسم نمودار دایره‌ای با مقایسه:
-
نور مورد نیاز (بر اساس لوکس × مساحت)
-
نور تأمین‌شده (بر اساس مشخصات چراغ و تعداد چراغ‌ها)
-
5. آماده‌سازی داده‌های نمودار:
در سلول‌های E3 تا F4 داده‌های مربوط به محاسبه نور موردنیاز و نور تأمین‌شده وارد می‌شوند که پایه‌ی نمودار هستند.
🖼️ پیش‌نمایش نمودار خروجی:
پس از اجرای ماکرو، نموداری به‌صورت دایره‌ای (Pie Chart) نمایش داده می‌شود که دو بخش دارد:
-
نور موردنیاز
-
نور تأمین‌شده
این نمودار به درک بصری کمک می‌کند که آیا میزان روشنایی تأمین‌شده با استانداردها تطابق دارد یا خیر.
✅ مزایای این ابزار:
-
بدون نیاز به فرمول‌نویسی دستی
-
دارای لیست کشویی و قالب‌بندی زیبا
-
نمودار داینامیک برای تجسم بهتر داده‌ها
-
قابل توسعه برای پروژه‌های روشنایی ساختمان
📦 نحوه استفاده:
-
کد را در محیط VBA (Alt + F11) وارد کنید.
-
ماکرو
ساخت_محاسبه_چراغ_با_نموداررا اجرا نمایید. -
شیت به‌صورت خودکار ساخته می‌شود.
-
ورودی‌ها را تکمیل کرده و روی دکمه کلیک نمایید.
-
نتیجه به‌همراه نمودار به شما نمایش داده خواهد شد.
📌 کد ماکرو کامل:
<details> <summary>نمایش کد VBA</summary>
' === ماکرو اصلی ایجاد شیت و محاسبات === Sub ساخت_محاسبه_چراغ_با_نمودار() ' ... [کد کامل بالا] ... End Sub ' === ماکرو رسم نمودار و نمایش پیام === Sub نمايش_نتيجه_و_نمودار() ' ... [کد کامل بالا] ... End Sub
</details>
📤 دانلود فایل آماده (اختیاری):
📁 لینک دانلود فایل اکسل حاوی ماکرو و شیت محاسبه [در صورت انتشار در سایت]
🧩 پیشنهاد برای توسعه:
-
افزودن انتخاب نوع چراغ از لیست کشویی
-
افزودن هشدار در صورت تأمین نشدن کامل نور
-
توسعه برای چند فضا به‌صورت جدول‌وار
برای شما کاربران عزیز پیشنهاد دانلود داده می شود.
