أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على ali mohamed ali-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة منع ادخال البيانات بعدة شروط اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





ترقيم من رقم الى رقم

السلام عليكم اريد كود للترقيم كما هو بالمرفق من القيمة بالخلية d3 الى القيمة بالخلية g3 و شكرا


موضوع مغلق


12-09-2021 06:12 مساء
صلاح الصغير
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 354
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 297
عدد الإجابات: 1
 offline 

السلام عليكم
اريد كود  للترقيم كما هو بالمرفق من القيمة بالخلية d3  الى القيمة بالخلية g3
و شكرا
 
 
  ترقيم تلقائي.xlsx   تحميل xlsx مرات التحميل :(8)
الحجم :(8.77) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام أخي الكريم صلاح
جرب الكود التالي عله يفي بالغرض إن شاء الله
الكود طويل مراعاةً لتجنب أي أخطاء
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x, y, v
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Address = "$D$3" Or Target.Address = "$G$3" Then
        Application.EnableEvents = False
        Application.ScreenUpdating = False
            With Range("B5").Resize(Rows.Count - 4)
                .ClearContents: .Borders.Value = 0
            End With
            x = Range("D3").Value
            y = Range("G3").Value
            If IsNumeric(x) And IsNumeric(y) And x <= y Then
                v = Evaluate("ROW(" & x & ":" & y & ")")
                With Range("B5").Resize(UBound(v))
                    .Value = v
                    .Borders.Value = 1
                End With
            End If
            Target.Select
        Application.ScreenUpdating = True
        Application.EnableEvents = True
    End If
End Sub
عرض الإجابة




12-09-2021 07:32 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif ترقيم من رقم الى رقم
وعليكم السلام أخي الكريم صلاح
جرب الكود التالي عله يفي بالغرض إن شاء الله
الكود طويل مراعاةً لتجنب أي أخطاء
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x, y, v
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Address = "$D$3" Or Target.Address = "$G$3" Then
        Application.EnableEvents = False
        Application.ScreenUpdating = False
            With Range("B5").Resize(Rows.Count - 4)
                .ClearContents: .Borders.Value = 0
            End With
            x = Range("D3").Value
            y = Range("G3").Value
            If IsNumeric(x) And IsNumeric(y) And x <= y Then
                v = Evaluate("ROW(" & x & ":" & y & ")")
                With Range("B5").Resize(UBound(v))
                    .Value = v
                    .Borders.Value = 1
                End With
            End If
            Target.Select
        Application.ScreenUpdating = True
        Application.EnableEvents = True
    End If
End Sub

12-09-2021 08:05 مساء
مشاهدة مشاركة منفردة [2]
صلاح الصغير
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 354
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 297
عدد الإجابات: 1
 offline 
look/images/icons/i1.gif ترقيم من رقم الى رقم
طبعا و اكيد تحياتنا لاستاذنا / ياسر
اخى ياسر للاسف بعد وضع الكود فى حدث الورقة الكود لا يعمل 
و بوضعه فى موديول و تغيير ل sub يعطى رسالة object required
مرفق الملف
و شكرا
 
 
  ترقيم تلقائي.xlsm   تحميل xlsm مرات التحميل :(2)
الحجم :(19.999) KB


13-09-2021 03:40 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif ترقيم من رقم الى رقم
السلام عليكم
يوضع الكود في حدث ورقة العمل وليس في موديول عادي والكود مجرب ويعمل عندي بشكل عادي ، جرب مرة أخرى وتأكد بنفسك.



الكلمات الدلالية
ترقيم ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 12:35 صباحا