طلب تعديل في ملف التفقيط الخاص بي برجاء مساعدتي في هذا الملف وليس غيرة بخصوص التفقيط

[mahmoudelshair]

محتاج وانا بضيف الداله دي اضيفها بالطريقة دي  (NumtoTxt(A1=

بدلا من             ("هللة","ريال سعودي",NumtoTxt(A1=

العملة المطلوبه الريال السعودي و الكسر هللة

برجاء مساعدتي في هذا الملف 

ومشكورين مقدما

NumtoTxt.rar

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي الكريم، لأجل ذلك تقوم بما يلي:

1- تغيير السطر التالي :

Function NumtoTxt(TheNo As Double, MyCur As String, MySubCur As String) As String

بالسطر :

Function NumtoTxt(TheNo As Double) As String

2- تقوم بإضافة السطرين التاليين بعد هذا السطر الذي تم تغييره أو بعد انتهاء التعريف بالمتغيرات (أي بعد آخر Dim) :

MyCur = "ريال سعودي"
MySubCur = "هللة"

وبإذن الله سيعمل الكود حسب طلبك...

بن علية