مشكله فى الكسور العشرية

[احمد حبيبه]

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

عندى مشكله فى الكسور العشريه .... الشرح فى الملف

الكسور.rar

[سليم حاصبيا]

جرب هذا الكود

Sub remove_Fraction()
Dim last_row As Long

last_row = Cells(Rows.Count, "b").End(3).Row
 For Each my_cel In Range("b1:b" & last_row)

  If IsNumeric(my_cel.Value) And Not IsEmpty(my_cel) Then
        With my_cel
            .Formula = "=ROUND(" & my_cel & ",2)"
            .NumberFormat = "0.00"
         End With
       End If
     Next

End Sub

 

[احمد حبيبه]

اخى العزيز

سليم حاصبيا

أشكرك جدا جدا

لكن فى الملف الأصلى فيه معادله جمع ثلاثة اعمده

فهل يمكن دمج هذه الداله مع دالة sum

[سليم حاصبيا]

14 دقائق مضت, احمد حبيبه said:

اخى العزيز

سليم حاصبيا

أشكرك جدا جدا

لكن فى الملف الأصلى فيه معادله جمع ثلاثة اعمده

فهل يمكن دمج هذه الداله مع دالة sum

انا شخصباً لم ار اي معادلة

ارفع جزء من الملف مع معادلاته

[احمد حبيبه]

أستاذ ى الفاضل

هذا الملف بالمعادله المستخدمه

حتى بعد ضبط العلامه العشريه غير سليم ...... عند نسخ القيم ولصقها فى مكان اخر

الكسور2.rar

[سليم حاصبيا]

لست يحاجة الى كود غي هذه الحالة

بل الى معادلة بسيطة مثل المرفق

 

الكسور2 salim.rar

[احمد حبيبه]

في ‏٢١‏/‏٠٤‏/‏٢٠١٧ at 05:32, سليم حاصبيا said:

لست يحاجة الى كود غي هذه الحالة

بل الى معادلة بسيطة مثل المرفق

 

الكسور2 salim.rar

اشكرك جدا أخى الحبيب معادلة رائعة أدت المطلوب منها وزيادة

اشكرك .... بارك الله فيك