مساعده في ملف تفقيط

[isama]

تعبت من البحث في جميع المنتديات  ابحث عن ماكرو تنقيط بهده الطريقه 
مثال الرقم  1,500.250 تكبت اللاف والمئات بالحروف بس الدراهم تكت ارقام  يعني هكذا  " الف وخمسمائة دينار و250 درهم"
ولكم جزيل الشكر 

[حمادة عمر]

الاخ الكريم

جرب المرفق التالي ... عله يكون المطلوب

 

تفقيط.rar

[isama]

اخي شكرا علي الرد ولكن  هذا الماكرو يحسب في الداهم  علي اساس انها دينار  قمت بتعديلها في  خانة الداله =B_Only(A1,1,0,2,"درهم","ديناران","دينارات") ولكن واذا كتبت له 0.500 درهم  تكتب " فقط صفر دينار "
  وايضا انظر الي هذا المثال لو كتبت له 

  4,910.295  تكتب هكذا        فقط أربعة آلاف وتسعمائة وعشرة و 0.30 درهم اي ان كلمة دينار بعد الدنانير لا تكتب 

 

نرجوا اعادة تعديل الداله وشكرا 

تم تعديل يونيو 15, 2013 بواسطه isama