كيف اجراء عملية الطرح حسب المثال

[ابوعمر5]

Book1.rarالسلام عليكم ورحمة الله وبركاته

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

بارك الله فيكم وجزاكم الله خير الجزاء

تم تعديل سبتمبر 16, 2012 بواسطه ابوعمر5

[عبدالله المجرب]

اين المرفق

[ابوعمر5]

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

تم تعديل سبتمبر 16, 2012 بواسطه ابوعمر5

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

بصراحة الطلب غير مفهوم ماهي هذه العلامات؟

وماذا تقصد حضرتك بأنها علامات كيلو مترية؟

وماهي علامة الجمع هذه ومن أين هذه الأرقام ؟

عملية طرخ.rar

[ابوعمر5]

اخي محمد بارك الله فيك على ردك

لتوضيح اكثر هو 500+665 يمين الجمع كسر من الكيلو متر ويساره الكيلو مترية علامة الجمع عبارة عن الفاصلة

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

إذن ستكون هكذا أخي العزيز وفائدة ( abs )

جعل ناتج الطرح موجب دائما ( أي بدون إشارة ) بغض النظر عن الناتج

والأفضل أن تكون هكذا حتي لاتعطي أية أخطاء عند خلو الخانتين من الأرقام

عملية طرح 2.rar

عملية طرح 3.rar

[ابوعمر5]

اخي العزيز محمد جزاك الله خير المشكلة لدي هو الاف الصفوف بالصيغة ( 500+665 ) , كيف استبدال الزائد بالفاصلة طبع ليس يدوي لكثرتها

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

فهمت أخي جاري عمل اللازم

جرب أخي هذه المعادلة وأتمني أن تفي بالغرض

عملية طرح 4.rar

[عبدالله المجرب]

السلام عليكم

قمت بعمل دالة معرفة

Function MyCal(MyCl As Range)

If Len(Mid(MyCl, InStr(MyCl, "+") + 1, 10)) > 5 Then MyCal = "#VALUE!": Exit Function

MyCal = Val(Format(Val(Mid(MyCl, InStr(MyCl, "+") + 1, 10)) & "." & Val(Mid(MyCl, 1, InStr(MyCl, "+") - 1)), "0.000"))

End Function

شاهد المرفق

Book1.rar

[عبدالله المجرب]

اخي العزيز محمد جزاك الله خير المشكلة لدي هو الاف الصفوف بالصيغة ( 500+665 ) , كيف استبدال الزائد بالفاصلة طبع ليس يدوي لكثرتها

السلام عليكم

يمكنك استخدام خاصية استبدال الكل (Ctrl + F) وتستبدل علامة + بعلامة . (الفاصلة العشرية)

[ابوعمر5]

جزاك الله خير اخي عبدالله وبارك الله فيك