الله ينور اخى ابو عبدالله استخدام رائع للدوال فى الكود
واسمح لى بهذا التعديل البسيط لجعل الخلية بعد الادخال تساوى الرقم الصحيح ورقميين عشريين فقط بدلاً من تركها خالية
Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In UsedRange
If IsNumeric(cell) Then r = Mid(cell, (InStr(cell, ".") + 1), 10)
If Len(r) > 2 Then
MsgBox " عدد الاحرف اكثر من المسموح به"
cell.Value = Int(cell.Value) + (Left(r, 2) / 100)
End If
Next
End Sub