مطلوب تجاهل المنازل العشريه اذا كانت أصفار

[المحموم]

أخواني الأعزاء أرجو مساعدتي في ايجاد حل لهذه المشكله

عندي جدول أكسل وكل الخلايا فيها منزلتين عشريتين مثل : ( ٨.٥٠ ) ( ١٦.٧٥ ) ( ٩٣.٠٠ )

المطلوب تجاهل المنازل العشريه إ ذا كانت أصفاراً تلقائياً كما هو الحال في المثال ( ٩٣.٠٠ ) ليصبح ( ٩٣ ) فقط

ولجهودكم جزيل الشكر

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

السلام عليكم

على افتراض ان الصف المعني بالتغيير هو

Range("K2:K34")

فيكون الكود كالتالي :

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

Dim c As Range

For Each c In Range("K2:K34")

With c

    If Right(.Text, 2) = "00" Or .Value = 0 Then

		    .NumberFormat = "General"

				 Exit Sub

			   Else

		  .NumberFormat = "0.00"

		 End If

	 End With

    Next

End Sub

[المحموم]

شكراً أخي أبو حنين ، بارك الله فيك

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

العفو اخي الكريم

[يوسف عطا]

أخى الغالى ابا حنين

هل يمكن التعديل فى الكود هكذا ليكون الكسر العشرى ذو منزلة واحدة والحفاظ على خاصية منع ظهور الصفر والعلامة العشرية لو كان الرقم بدون كسر عشرى ؟؟

علماً بأن الكود سيطبق فى مدى 2000 سطر كاملين

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

Dim c As Range

For Each c In Range("A1:IV2000")

With c

	    If Right(.Text, 2) = "00" Or .Value = 0 Then

					    .NumberFormat = "General"

								 Exit Sub

						   Else

				  .NumberFormat = "0.0"

				 End If

		 End With

	    Next

End Sub