المساعدة في عمل دالة لكتابة الارقام بالحروف

[سيد الأكرت]

مثال.rar

[جمال عبد السميع]

أتمني أخي أن يكون المطلوب

[جمال عبد السميع]

أتمني أخي أن يكون المطلوب

دالة ترقيم.rar

[علي سالم 75]

وهذه بدالة

CHOOSE

=CHOOSE(K4;"واحد";"إثنان";"ثلاثة";"أربعة";"خمسة";"ستة";"سبعة";"ثمانية";"تسعة";"عشرة")

[أبو حنــــين]

بعد اذن اخي محمود

هذه طريقة اخري

مثال.rar

[أبو محمد عباس]

السلام عليكم

الاساتذة الافاضل والاخوة الاعزاء استاذ محمود واستاذ ابو حنين والاخ بليش روغ بارك الله فيكم معادلات رائعة

الاخ ابوحنين اعتقد المعادلة غير موجودة في الملف او يوجد هناك خطا اثناء تحميل الملف من قبلي

وتقبلوا دعواتي لكم بالصحة والعافية

[أبو حنــــين]

اخي عباس لقد وضعت دالة جيدية في موديل و هي كالتالي

Function Nember(Ch)

Select Case Ch

Case Is = "0":	 Ch = "صفر"

Case Is = 1:	 Ch = "واحد"

Case Is = 2:	 Ch = "اثنان"

Case Is = 3:	 Ch = "ثلاثة"

Case Is = 4:	 Ch = "أربعة"

Case Is = 5:	 Ch = "خمسة"

Case Is = 6:	 Ch = "ستة"

Case Is = 7:	 Ch = "سبعة"

Case Is = 8:	 Ch = "ثمانية"

Case Is = 9:	 Ch = "تسعة"

Case Is = 10: Ch = "عشرة"

Case Is = 11:	 Ch = "احدى عشر"

Case Is = 12:	 Ch = "اثنى عشر"

Case Is = 13:	 Ch = "ثلاثة عشر"

Case Is = 14:	 Ch = "اربعة عشر"

Case Is = 15:	 Ch = "خمسة عشر"

Case Is = 16:	 Ch = "ستة عشر"

Case Is = 17:	 Ch = "سبعة عشر"

Case Is = 18:	 Ch = "ثمانية عشر"

Case Is = 19:	 Ch = "تسعة عشر"

Case Is = 20:	 Ch = "عشرةن"

Case Else: Ch = ""

End Select

Nember = Ch

End Function

ثم تكتب في خلية ما مثلا

=Nember(F1)

حيث F1 تحتوي على عدد

[سيد الأكرت]

شكرا لكم جميعا

[أبو محمد عباس]

السلام عليكم

رائع استاذ ابو حنين لم انتبه حسبت ان المعادلة موجودة في B1 الان وضعتها في B1 وتمام 100%

جزاك الله خيرا