أخى الغالى ابا حنين
هل يمكن التعديل فى الكود هكذا ليكون الكسر العشرى ذو منزلة واحدة والحفاظ على خاصية منع ظهور الصفر والعلامة العشرية لو كان الرقم بدون كسر عشرى ؟؟
علماً بأن الكود سيطبق فى مدى 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