لینک کوتاه : https://magicfile.ir/?p=4667
دانلود فایل اکسل با VBA ساخت سیستم مدیریت بررسی تاریخ انقضا مواد شیمیایی
در این پروژه کاربردی، یک سیستم پیشرفته برای مدیریت مواد شیمیایی در نرم‌افزار اکسل با استفاده از VBA طراحی شده است که می‌تواند به عنوان یک ابزار مفید برای انباردارها، مسئولان آزمایشگاه‌ها، و حتی مدیران پروژه‌های تحقیقاتی مورد استفاده قرار گیرد. این سیستم با اجرای یک ماکرو، شیتی اختصاصی با نام "مواد شیمیایی" در فایل اکسل ایجاد می‌کند و تمام زیرساخت‌های موردنیاز برای ثبت، نمایش و بررسی موجودی مواد شیمیایی را به‌صورت خودکار پیاده‌سازی می‌کند. از سرتیترهای حرفه‌ای گرفته تا جدول‌بندی ساختاریافته با قالب‌بندی و رنگ‌بندی مشخص، همه اجزا به‌صورت کدنویسی شده ساخته می‌شوند، بدون اینکه نیاز به تنظیمات دستی توسط کاربر باشد.
در مرحله اول، شیت قبلی (در صورتی که وجود داشته باشد) حذف می‌شود تا از تکرار و ایجاد اختلال در داده‌ها جلوگیری گردد. سپس شیتی جدید با قالب‌بندی زیبا شامل ستون‌هایی مثل "نام ماده"، "کد ماده"، "مقدار"، "واحد"، "تاریخ ورود" و "تاریخ انقضا (شمسی)" ایجاد می‌شود. این ستون‌ها به شکل یک جدول رسمی (ListObject) در اکسل با استایل خاص نمایش داده می‌شوند تا کاربران بتوانند داده‌های خود را به شکلی منظم، خوانا و فیلترپذیر وارد و مدیریت کنند. همچنین عرض ستون‌ها تنظیم شده و طراحی جدول به شکلی انجام می‌شود که برای کاربران فارسی‌زبان کاملاً قابل فهم و بومی‌سازی شده باشد.
ویژگی بسیار مهم این سیستم، دکمه گرافیکی‌ای است که در بالای صفحه ایجاد می‌شود و نقش کلیدی در اجرای تحلیل تاریخ انقضا ایفا می‌کند. با کلیک روی این دکمه، ماکروی دوم فعال می‌شود که به بررسی تاریخ انقضاهای ثبت‌شده در جدول می‌پردازد. این تحلیل بر اساس تاریخ روز جاری انجام شده و تاریخ شمسی ثبت‌شده در ستون ششم (تاریخ انقضا) به میلادی تبدیل می‌شود تا امکان مقایسه‌ی دقیق با تاریخ امروز فراهم گردد. برای تبدیل تاریخ شمسی به میلادی از تابع کمکی به نام ShamsiToMiladi استفاده شده که باید از قبل در فایل تعریف شده باشد و یکی از توابع رایج در پروژه‌های تقویم شمسی در اکسل محسوب می‌شود.
در فرآیند بررسی، ردیف‌هایی که تاریخ انقضای آن‌ها گذشته باشد، به رنگ قرمز در می‌آیند تا کاربر به‌راحتی متوجه مواد منقضی شود. همچنین موادی که تا 30 روز آینده به تاریخ انقضا می‌رسند، با رنگ زرد علامت‌گذاری می‌شوند. این قابلیت هشداردهی به کاربران کمک می‌کند تا پیش از انقضای مواد نسبت به مصرف یا جایگزینی آن‌ها اقدام کنند و از ضررهای احتمالی، اتلاف منابع و حتی خطرات ایمنی جلوگیری نمایند. در نهایت نیز یک پیام اطلاع‌رسانی به کاربر نمایش داده می‌شود که تعداد مواد منقضی‌شده و موادی که در آستانه انقضا هستند را اعلام می‌کند.
در مجموع این سیستم ترکیبی از طراحی زیبا، سادگی استفاده و منطق تحلیلی هوشمندانه است که آن را به ابزاری قدرتمند برای مدیریت انبار مواد شیمیایی تبدیل کرده است. شما می‌توانید این سیستم را توسعه دهید.
📦 ساخت سیستم پیشرفته مدیریت مواد شیمیایی در اکسل با VBA
در این پست، یک سیستم خودکار و پیشرفته برای مدیریت مواد شیمیایی با استفاده از VBA در اکسل معرفی می‌شود. این ابزار، مناسب برای آزمایشگاه‌ها، انبارهای نگهداری مواد شیمیایی، مراکز تحقیقاتی و شرکت‌های صنعتی است که می‌خواهند با دقت و هوشمندی تاریخ انقضای مواد خود را ردیابی و کنترل کنند.
🎯 اهداف اصلی سیستم:
-
ساخت شیت اختصاصی برای مواد شیمیایی
-
جدول‌بندی داده‌ها با استایل حرفه‌ای
-
بررسی تاریخ انقضای شمسی و هشدارهای رنگی
-
استفاده از دکمه گرافیکی برای اجرای تحلیل
-
ارتباط با تابع تبدیل تاریخ شمسی به میلادی (
ShamsiToMiladi)
🛠 ساختار کد اصلی: Sub ساخت_سيستم_پيشرفته_مواد_شيميايي()
در این زیرروال، مراحل زیر انجام می‌شود:
1. حذف شیت قبلی (در صورت وجود):
Worksheets("مواد شيميايي").Delete
2. ساخت شیت جدید با نام "مواد شیمیایی":
Set ws = ThisWorkbook.Sheets.Add ws.Name = "مواد شيميايي"
3. تعریف سرتیترها و قالب‌بندی آن‌ها:
headers = Array("نام ماده", "کد ماده", "مقدار", "واحد", "تاريخ ورود", "تاريخ انقضا (شمسي)")
با فونت بولد، رنگ‌بندی زیبا و تراز وسط چین.
4. ایجاد جدول رسمی (ListObject) با استایل متوسط:
Set tbl = ws.ListObjects.Add(...) tbl.TableStyle = "TableStyleMedium9"
5. افزودن دکمه گرافیکی برای اجرای بررسی انقضا:
با ظاهر مدرن، رنگ‌بندی مناسب و دستور اجرای ماکروی دوم:
.OnAction = "بررسي_تاريخ_انقضا_پيشرفته"
🔍 بررسی انقضای مواد: Sub بررسي_تاريخ_انقضا_پيشرفته()
این ماکرو، بررسی خودکار تاریخ انقضای مواد را انجام می‌دهد و نتایج را با رنگ‌بندی روی جدول نشان می‌دهد:
✅ مراحل عملکرد:
-
خواندن تاریخ انقضا از ستون ششم
-
تبدیل تاریخ شمسی به میلادی با استفاده از تابع
ShamsiToMiladi -
مقایسه با تاریخ امروز:
-
اگر منقضی شده: ردیف قرمز می‌شود
-
اگر در 30 روز آینده منقضی می‌شود: ردیف زرد می‌شود
-
🎨 رنگ‌بندی هشدارها:
-
قرمز: ماده منقضی‌شده
-
زرد: ماده در شرف انقضا
💬 خروجی نهایی:
یک پیام با تعداد مواد منقضی و نزدیک به انقضا نمایش داده می‌شود.
📌 نکته مهم:
برای کارکرد صحیح تابع بررسی انقضا، باید تابع ShamsiToMiladi در ماژول دیگری تعریف شده باشد که تبدیل تاریخ شمسی به میلادی را انجام دهد. این تابع در پروژه‌های فارسی‌سازی شده تقویم اکسل بسیار رایج است.
🧪 نتیجه نهایی:
این سیستم ساده ولی بسیار حرفه‌ای، به شما کمک می‌کند تا مدیریت دقیق‌تری بر موجودی و تاریخ مصرف مواد شیمیایی داشته باشید و از بروز خطرات و هزینه‌های ناشی از مصرف مواد منقضی جلوگیری کنید.
برای شما کاربران عزیز پیشنهاد دانلود داده می شود.
