كود إدراج صفوف أعلى عدد من الصفوف بمعلومية الصف الأول وعدد الطلاب

[حسن الحاوى]

كود إدراج صفوف أعلى عدد من الصفوف بمعلومية الصف الأول وعدد الطلاب

وهذا مفيد لإعداد شيت الدور الثانى

التحميل من هنا

بالتوفيق إنشاء الله

[saffaa]

إن شاء الله يكون عمل مفيد

[Ahmed Elbhiry]

مشكور افادك الله اخى /

hassanalhawy

[دغيدى]

ub add_rows()

Application.ScreenUpdating = False

    Dim aa, bb, c   As Integer

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

    aa = Val(a)

    b = InputBox("أدخل عدد الطلاب")

    bb = Val(b)

    c = bb * 2 + aa - 1

    For I = aa To c Step 2


    Dim D As String

    D = Str$(I)

    Rows(D).Select

    Selection.Insert Shift:=xlDown

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

    'Selection.FormatConditions.Delete

    Next I

    Application.ScreenUpdating = True

    Range("A1").Select

End Sub

تم تعديل بسيط لتحديث الشاشة وسرعة تنفيذ الكود

[حسن الحاوى]

دائما بادئ بالخير أستاذنا الفاضل / دغيدى

شكراً لمشاركتك

وشكراً للأستاذ / بحيرى . وأهنيه على عضويته الفعالة

[دغيدى]

أخى الفاضل / حسان الحاوى

بداية طيبة وموفقة مع اجمل منتدى