إضافة كود لتسطير الشيت

[حسن محمدسليم عبدالحميد]

السلام عليكم

فى المرفق ملف تقسيم الشيتات للأستاذ الفاضل أبوأسامة وقام العلامة الأستاذ الفذ خبور خير بالتعديل عليةوأضاف تعديلات

خاصة بالطباعة وهو ممتاز جدا

رجاء من الأستاذ العلامة خبور أن يتدخل ويضيف خاصية تسطير صفوف البيانات وتكون الشيتات الناتجة بعد التقسيم بها تسطير

ويكون التسطير فى صفوف الطلبة فقط وهى فى المرفق باللون الأصفر

أما الصفوف اسفل البيانات ( صفوف التذييل) تكون بدون تسطير

التقسيم لشيتات3.rar

[حسن محمدسليم عبدالحميد]

للرفع

[عبدالله باقشير]

السلام عليكم

انت تعرف ان المرفق قديم وممكن اختصاره

ولكن يحتاج تركيز ووقت

وحسب طلبك

تم التعديل في الجزئية هنا

For C = 1 To SheetCount

    For D = 1 To StusentsNum

        'For E = 1 To CmNO

            F = D + A

            G = D + B

            '.Cells(F, E) = MyRange.Cells(G, E)

            With Range(.Cells(F, 1), .Cells(F, CmNO))

                .Value = Range(MyRange.Cells(G, 1), MyRange.Cells(G, CmNO)).Value

                .Borders.LineStyle = xlContinuous

            End With

        'Next E

    Next D

    A = A + StusentsNum + RowsUp + RowsDown

    B = B + StusentsNum

Next C

المرفق اكسل 2003

التقسيم لشيتات3.rar

[حسن محمدسليم عبدالحميد]

السلام عليكم الأستاذ خبور خير

اولا: جزاك الله خيرا على هذه الإضافة والتعديل الذى قمت به فى الكود وهو المطلوب

لاننى كنت بحاجة الى تسطير الشيتات الناتجة

ثانيا: أعرف أن الكود قديم ولكنى رايته فى صفحتك الخاصة وهو ما دفعنى الى أن افتح هذا الكود وكم سرنى هذا التعديل

الذى قمت به .

وجزاك الله كل خير

[قصي]

جزاك الله كل خير