سئوال و جوابي در باره برنامه تبدل تاريخ شمسي

17 09 2008

با سلام

برنامه واقعاً سودمند شما را در خصوص تبديل تاريخ و تبديل عدد به حروف را دريافت نمودم . بسيار عالي و قابل استفاده بود . ضمن تشكر از زحمتي كه براي اين برنامه بسيار مفيد انجام داده ايد پيشنهاد مي كنم براي تفريق در تاريخ از هم (مثلاً محاسبه سن يا سنوات خدمت يك فرد تا تاريخي مشخص ) و جمع كردن يك تاريخ با عددي مشخص ( مثلاً 132 روز ديگر چه تاريخي مي شود )  نيز در صورت داشتن توابعي آنرا ارسال فرمائيد. و در غير اين صورت تقاضا دارم زحمت آنرا نيز بكشيد.

با تشكر مجدد : محمدرضا كيامرزي

===================================================

جناب آقاي كيامرزي

تمامي امكاناتي كه شما انتظار انجامش را داريد به راحتي قابل انجام است هرچند مي شود براي آنها ماكرو نوشت .

اما من مخالف نوشتن اين ماكرو هستم چون در برنامه اكسل كارهاي زيادي را با تركيب فرمولها مي شود. اگرچه نوشتن اين توابع زماني از من نمي گيرد 

 با افزايش مهارت اكسل خودتان از استفاده از اين برنامه لذت ببريد و با تركيب فرمولها چه كارهاي بزرگي را كه به راحتي مي تواند انجام دهيد . مثلا با تركيب توابع match و  index چه كارهاي بزرگي كه نمي شود كرد. 

 هر تاريخ شمسي را بخواهيد 132روز اضافه كنيد به راحتي ابتدا تاريخ شمسي را به ميلادي تبديل كنيد سپس بعلاوه 132 بكنيد حالا معادل تاريخ ميلادي آن به دست مي آيد حالا دوباره آنرا به شمسي تبديل كنيد. همه اين مراحل را مي شود در يك فرمول تعريف كرد.

=m2s(s2m(a1)+132)

– دو تاريخ را بخواهيد از هم كم كنيد هر دو را به ميلادي تبديل كنيد سپس آنها را از هم كم كنيد.

مثال :

a1: 1387/1/1

a2: 1387/6/27

حالا با نوشتن فرمول زير در هر سلولي مي شود تعداد روزهاي بين  اين دو تاريخ را دانست

=(s2m(a2) – s2m(a1))

اجازه بدهيد تعداد توابع را افزايش ندهيم بلكه مهارت اكسل خودمان را افزايش دهيم 





افزودن امكانات جديد به ماكرو تبديل تاريخ شمسي

9 09 2008

به دليل درخواست يكي از خوانندگان سايت امكانات جديد به ماكرو تبديل تاريخ شمسي اضافه شد كه تغييرات اعمال شده در دو پست قبلي ويرايش گرديد

حالا تاريخ را به صورت حروفي هم مي تواند ببينيد





مايكروسافت پروژه با تاريخ شمسي

26 08 2008

سالها قبل يك ماكرو براي مايكروسافت پروژه نوشتم كه دو ستون اضافه دارد كه تاريخ شروع و انتها را به صورت اتوماتيك به شمسي تبديل مي كند.
اين فايل از اينجا قابل دانلود است





تبدیل تاریخ شمسی به میلادی و برعکس و عدد به حروف در اکسل (ويرايش دوم)

24 08 2008

با نصب این ماکرو سه تابع به توابع اکسل اضافه شده و تاریخ را شمسی به میلادی و یا از میلادی به شمسی تبدیل می کند و همچنین اعداد را به حروف فارسی تبدیل می کند

دانلود

تابع s2m  تاريخ شمسي را به ميلادي تبديل مي كند

=s2m(«1387/6/19»)

برای فعال شدن اجرای ماکرو در اکسل به tools>option>security>macro Security رفته و آنرا درحالت low یا medium بگذارید. اکسل بعد از این تغییر نیاز به یک راه اندازی مجدد (خارج و وارد شدن دوباره) دارد.

تبدیل عدد به حروف

این تابع به صورت زیر نوشته شده و اعداد صحیح را به حروف تبدیل می نماید از اعداد بعد ممیز

صرف نظر می کند

=horofi(A1)

=horofi(«123»)

نتیجه : یکصد و بیست و سه

===============================================================

در آفیس 2007 ابتدا طبق روش زیر ماکرو را فعال کنید و یک بار از  excel  خارج شده و دوباره وارد شوید

خلاصه آن به صورت زیر است:
1- بر روی آیکون آفیس کلیک کنید
2- Excel option
3- trust center
4- trust center seeting
5- macro setting
6- enable all maco
7- trust to access to VBA madule را انتخاب کنید