mahmoudelshair قام بنشر ديسمبر 28, 2015 مشاركة قام بنشر ديسمبر 28, 2015 محتاج وانا بضيف الداله دي اضيفها بالطريقة دي (NumtoTxt(A1= بدلا من ("هللة","ريال سعودي",NumtoTxt(A1= العملة المطلوبه الريال السعودي و الكسر هللة برجاء مساعدتي في هذا الملف ومشكورين مقدما NumtoTxt.rar رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر ديسمبر 28, 2015 مشاركة قام بنشر ديسمبر 28, 2015 السلام عليكم ورحمة الله أخي الكريم، لأجل ذلك تقوم بما يلي: 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 = "هللة" وبإذن الله سيعمل الكود حسب طلبك... بن علية 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.