تنسيق المنازل العشرية

[سالم سالم]

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

أود عمل تنسيق للأرقام كالأتى :-

عدد المنازل العشرية = 2

بشرط إذا كان العدد صحيح فقط لاتظهر العلامة العشرية والصفرين ( المنزلين العشريين )

وإذا كان فى العدد منازل عشرية يظهر المنزلين فقط

بمعنى

العدد 25.22 يظهر 25.22

العدد 25 يظهر 25 ولا يظهر 25. ( نقطة يسار ) ولا يظهر 25.00

فكيف يكون ذلك

وجزاكم الله خيراَ

[رجب جاويش]

السلام عليكم

جرب أخى هذا الكود فى حدث الصفحة

الكود يعمل فى المدى ( A1:A20 )

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

If Not Intersect(Target, Range("A1:A20")) Is Nothing Then

    Range("A1:A20").NumberFormat = "0.00"

    For i = 1 To 20

	    cl = Cells(i, 1).Value

	    If cl = Int(cl) Then

		    Cells(i, 1).NumberFormat = "0"

	    End If

    Next

End If

End Sub

decimal.rar

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

أخي جرب هذا الكود في حدث الورقة

Private Sub Worksheet_Change(ByVal Target As Range)

If Right(Target.Value, 2) = "" Then

Target.NumberFormat = "0.00"

Else

Target.NumberFormat = "General"

End If

End Sub

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

أخي رجب لاحظ الزمن الذي تم فيه ارسال مشاركتي و مشاركتك

سبحان الله

[رجب جاويش]

أخى الحبيب / أبو حنين

سبحان الله العظيم مؤلف القلوب على حبه وطاعته

هذا التزامن الدقيق يدل على حبل من التواصل و تقارب شديد وحب أكنه لك لوجه الله

بارك الله فيك أخى الحبيب

[سالم سالم]

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

الأخوان الكريمان رجب جاويش وابو حنين

بارك الله فيكما وجعله فى ميزان حسناتكما

الاخ ابو حنين ياريت ترفق ملف

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

هذه طريقة بالأضافة إلي تنسيقات الخلايا

Book1.rar

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

جرب أخي المرفق

Book1.rar