وعليكم السلام يمكنك هذا بوضع هذا الكود بحدث الورقة التى يتم الإدخال بها , وهناك طريقة أخرى بالملف من خلال قائمة التحقق من البيانات Data Validation وهى عن طريق تقييد الإدخال بالخلية بأن لا تدخل بالخلية أقل أو أكثر من أربعة أرقام أو حروف

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim I As Long
    Dim xVal As String
    On Error Resume Next
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For I = 1 To Target.Count
        If Len(Target(I).Text) >= 4 Then
            Target(I).Value = Left(Target(I).Value, 4)
        End If
    Next
    Application.EnableEvents = True
End Sub

test.xlsm

رائع
شكرا لك اخيجزاك الله خيرا

السلام عليكم
في هذ الملف يوجد فيه كود الاستاذ الفاضل علي محمد لجعل الخانه لا يكتب فيها سوى 4 ارقام حتى لو قمت بكتابه اكثر من اربعة

اريد طريقه لجعل الكود يقوم بحذف ارقام الاولى ويحتفظ باربعه ارقام الاخيره


test(1).xlsm

حذف الارقام الاولى في الصوره المضلله باللون الاحمر

محتاج حذف ولا عدم اظهار ( اخفائها )

السلام عليكم ورحمة الله
فى الكود المدرج فى حدث Sheet2
استبدل كلمة "Left" بكلمة "Right"
و ينتهى الامر باذن الله

جزاكم الله خيرا على اهتمامكم بالموضوع الرائع