بوابة الثانوية العامة المصرية - الرجا مساعدة فى الاكسل

الكود التالى يقوم بإدراج صفين أعلى عدد معين من الصفوف وليس أسفلها
قم بعمل ماكرو ثم قم بنسخ الأكواد التالية فيه

كود:

    Application.ScreenUpdating = False

    Dim AA, bb, c As Integer

    A = InputBox("أدخل رقم الصف الأول الذى تريد إدراج صفين خالى أعلاه ؟")

    AA = Val(A)

    b = InputBox("أدخل عدد الصفوف")

    bb = Val(b)

    c = bb * 3 + AA - 1

    For i = AA To c Step 3

    

    Dim D As String

    D = Str$(i)

    Rows(D).Select

    Selection.Insert Shift:=xlDown

    ' الخطوات السابقة تقوم بإدراج صف أعلى بنفس تنسيق الصف الأسفل....  وإذا أردت خذف هذا التنسيق قم بإزالة علامة التعليق  عن السطر التالى

    'Selection.FormatConditions.Delete

    Selection.Insert Shift:=xlDown

    ' الخطوات السابقة تقوم بإدراج صف أعلى بنفس تنسيق الصف الأسفل.... وإذا أردت خذف هذا التنسيق قم بإزالة علامة التعليق  عن السطر التالى

    'Selection.FormatConditions.Delete

    Next i

    Application.ScreenUpdating = True

    Range("A1").Select

عند تشغيل الكود سوف يسألك عن رقم الصف الأول الذى تريد إدراج صفين خالى أعلاه ؟ وستقوم بإدخال العدد 2
ثم سيسألك عن عدد الصفوف فى ورقة العمل الذى تريد إضافة صفين أعلاهم
وستقوم بإدخال - على ما أتذكر - 3000 أو أكثر