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

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

دانلود

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

=s2m(«1387/6/19»)

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

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

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

صرف نظر می کند

=horofi(A1)

=horofi(«123»)

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

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

ماکرویی را آقاي لطفي برای من فرستاده اند که از اینجا قابل دریافت است و تبدیل عدد به حروف در اکسل انجام می دهد و اعداد بعد از مميز را نيز به حرف تبديل مي كند.

تابع D2A سه تا آرگومان ورودي داره كه دومي و سومي اختياريه اوليش براي تبديل عدد به حروفه و دومي براي افزودن متن دلخواه به انتهاي عبارت تبديل شده مثل “ريال” و … و سومي براي گرد كردن اعداد . راهنماي فايل بهمراه اصل فايل قابل دانلود است.

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

  1. شريف لطفي Says:

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

    ===================================================================
    جناب آقاي لطفي با تشكر از مطب شما
    مقداري از توضيحات طبق شرح شما اصلاح شد
    لطفا يك نسخه از رزمه كاريتان را براي من بفرستيد
    با تشكر اصغري

  2. شريف لطفي Says:

    اينم لينك فايل شرايط عمومي پيمان با امكان جستجوي فارسي و لينك بين ماده ها و بندها :
    http://www.iran-eng.com/showthread.php?p=361325#post361325

  3. عليرضا Says:

    متاسفانه تابع مبدل تاريخ شمسي به ميلادي درست كار نمي كنه :((
    ====================================
    دوست عزیز لطفا به صورت شفاف اشکال را توضیح دهید تا برطرف شود و اگر لازم بود فایل را ایمیل نمایید.
    a[dot]asghari[at]gmail[dot]com

  4. عليرضا Says:

    متأسفانه اشكال از خودم بود توي اكسل 2007 قابليت ماكرو ها رو غير فعال كرده بودم با فعال كردنش مشكل حل شد . اما يك پيشنهاد اگر امكان توسعه اين افزونه(؟) به صورتي كه ايام هفته و تاريخ رو به حروف هم نمايش دهد وجود داشت بسيار عالي مي شد … با تشكر
    ==============================================================================
    نمایش تاریخ بصورت فارسی به ماکرو اضافه گردید

  5. farzad Says:

    در سایت فرساران می توانید یک addin کامل برای تاریخ هجری شمسی و همچنین تبدیل عدد به حروف را از بخش اکسل دانلود نمایید.
    این مجموعه روزهای هفته را نیز نشان می دهد و می توان دو تاریخ را از همدیگر کم کرد و …
    من که استفاده کردم بسیار راضی بودم:
    http://farsaran.ir/Excel_Section/PersianTool.htm
    ====================================================
    در یکی از فرمتها می توان روزهای هفته را هم دید
    کم کردن دو تاریخ هم ایده خوبی است هر چند بعد از تبدیل دو تاریخ به میلادی به راحتی قابل انجام است ولی به عنوان تابع جداگانه حتما اضافه خواهد شد

  6. 1 Says:

    در اینجا روش جالبی ارائه شده:
    http://kmisagh.blogsky.com/1387/07/12/post-4/

  7. amir Says:

    مرسی

  8. مهدی Says:

    سلام. یک سوال دارم که فکر می کنم بتونین کمکم کنین. میخوام محاسباتی که در یک شیت انجام می دهم که با فرمول نویسی است برای افراد مختلف بصورت گزارش برام در یک شیت ذخیره کنه. نه اینکه هر بار ردیف مربوط به محاسبات را در یک شیت کپی کنم لطفا راهنمایی فرمایید.

بیان دیدگاه