انجمن علمی مهندسی صنایع دانشگاه پیام نور مشهد

شمسی كردن تاریخ فعالیتها درماکروسافت پروجکت

نوشته شده در : سه شنبه 18 آبان 1388 | ساعت : 13:20:48 | توسط : admin | بازدید : 388

یكی از روشهایی كه می توان تاریخها را در Microsoft Project به صورت شمسی نمایش داد با استفاد از Macro می باشد .
در این روش باید برنامه ای با فرمت Visual Basic كه تاریخ میلادی را به شمسی تبدیل نماید وجود داشته باشد و این برنامه به صورت یك ماجول در برنامه تعریف شود و با استفاده از یك ماكرو این ماجول را روی یكی از فیلدهای انتخابی اجرا نمود.
در ادامه به توضیح این روش خواهیم پرداخت

نخست از بخشهای Tools> Macro > Visual Basic Editor را انتخاب نمایید . در قسمت چپ صفحه با زدن كلیك راست Insert > module را انتخاب نمایید. پس از ایجاد ماجولی به نام module1 فایلی كه در اینجا می باشد را در این ماجول كپی نمایید . سپس مجدداً ماجول جدیدی ایجاد و پس از ایجاد module2 فایل دیگری را از اینجا در این ماجول كپی نمایید. پس از این مراحل به شكل زیر باشد .



این ماجولها ماكرویی را به نام shamsi_date بوجود می آورند كه با اجرای این ماكرو تاریخهای شمسی به ترتیب زیر در ستونهای Text1 و Text2 كپی میگردند. تاریخ شروع شمسی در Text1 و تاریخ پایان شمسی در Text2 كه جهت رویت تاریخ های شمسی می بایست این دو ستون کنار ستونهای دیگر اضافه گردند ، بدین ترتیب پس از هر بار تغییر می بایست این ماكروی Shamsi_date را اجرا نمایید. نتیجه این عمل در شكل زیر قابل مشاهده می باشد . البته می توانید نام ستونها را به shamsi Start Date و Shamsi Finish Date تغییر دهید. در صورت وجود هر گونه سئوال یا مشكل مسئله را در انجمن مطرح فرمایید.

جهت مشاهده روش یاده سازی و اجرای ماکروها روی لینکهای ریر کلیک نمائید :

۱- ایجاد یک پروژه جدید در نرم افزار مایکروسافت پروجکت

۲- وارد شدن به محیط ویژوال

۳- ایجاد یک ماجول در محیط ویژوال

۴- کپی کردن کدهای موجود در فایل Ms Project shamsi_date_Module1.txt در ماجول ۱

۵- ایجاد یک ماجول دیگر در محیط ویژوال

۶- کپی کردن کدهای موجود در فایل Ms Project shamsi_date_Module2.txt در ماجول ۲

۷- راهنمای مسیر اجرای ماکروها

۸- اجرای ماکروی shamsi_date

۹- ایجاد ستون با کلیک راست

۱۰- نامگذاری ستون تاریخ شمسی شروع فعالیت

۱۱- نامگذاری ستون تاریخ شمسی خاتمه فعالیت

۱۲- نمایش تاریخ شروع و خاتمه در دو ستون متنی ( text )